strsql = "select * from 销售"
rst.Open strsql, cnn, adOpenStatic, a'LockPessimistic
strsql = "alter table 销售 drop column " & rst.Fields(3).Name
Call cnn.Execute(strsql) '///////为什么到这里就不执行了,跳过了,不能删除字段
rst.Open strsql, cnn, adOpenStatic, a'LockPessimistic
strsql = "alter table 销售 drop column " & rst.Fields(3).Name
Call cnn.Execute(strsql) '///////为什么到这里就不执行了,跳过了,不能删除字段
Access数据库,你说的方法不行那。那样 rst.Fields(3).Name 就找不到了
另外加上"[","[" & rst.Fields(3).Name & "]"
rst.Open strsql, cnn, adOpenStatic, a'LockPessimistic
strsql = "alter table 销售 drop column " & rst.Fields(3).Name
rst.close
Call cnn.Execute(strsql) '///////为什么到这里就不执行了,跳过了,不能删除字段