怎样在程序中打开数据库？

Question

（
edyang 看着挂在墙头上的一串儿葡萄（50 颗啊！）流口水...
怎么办？他个头不高，手伸出去太低，够不着！
哈！有了，临时抱佛脚 - 梯子！
）
在设计环境下设置好你的 Connection/Command 之类；
再你的任意 FORM 上，设置某控键的 DataSource = Connection, DataMember = Command, DataField = Table Column；
运行时，你的 Connection/Command 自动建立；如果没有任何 Data Bound 控件引用的滑稽不会建立，除非你直接用代码显式去做。

Answer 1

 这是我编的一段小程序，好像是你所要的：
 Dim statdb As Connection
Set statdb = New Connection
    'statdb.Open "provider=Microsoft.JET.OLEdb.3.51;data source=" & App.Path & "\QXJ.mdb"
    statdb.Provider = "microsoft.JET.OLEDB.3.51"
    statdb.Mode = adModeShareDenyRead
    statdb.ConnectionString = App.Path & "\\QXJ.mdb"
    statdb.Open

Answer 2

aan2000:看来您是个高手。
如果数据库有密码怎么办呢？

Answer 3

有密码可以加上去吗，uid=your databaseusername;pwd=your password
就可以了，如果还不行，再提吧
db.open "driver={microsoft jet oledb.3.51};uid=***;pwd=***;data source=your need"

Answer 4

lrf这样打不开呀！
详细代码如下，请看看应把密码加在哪里？
急！拜托拜托。
Private Sub DataEnvironment_Initialize()    movies.Provider = "microsoft.JET.OLEDB.3.51"
    movies.Mode = adModeShareDenyRead
    movies.ConnectionString = "data source=" & App.Path & "\movies.mdb"
    MsgBox movies.ConnectionString
    movies.OpenEnd Sub