UC知道VB用ado连数据库怎么实现对表的操作
来源：百度知道 编辑：UC知道 时间：2024/05/31 22:54:32
我现在以经有ado的代码运行没有报借但是我现在不知道 连没有连上，我把这个连接写到了模块里面，在别的form里面怎么调用这个连接，怎么操做我数据库里面的表，最好给个例子参考一下谢谢
Public conn As ADODB.Connection
Public DBSTR As String
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
DBSTR = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & App.Path & "\date\ycjk.MDB" & ";Jet OLEDB:Database Password=ycjk ;Persist Security Info=False"
conn.ConnectionString = DBSTR
conn.Open
rs.Open "select * from user", conn, 3, 3
MsgBox rs.Fields(0).Value
'frmLogin.Show
End Sub
Public conn As ADODB.Connection
Public DBSTR As String
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
DBSTR = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & App.Path & "\date\ycjk.MDB" & ";Jet OLEDB:Database Password=ycjk ;Persist Security Info=False"
conn.ConnectionString = DBSTR
conn.Open
rs.Open "select * from user", conn, 3, 3
MsgBox rs.Fields(0).Value
'frmLogin.Show
End Sub
写在模块里面，至少也应该放在一个函数里或者子Sub里啊？
然后就平时那样调用函数或者Call sub
MsgBox rs.Fields(0).Value 这句如果能显示正确值，不就说明连接上了？