[求助]数据库盘符发生变化时，表格无法更新数据

sznt

我的电子表格的数据更新是通过数据菜单、倒入数据项，新建数据库查询来完成的

可当盘符发生变化时，表格无法更新数据，找不到数据库位置

每次手动很麻烦

能给做个例子么？

就是文件夹固定，文件夹内数据库固定（如\\输入系统\输入系统.mdb)

只是路径改变

在表格里有个路径选项，如f,则f:输入系统\输入系统.mdb

这样数据库盘符变化时 ，在表格内输一下盘符

数据便刷新了，有什么更好的办法，也希望多多指教

谢谢

[此贴子已经被作者于2005-4-9 9:35:03编辑过]

sgch1982

详细点，给出表

老鬼

http://www.office-cn.net/forum.php?mod=viewthread&tid=25978

没牙兔兔

Dim DBpath As String
    Dim Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    DBpath = ThisWorkbook.Path & Application.PathSeparator & "dbsourcedb.mdb"
    Conn.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath & ";User Id=adminassword=;"
   
    Conn.Open