刚编写数据库端程序，在控件中设置数据库属性时，通常是静态的。 这意味着存储在数据库中的路径是固定的，如使用VB的DATA、adodc和DATA环境
创建指向数据库的链接时，如果在打包后存储数据库的路径发生更改，则找不到根。 真的很为难。
参考一些人的代码，动态设置数据库路径应该也很容易。 另外，数据库设置密码时，连接属性的设置可能会有所不同。 顺便总结一下：
刚编写数据库端程序，在控件中设置数据库属性时，通常是静态的。 这意味着存储在数据库中的路径是固定的，如使用VB的DATA、adodc和DATA环境
创建指向数据库的链接时，如果在打包后存储数据库的路径发生更改，则找不到根。 真的很为难。
参考一些人的代码，动态设置数据库路径应该也很容易。 另外，数据库设置密码时，连接属性的设置可能会有所不同。 顺便总结一下：
一.使用data控件链接数据库时，可以执行以下操作：
放入form_load ()中：
私有表单_ load (
定义Dim str As String '
str=App.Path
ifright(str，1 ) )、' Then
str=str ''
End If
data1.databasename=str '数据库名称'
data1.recordsource='数据表名称'
data1.refresh
次结束
这些语言意味着打开当前程序正在运行的目录下的数据库。
只要确保你的数据库在你的程序所在的目录下就可以了。
对于具有密码的MDB文件：
以上，修改如下。
data1.databasename=str '数据库名称'
Data1.Connect='Access 2000； pwd=123 '
data1.recordsource='数据表名称'
data1.refresh
二、利用Adodc (Ado数据控制)进行数据库链接：
私有表单_ load (
定义Dim str As String '
str=App.Path
ifright(str，1 ) )、' Then
str=str ''
End If
str=' provider=Microsoft.jet.oledb.3.51； 永久安全
Info=False 数据源=' str
'tsl.mdb '
Adodc1.ConnectionString=str
Adodc1.CommandType=adCmdText
adodc1. record source=' select * from table3'
Adodc1.Refresh
最终辅
对于具有密码的MDB文件：
上述修改是连接之间的“； ”。
adostr=' provider=Microsoft.jet.oledb.4.0； Data Source='
adostr 'datadb.mdb；'
' jet oledb :数据库密码=123；'
三.利用数据环境进行数据库链接
你可以进去：
On Error Resume Next
ifdataenvironment1. RS command1. state
adStateClosed Then
选中data environment1. RS command1. close '时关闭
End If
请输入' i=InputBox '、'朋友编号： '、'输入' )
' If i='' Then Exit Sub
数据环境1.connection1. open app.path
'userdatabasetsl.mdb '
data environment1. RS command1. open ' select * from table3where编号=' '
I ' ' ' '
' setdata report2. data source=data environment 1
'数据报告2 .数据成员=' command1'
' DataReport2.show
最终辅
对于具有密码的MDB文件：
上面的修改是data environment1. connection1. open app.path
'userdatabasetsl.mdb；' ' jet oledb :数据库
Password=123； '
可以在模块中定义数据环境1，然后在load中打开它。
'在模块中定义数据环境：
globalconstdefsource=' provider=Microsoft.jet.oledb.4.0； 数据传输
Source='
Public db As ADODB.Connection
公共辅助开放数据库(
Set db=New ADODB.Connection
db.Open DEFSOURCE App.Path
'datadb.mdb；' ' jet oledb :数据库
Password=123； '
DNV.connection1=defsourceapp.path
'datadb.mdb；' ' Jet
oledb :数据库密码=123； '
最终辅
load中的opendb ) )时，将动态定义数据环境。
没有密码是因为：
globalconstdefsource=' provider=Microsoft.jet.oledb.4.0； 永久
安全信息=false； Data Source='
Public db As ADODB.Connection
公共辅助开放数据库(
Set db=New ADODB.Connection
db.Open DEFSOURCE App.Path
'datadb.mdb；'
DNV.connection1=defsourceapp.path
'datadb.mdb；'
最终辅
四.利用活动数据对象(ado )编程：
建立连接：
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim str
str=App.Path
ifright(str，1 ) )、' Then
str=str ''
End If
str=' provider=Microsoft.jet.oledb.3.51； 永久安全
Info=False 数据源=' str
'tsl.mdb '
conn.open str
rs.cursorlocation=aduseclient
rs.open '数据表名称'，conn，adopenkeyset.adlockpessimistic
使用完毕后关闭数据库：
conn.close
set conn=nothing
对于具有密码的MDB文件：
以上，修改如下。
str=' provider=Microsoft.jet.oledb.3.51； Data Source='
str 'tsl.mdb；'
' jet oledb :数据库密码=123；'
连接之间的“； 注意”