在ADODC的数据连接中的问题？

Question

那就是你的数据库没有处于连接状态啊
具体语句呢？我帮你看看

Answer 1

Public cnn1 As New ADODB.Connection Public Const sc1 = “...”　连接串，自己写Public Function openConnection(cn As ADODB.Connection, sc As String) As Boolean  '连接数据库
    openConnection = False
    cn.Provider = "SQLOLEDB.1"
    cn.ConnectionString = sc
    If cn.State = adStateOpen Then
       Exit Function
    End If
    
On Error GoTo errmsg
    cn.Open
    openConnection = True
    Exit Function
errmsg:
    MsgBox "打开数据库时发生错误: " & Err.Description, vbCritical, "错误"
    Exit Function
End Function执行的时候先打开数据库，再执行语句openconnection cnn1,sc1
cnn1.execute "SQL语句"