UC知道vb中调用sql数据库数据的登陆界面
来源：百度知道 编辑：UC知道 时间：2024/05/07 18:13:05
我的通用模块代码：
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addflag As Boolean
Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public fMainForm As frmMain
Public UserName As String
Public Function ConnectString() As String
'returns a DB ConnectString
ConnectString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\jlb.mdb" End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString '连接数据库
If InStr("INSERT,DELETE,
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addflag As Boolean
Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public fMainForm As frmMain
Public UserName As String
Public Function ConnectString() As String
'returns a DB ConnectString
ConnectString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\jlb.mdb" End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString '连接数据库
If InStr("INSERT,DELETE,
dl是nothing还是有值？
错误代码“3704”是表示“对象已关闭，不允许操作”。
你的ExecuteSQL函数中有ExecuteSQL_Error:、ExecuteSQL_Exit:
当你查询成功后你并没有主动退出函数，所以ExecuteSQL_Exit:总是会被执行（对象被关闭）。
在
MsgString = "查询到" & rst.RecordCount & " 条记录 " '显示查询到的记录数
后加一句:Exit Function
没仔细看,错误的理解了.
楼下jxh2003zfr 回答很好
好像是数据库没有链接好吧 你想办法链接看看链接好了没