如何批量检查access中的查询？

qianerqianer

我有很多ACCESS数据库需要检查，主要是检查库里的查询条件写得是否正确。这些库中数据表的结构都是一样的。有什么办法能批量检查，而不用一个一个打开查看吗？？

Grant

可以变成写一个,参考一下批量导出txt
把所有mdb文件集中进行循环检查

qianerqianer

LS可以说得更明白些吗？不太清楚

Grant

你是检查每个库的查询条件吗?
循环连接库,如果表中都有记录,那么查询条件能够查出记录就知道是否好坏了,或者我不太清楚你的检查情况
如果你能够详细些描述或许我能够提供更好的信息

qianerqianer

是这样的，我希望能检查学生做的查询是否正确，但学生数多，因此一个个检查起来太麻烦了。我希望能有什么办法，能一次性检查所有学生的数据库里做的查询是否正确，每个学生做的查询都是一样的。

Grant

呵呵~是可以的
快下班了时间不多,只能告诉你方法
先把数据库集中起来放置在一个文件夹,在通过fso来获得文件夹内的文件

Sub ShowFolderList(strFolderPath As String)    '向待导入数据列表矿添加数据的过程

    Dim i As Long
    Dim fso As Object
    Dim objFolder As Object
    Dim objFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(strFolderPath)

    Me.List1.RowSource = ""
    For Each objFile In objFolder.Files
        Me.List1.AddItem (objFile.Name)
    Next

    Set objFile = Nothing
    Set objFolder = Nothing
    Set fso = Nothing

End Sub

在用循环对列表框的文件名逐一检查即可~