vb中DAO,ADO,Data控件连数据库的问题

Question

这个问题一直没搞定，那就是：比如用DAO写代码创建一个数据库，要给数据库指定一个路径，如e;\XXX\XXX.mdb。以后数据库就是这个路径了，要是拿到别的机器上也是这个路径，可是如果没有e盘就不行了啊。请问英雄们，怎样在应用程序所在的路径中创建和连接数据库啊，谢谢指点！！！！

Answer 1

path(app,pathname)
及为当前路径啊

Answer 2

建议和EXE文件一起，这样就可以用当前路径了~app.path

Answer 3

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.ConnectionSub Main
    Connstring = "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\xxx.mdb"
    Conn.Open Connstring
End SubPrivate Sub RsOpen(Sql)
    If Rs.State = 1 Then
        Rs.Close
    End If
    Rs.Open Sql, Conn, 1, 2
End Sub' 引用的时候你可以直接用　ＲｓＯｐｅｎ（Ｓｑｌ代码！）

Answer 4

比如：
我要扫描出　aaa 表中的所有记录
Sql="Select * from aaa"
RsOpen(Sql)

Answer 5

用app.path。
数据文件和你的VB工程文件放在一起。