dim conn as new adodb.connection '连接数据库 with conn If .State = adStateOpen Then .Close .ConnectionString = "driver=SQL Server;server=sql实例名;uid=SA;pwd=SA的密码;database=数据库名" .CommandTimeout = 0 .Open End With '增加记录 conn.execute "insert into 表名(a,b,c) values('a','b','c')" '修改记录 conn.execute "update 表名 set a='a1' wher a='a'" '删除记录 conn.execute "delete from 表名 where a='a'"
'连接数据库
with conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=sql实例名;uid=SA;pwd=SA的密码;database=数据库名"
.CommandTimeout = 0
.Open
End With
'增加记录
conn.execute "insert into 表名(a,b,c) values('a','b','c')"
'修改记录
conn.execute "update 表名 set a='a1' wher a='a'"
'删除记录
conn.execute "delete from 表名 where a='a'"
查看帮助关于recordset的addnew ,update ,delete 方法