20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: VB菜鸟问题adodc控件

作者: DIY [gongguyu]

论坛用户

private sub form_load()
Dim sqlserch As String
sqlserch = "select *from servers where cus='" + Trim(Text1.Text) + "'"
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;datasource=d:\data\example.mdb"
Adodc1.RecordSource = sqlserch
If Adodc1.Recordset.EOF Then
MsgBox "没有此型号"
Exit Sub
End If
set DataGrid1.DataSource = Adodc1
Adodc1.Recordset.Fields(1) = DataGrid1.Columns(0)
Adodc1.Recordset.Fields(2) = DataGrid1.Columns(1)
end sub

运行到If Adodc1.Recordset.EOF 时报错，对象变量或With块变量未设置
用adodc 控件如何判断recordset 的真假呀。请大家帮忙，我是新手，刚刚学不久！
去掉上面这个IF结构程序就可以运行，但是当数据库里面不存在时，也会报错，我想当数据里面不存在时退出程序(msgbox提示一下),不接着往下执行
在线等答案。谢谢各位

地主发表时间: 08-03-18 20:10

回复: jhkdiy [jhkdiy]

版主

我一般开发都不用ADODC控件了，直接用ADO.Connection对象和ADO.Recordset对象来操作数据库，Recordset对象有个RecordCount属性，用来返回记录的个数，你可以试试ADODC有没有这个属性。如果有的话就可以判断一下该属性了：

if Adodc1.Recordset.RecordCount > 0 then
'有记录
...
endif

B1层发表时间: 08-03-19 21:08

论坛: 编程破解