UC知道怎样弄可移植的vb数据库
来源：百度知道 编辑：UC知道 时间：2024/05/14 07:14:37
用的是microsoft access。
就是编写了一个程序，需要一个数据库，在本机上写的时候是通过外接程序--可视化数据管理选择建立起来，然后在建立好的数据库（包括表名和字段都确定了）上进行操作的，现在需要弄一个可移植的程序，就是放在别的机子上，当检查到指定位置没有所需要的数据库时，能够自己建立一个数据库。请问应该怎末弄啊？？？
就是编写了一个程序，需要一个数据库，在本机上写的时候是通过外接程序--可视化数据管理选择建立起来，然后在建立好的数据库（包括表名和字段都确定了）上进行操作的，现在需要弄一个可移植的程序，就是放在别的机子上，当检查到指定位置没有所需要的数据库时，能够自己建立一个数据库。请问应该怎末弄啊？？？
添加控件 Adodc
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\abc.mdb" '数据库文件
End Sub
你用ado链接数据库就可以了，比如你是access数据库
在菜单-工程-引用里选"Microsoft ActiveX Data Objects 2.0 Library",然后用如下代码:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
conn.Open "DBQ=" & "e:\health.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};"
rs.Open "select * from door", conn, 1, 1
MsgBox rs("doorid")
End Sub