设置对VB数据库连接的动态路径

使用app.path解决这个问题。

首先，对数据库链接使用数据控制，如下所示:

在form_load()过程中，放置:

私有表单_load()

“将字符串标注为字符串”定义

str = App。小路

如果Right(str，1)" "那么

str = str +" "

如果…就会结束

1.databasename = str& "数据库名称"

1.datarecordsource = "数据表名称"

数据1 .刷新

子端

这几个字的意思是，打开当前程序运行目录下的数据库。

只要确保你的数据库在你的程序所在的目录中。

二、使用adodc(ADO数据控件)链接数据库:

私有表单_load()

“将字符串标注为字符串”定义

str = App。小路

如果Right(str，1)" "那么

str = str +" "

如果…就会结束

str = "Provider=Microsoft。Jet . OLEDB.3.51Persist安全信息= False数据源=" & str & " sl.mdb "

Adodc1。连接字符串= str

Adodc1。CommandType = adCmdText

Adodc1。record source = " select * from table 3 "

Adodc1。恢复精神

末端接头

第三，利用数据环境连接数据库

在这个过程中，你可以把:

出错时继续下一步

如果data environment 1 . RS command 1 . state adstate closed，则

' data environment 1 . RS command 1 . close '如果它是打开的，它将被关闭。

如果…就会结束

I = InputBox("请输入你的朋友号:"，"输入")

如果i = " "那么退出Sub

数据环境1。连接1 .打开App。路径& "用户数据库sl.mdb "

data environment 1 . RS command 1 . open " select * from table 3 where number = ' " & I & " ' "

设置DataReport2。数据源=数据环境1

数据报告2。DataMember = "command1 "

数据报告2 .显示

末端接头

四。用ADO(ActiveX数据对象)编程:

建立连接:

dim连接作为新的adodb.connection

dim rs as new adodb.recordset

dim海峡

str = App。小路

如果Right(str，1)" "那么

str = str +" "

如果…就会结束

str = "Provider=Microsoft。Jet . OLEDB.3.51Persist安全信息= False数据源=" & str & " sl.mdb "

连接开放字符串

RS . cursor location = adus client

Rs.open“数据表名称”，conn，adopenkeyset.adlockpessimistic悲观

使用后关闭数据库:

连接关闭

设置连接=无