如何解决通过 ADO 建 VFP 表时路径问题

[youyiwuyi]

我发现，如果本窗体或其他窗体有通用对话框时，通过ADO建VFP表时路径会改到通用对话框的路径，如何解决？例如以下代码就可能因此而出错：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.open "PROVIDER=MSDASQL;DRIVER={Microsoft Visual Foxpro Driver};SourceDB=" & App.Path + "\;SourceType=dbf"

'改变路径（如C:\)选择一个文件
CommonDialog1.ShouOpen

'新建的表路径与选择的文件同，而不在 App.Path
cn.Execute "create table test.dbf(word char(10))"

'会提示找不到表，把 test.dbf copy 到 App.Path 能正确执行
rs.open "select * from test.def",cn

[yinweihong]

给CommonDialog一个初始路径试试
commondialog1.initdir="..."

• 打赏
• 举报

回复 赞

[youyiwuyi]

试了，在程序里赋值不管用！急……

• 打赏
• 举报

回复 赞

[youyiwuyi]

我已经解决了：create table 的时候可以加上路径的：cn.Execute "create table " & app.path & "\test.dbf(word char(10))"

• 打赏
• 举报

回复 赞