dim cn as adodb.connection
'cn.open
cn.execute "create table tst (f1 int)"
cn.execute "alter table tst add f2 varchar(32)"
'cn.open
cn.execute "create table tst (f1 int)"
cn.execute "alter table tst add f2 varchar(32)"
调试欢乐多
a = "alter table st add" & Text1.Text & "text(20)"
Data1.Database.Execute a
我想在TEXT中输入字段名,可这段程序老是出错。
改为
a = "alter table st add " & Text1.Text & " text(20)"