VB实时错误‘91’

来源：百度知道编辑：UC知道时间：2024/05/16 11:29:22

模块代码
Public conn As adodb.Connection
Public rs As adodb.Recordset
Public strsql As String

Public Function ConnToDB() As Boolean
conn.ConnectionString = "Driver={sql server};server=XIANJUN;uid=sa;pwd=xianjun28;database=shiyan"
conn.ConnectionTimeout = 30
conn.Open
If conn.State = 1 Then
ConnToDB = True
Else
ConnToDB = False
End If
End Function

Public Function ExecuteSQL(strsql) As Boolean
On Error Resume Next
Set rs = conn.Execute(strsql)
If Err.Number <> 0 Then
ExecuteSQL = True
Else
ExecuteSQL = False
MsgBox "执行SQL语句出错", vbOKOnly + vbExclamation, "警告"
Err.Clear
End If
End Function
窗口代码

Private Sub Com_Ok_Click()
If Trim(Txt_name = "") Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, "警告"
Txt_name.SetFocus
Else
If ConnToDB = True Then
s

错误原因：
你的错误在于没有初始化对象conn

解决方法：
Public Function ConnToDB() As Boolean
‘第一句代码应为这个
conn =new adodb.Connection
‘然后再
conn.ConnectionString = "Driver={sql server};server=XIANJUN;uid=sa;pwd=xianjun28;database=shiyan"
conn.ConnectionTimeout = 30
conn.Open

vb 实时错误91 VB实时错误‘91’ VB代码“实时错误：'91' VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705 vb提示实时错误75 vb中实时错误的问题