Question

VB程序找不到文件

我做了一个MDB格式的文件放在文件夹中，当VB程序运行时显示不能找到文件部分程序如下： Set rstz = New Recordset

rstz.Open "select * from 特征数据表", "provider=microsoft.jet.oledb.3.51;" & "data source=" & App.Path & "\database\bpfusiondatabase\数据采集特征库05.mdb", adOpenKeyset, adLockOptimistic
数据采集特征库05 是我自己做的文件

Answer 1

1、关键是你自己做的“数据采集特征库05.mdb” 数据库的位置在那里？是不是在 “App.Path & "\database\bpfusiondatabase\数据采集特征库05.mdb"”这个路径中？

2、没有数据库链接对象，应该添加：
Dim db As New ADODB.Connection 数据库链接对象
Dim RS As New ADODB.Recordset 记录集对象

3、链接数据库
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\database\bpfusiondatabase\数据采集特征库05.mdb"
db.Open

4、打开记录集：
strSQL = "select * from 特征数据 "
RS.Open strSQL, db, 2, 2

Answer 2

& "\database\bpfusiondatabase\数据采集特征库05.mdb"改成
& "\\database\\bpfusiondatabase\\数据采集特征库05.mdb"试试

Answer 3

你要放在同EXE的文件下。