帮我看看这段VB代码,哪里错了

来源:百度知道 编辑:UC知道 时间:2024/05/24 18:16:18
Sub huanche()
Adodc1.RecordSource = "select * from 车辆信息表 where 车号='" & Text1.Text & "'"
Adodc1.Recordset("可用状态") = "t"
Adodc1.Recordset("还车时间") = getdate
Adodc1.Recordset.Update
End Sub
我想通过记录集的方法修改表的字段,可是它总是在Adodc1.Recordset("可用状态") = "t"这里报:对象变量或with块变量未设置
我找到原因了,每次对数据源改变后都必须用Adodc1.Refresh
对数据库刷新一下才能是新的数据源生效

Adodc1.RecordSource = "select * from 车辆信息表 where 车号='" & Text1.Text & "'" 不能这样用.你要在控件里面连接就可以了

哪么你就要用代码来连接
Sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 文件位置 & ";Persist Security Info=False"
Conn.Open Sql