请教VB前辈 DATA GRID 中.ActiveConnection 的问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 23:26:09
Dim xx
On Error GoTo x1
CommonDialog1.Filter = "数据文件(*.mdb)"
CommonDialog1.ShowOpen
xx = CommonDialog1.FileName
x1:
Dim rs As New ADODB.Recordset
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\xx;Persist Security Info=False"
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = "水准网"
rs.Open
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
运行这句时 总是有 查询不到 xx 数据库的错误 请教各位高人问题到底出在哪了 谢谢指点 等待各位前辈的回复

请教VB前辈 DATA GRID 中.ActiveConnection 的问题
悬赏分：20 - 离问题结束还有 0 小时
Dim xx
On Error GoTo x1
CommonDialog1.Filter = "数据文件(*.mdb)"
CommonDialog1.ShowOpen
xx = CommonDialog1.FileName
x1:
'察看xx是什么
msgbox xx

Dim rs As New ADODB.Recordset
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\xx;Persist Security Info=False"
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = "水准网"
rs.Open
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

注意路径
和打开数据库的返回值

我觉得应该是这块的问题