vb怎样连接access2000数据库,谢谢

Question

如有access2000数据库,名字:userdata,里面有一个表:userdata,表里有两个字段:uname和upsw 都是字符型的.
请问怎样建立连接并把uname显示在text1中,把upws显示在text2中?谢谢了,最好请给出整个代码,再次
感谢

Answer 1

补充一点,数据库userdata设置的密码"a1234"

Answer 2

引用Microsoft ActiveX Data Objects 2.5 LibraryPrivate Sub Command2_Click()
    Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Sql As String
    Dim InsertSql As String
    Dim Index As Long
    Dim i As Long
    
    Set Con = New ADODB.Connection
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\userdata.mdb;Persist Security Info=False"
    Set rs = New ADODB.Recordset
    rs.Open "Select * From userdata", Con, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        Text1.Text = rs.Fields("uname")
        Text2.Text = rs.Fields("upsw")
    End If
    rs.Close
    Set rs = Nothing
    Con.Close
    Set Con = Nothing
End Sub

Answer 3

Provider=Microsoft.Jet.OLEDB.4.0;Password=a1234;User ID=sa;Data Source=C:\userdata.mdb;Persist Security Info=True

Answer 4

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\userdata.mdb;Jet OLEDB:DataBase password=a1234;"
    
    rs.CursorLocation = adUseClient    
    rs.Open "Select * From userdata", cn, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        Text1.Text = rs.Fields("uname")
        Text2.Text = rs.Fields("upsw")
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 5

Private Sub Command3_Click()
 Dim CnnX As ADODB.Connection
 Dim RstX As ADODB.Recordset
 Set CnnX = New ADODB.Connection
  CnnX.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\userdata.mdb;Jet OLEDB:DataBase password=a1234;"
Set RstX = New ADODB.Recordset
Set Adodc1.Recordset = RstX
Me.Adodc1.Refresh
End Sub
在MSFLEX 上显示