【求助】对象关闭时无法操作

Private Sub Command1_Click()
If Len(txtcar_id.Text) > 0 Then
Adojiezhang.CommandType = adCmdText
Adojiezhang.RecordSource = "update nvip set etime ='" & Trim(etime.Caption) & " 'where car_id='" & txtcar_id.Text & " '"
Adojiezhang.Refresh
Else
MsgBox ("请指定要查找的会员号")
End If
End Sub
对数据库进行更新操作就会出现这种问题，但是写入新的条目或者读都没有问题。
用的ADO控件，属性里ODBC数据源与数据库进行的链接

应该是 Adojiezhang 没有获得记录集所以还是关闭的状态，或者在哪个地方数据库连接已经关闭了，所以 Adojiezhang.Refresh 的时候获出现 “对象关闭时无法操作”
最好先判断下数据库的连接状态再那个啥

不感兴趣

开通SVIP免广告

回复：2楼
能具体说一下么？或者加你的QQ可以么？

ADODc控件的Recordsource只能用Select语句，像Update、Delete等语句只能用连接对象的Execute方法执行，或者直接用ADODB的Recordset对象的Open方法打开。
方法1:
Dim MyCn As ADODB.Connection
Set MyCn = Adodc1.Recordset.ActiveConnection
   MyCn.Execute "update nvip set etime ='" & Trim(etime.Caption) & " 'where car_id='" & txtcar_id.Text & " '"
方法2：
   Dim cn As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d:\1.mdb"
   rs.Open "update nvip set etime ='" & Trim(etime.Caption) & " 'where car_id='" & txtcar_id.Text & " '", cn, adOpenDynamic, adLockOptimistic

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六