[求助]如何对跨库追加查询的路径进行动态修改

wdh008

A,B 2个库里都只有一个表结构一样.
同时都有一个追加查询,互相追加到对方的表中.根据需要:
2个库的位置分别在2台电脑上面.所以位置不固定,使用追加查询的绝对路径效果不好.(因为如果位置更改就得重新指定)
故我想做成当A库对B库（或者B库对A库）进行追加的时候,先提示需要指定追加的库的文件路径,然后按照指定的路径进行追加.

开始我在追加查询SQL里的路径指定为"a.mdb"，我认为这样是当前路径的意思，希望可以把数据追加到在同目录下的A库里面但是事实上有时候可以，有时候提示说“C:\Documents and Settings\Administrator\My Documents\a.mdb"未找到，我实在弄不懂啦。

后来听说可以用什么RUNSQL在vba中直接写更新查询，但是具体操作我就使不上来啦。而且还没定我编写好。就成红字提示出错。

whomai1731

wdh008

受到启示，我发现在罗斯文数据库中的员工图片更新也有这个效果。

这个很实用我觉得。如果可以动态更新的话，对于那种条件不好的电脑网络。不用固定地址，灵活。

fan0217

对，那样可以过滤掉其他文件类型。

其实数据库间追加记录，用ADO还是挺好的，我感觉。

[此贴子已经被作者于2006-2-22 18:44:23编辑过]

skylark

  To fan0217:

谢谢,哪是我的?,我是在Microsoft的Help上搬来的,我发现加上Filter会好一点.

With fd
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        .Filters.Add "Access", "*.mdb", 1

        ..............

谢谢!

fan0217

SKYLARK：可以将获取文件路径和名称的方法改为函数，以后调用方便。在你的基础上改的。

Public Function getFileName(blnAllowMultiSelect As Boolean) As String
'需要引用Office11 Object Libray
'获得文件路径及名称
'blnAllowMultiSelect是否复选
    Dim fd As FileDialog
    Dim vrtSelectedItem As Variant
   
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    With fd
        .AllowMultiSelect = blnAllowMultiSelect
        .InitialFileName = CurrentProject.Path

        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                getFileName = getFileName & ";" & vrtSelectedItem
            Next
            getFileName = Right(getFileName, Len(getFileName) - 1)
        Else
            getFileName = ""
        End If
    End With
   
    Set fd = Nothing

End Function

skylark

To cnhbjm:

请引用Office11 Object Libray

cnhbjm

用户定义数据未定义，怎么回事？

Dim fd As FileDialog

skylark

To wdh008:

你说得是对的,实际物价局追加的时间很短的.

wdh008

请问一下。那个进度条不是实时的把。