PrivateSubCommandButton1_Click()DimstrconntAsStringstrconnt=""Setconnt=NewADODB.ConnectionDimsevip,Db,user,pwdAsStringDimdataSetsAsNewADODB.Recordset'设服务器地址、所连数...
Private Sub CommandButton1_Click()
Dim strconnt As String
strconnt = ""
Set connt = New ADODB.Connection
Dim sevip, Db, user, pwd As String
Dim dataSets As New ADODB.Recordset
'设服务器地址、所连数据,及登录用户密码
sevip = "localhost" '"192.168.*.*"
Db = "sla_test"
user = "root"
pwd = "noah,123"
strconnt = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
connt.ConnectionString = strconnt
connt.Open
'Set dataSets = New Recordset
'设置游标类型,对于adOpenStatic的游标无法获取datasets的行数属性
'dataSets.CursorType = adOpenKeyset
'dataSets.CursorLocation = adUseServer
ssql = "insert into person(name,sex) values('yulin','n')"
Set dataSets = connt.Execute(ssql)
numtxt.Text = numtxt.Text & dataSets.RecordCount
MsgBox "成功更新记录!"
dataSets.Close
connt.Close
Set dataSets = Nothing
Set connt = Nothing
Set connt = Nothing
End Sub
执行该段代码时,总是提示,对象关闭不允许操作,单击调试后,错误定位在numtxt.Text = numtxt.Text & dataSets.RecordCount
,请问怎么解决???急,在线等。。。
补充一点:数据库插入成功,我想返回受影响的行,但是在numtxt.Text = numtxt.Text & dataSets.RecordCount
这一行总是报错,是不是和游标的设置有关?要怎么获取受影响的行呢?
展开