在vb中如何编程使mdb数据库集成到程序里-eplan导入mdb部件库

作者的解决方案是使用app.path来解决这个问题。

1、使用数据控件链接数据库在vb中如何编程使mdb数据库集成到程序里在vb中如何编程使mdb数据库集成到程序里，如下：

放入form_load()过程：

私有 form_load()

Dim str As String 的定义

str = 应用程序路径

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

海峡=海峡+“”

万一

data1.databasename=str & "数据库名"

data1.recordsource="数据表名"

数据1。 刷新

子端

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

您只需要确保您的数据库在您的程序所在的目录下即可。

二、使用adodc（ADO Data Control）进行数据库链接：

私有 form_load()

Dim str As String 的定义

str = 应用程序路径

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

海峡=海峡+“”

万一

str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & " sl.mdb"

Adodc1.ConnectionString = 海峡

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "从表 3 中选择 *"

Adodc1。 刷新

结束子

3.使用DataEnvironment进行数据库链接

可以放在过程中：

出错继续下一步

如果 DataEnvironment1.rsCommand1.State adStateClosed 那么

DataEnvironment1.rsCommand1.Close '如果打开，则关闭

万一

'i = InputBox("请输入好友号码：", "Enter")

'如果我=“”然后退出子

DataEnvironment1.Connection1.Open App.Path & "userdatabase sl.mdb"

DataEnvironment1.rsCommand1.Open "select * from table3 where number='" & i & "'"

'设置 DataReport2.DataSource = DataEnvironment1

'DataReport2.DataMember = "command1"

'数据报告2。 展示

结束子

四、使用ADO（ActiveX Data Objects）进行编程：

建立连接：

将连接变暗为新的 adodb.connection

将 rs 调暗为新的 adodb.recordset

昏暗的海峡

str = 应用程序路径

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

海峡=海峡+“”

万一

str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & " sl.mdb"

conn.open 海峡

rs.cursorlocation=aduseclient

rs.open "数据表名", conn, adopenkeyset.adlockpessimistic

使用后关闭数据库：

连接关闭

设置 conn=nothing

（超过）