如何VB连接ACCESE数库.和查数库------急

Question

比如，我建一个名为dm1.mdb的数库
表1 字段 ID(自动)  name(文本型)
记录      1         中文歌
          2         英文歌
          3         翻唱歌
表2 字段 ID(自动)  aid(数字型)  name(文本型)           aname(默认值date())
          1            1          你爱上他               2006-11-21
          2            1           我不爱你               2006-11-21
          3            2           my love end            2006-11-21
          4            3           不得不爱-女翻唱版      2006-11-21
          5            3           不得不爱-男翻唱版      2006-11-21
          6            3           不得不爱-合唱版         2006-11-21
怎么在VB连接。。代码是不是放到。模版那里？
还是直直可以在窗体加连接数库的代码(本人是新手。只懂点点)
比如在VB新建一个窗体。名为:Form1。。
想要的效果是，启动Form1了。可以在Form1窗体下看到。。dm1.mdb的数库的[表2]所有记录。...最好。字段可以设置控制...
比如显示为结果为。
                   专辑(Label1)     歌名(Label2)      
                     中文歌          你爱上他
                     中文歌          我不爱你
                     英文歌           my love end            *****************************************************
当点。中文歌，就连接到。Form2 并按。中文歌专辑。列出。表2的记录。。不知道大家有没有听懂我说什么。或者有没有一些小VB程序。有像这样的功能
超小超好。。谢谢
[email protected]

Answer 1

将dm1.mdb放在程序所在目录下，用以下代码连接：
dim conn as new adodb.connection
With conn
    if int.State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dm1.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
End With

Answer 2

先看看书哦
Dim strconn As String
    strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;" & _
                    "Jet OLEDB:DataBase Password = 'admin' ;Persist Security Info=False;" & _
                    "Mode=Share Deny None;"
     
     '// 采用“异步连接”，使程序不会出现“假死”的情况
     conn.Open strconn, , , adAsyncConnect
     Do While conn.State = adStateConnecting
        DoEvents
     Loop
     Exit Sub
err1:
    MsgBox "错误号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
End Sub定义了之后使用，这是连接的字符串

Answer 3

不错。谢谢收藏
下面的代码。应该放到哪里呢。。放到。模版里还是。。
Private Sub Command1_Click()
************************
End SubDim strconn As String
    strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;" & _
                    "Jet OLEDB:DataBase Password = 'admin' ;Persist Security Info=False;" & _
                    "Mode=Share Deny None;"
     
     '// 采用“异步连接”，使程序不会出现“假死”的情况
     conn.Open strconn, , , adAsyncConnect
     Do While conn.State = adStateConnecting
        DoEvents
     Loop
     Exit Sub
err1:
    MsgBox "错误号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
End Sub

Answer 4

我用了你的代码。我在Form1双击加了你的代码。他说。用户定义类型为定义。要怎么做才做啊。。谢谢你们
Private Sub Form_Load()
Dim conn As New adodb.connection
With conn
    if int.State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dm1.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
End WithEnd Sub