如何知道vb有没连上sql？

来源：百度知道 编辑：UC知道 时间：2024/09/22 20:18:52
我是菜鸟。在做一个程序的登录界面时，老是出现“if mrc.eof = true then”报错，经过分析可能是在Set mrc = ExecuteSQL(txtSQL, MsgText)这语句返回了一个空集。也就是说可能程序没有连上sql。所以请问各位高手如何解决这个问题。谢谢！

检查State属性是否为1，1表示已连接，0表示未连接，例好

dim Con as adodb.connection
dim Rst as adodb.recordset

con.connectionstring="xxxx" 'DB连接字串
if con.state<>1 then con.open '当未连接数据库时连接
if rst.state<>1 then rst.open "select * from 表1", con

一、if mrc.eof = true then出错并不一定是连接SQL出错。
二、想要检查连接SQL是否已经连接，可以检查SQL的连接状态，如下：
Dim strConString As String
Dim conADO As ADODB.Connection

conADO.Open strConString
If conADO=adStateOpen Then
MsgBox"已连接。"
Else
MsgBox"未连接。"
End If

这样判断：
if not(mrc is nothing) then'判断对象是否被引用
if mrc.state=adstateopen then'判断对象是否已打开连接
if mrc.eof() then '判断是否为“真”

...... '你的代码

end if
end if
end if