set conn=server.createobject(adodb.connection) set rs=server.createobject(adodb.recordset)我使用了以后就提示这两行有错误了!!我用dim conn as adodb.connection dim rs as adodb.recordset怎么都不行啊!还是一直的报错误啊!!程序根本都没运行到建立adodb.connection对象似的!
光声明不初始化也不行,改为: Private Sub cmdOK_Click() Dim str As String Dim sql As String str = "driver={SQL Server};server=pc;uid=sa;pwd=;database=test2" '-----------这是关键----------- Set cnn = New ADODB.Connection Set rs =New ADODB.Recordset '------------------------------ cnn.Open str sql="select * from t2" rs.Open sql, cnn, adOpenDynamic, adLockPessimistic rs.AddNew rs.Fields("name") = Text1.Text rs.Fields("age") = Text2.Text rs.Update Set rs = Nothing Set cnn = NothingEnd Sub
CN.EXEC("Update 表名 SET 字段=目的Where 条件
set rs=server.createobject(adodb.recordset)不好意思,,我刚喝完酒。。可能答得不是很好。。
ConnectString="User Name=sa;Passowrd=;Init Catalog=dbname,Data Source=servername'
set rs=server.createobject(adodb.recordset)我使用了以后就提示这两行有错误了!!我用dim conn as adodb.connection
dim rs as adodb.recordset怎么都不行啊!还是一直的报错误啊!!程序根本都没运行到建立adodb.connection对象似的!
Private Sub cmdOK_Click() Dim str As String
Dim sql As String str = "driver={SQL Server};server=pc;uid=sa;pwd=;database=test2"
'-----------这是关键-----------
Set cnn = New ADODB.Connection
Set rs =New ADODB.Recordset
'------------------------------ cnn.Open str
sql="select * from t2"
rs.Open sql, cnn, adOpenDynamic, adLockPessimistic rs.AddNew
rs.Fields("name") = Text1.Text
rs.Fields("age") = Text2.Text rs.Update Set rs = Nothing
Set cnn = NothingEnd Sub
ADODB.Recordset的缺省锁定类型好像是只读吧~
设一下游标和锁定类型啊,不然无法更新的
在Recordset的属性中,
具体的介绍在MSDN上可以查到,
查Recordset的Open
不要用rs.update