Office中国论坛/Access中国论坛

标题: 如何批量检查access中的查询？ [打印本页]

作者: qianerqianer 时间: 2008-3-27 16:10
标题: 如何批量检查access中的查询？
我有很多ACCESS数据库需要检查，主要是检查库里的查询条件写得是否正确。这些库中数据表的结构都是一样的。有什么办法能批量检查，而不用一个一个打开查看吗？？

作者: Grant 时间: 2008-3-27 16:12
可以变成写一个,参考一下批量导出txt
把所有mdb文件集中进行循环检查

作者: qianerqianer 时间: 2008-3-27 16:15
LS可以说得更明白些吗？不太清楚

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

作者: qianerqianer 时间: 2008-3-27 16:36
是这样的，我希望能检查学生做的查询是否正确，但学生数多，因此一个个检查起来太麻烦了。我希望能有什么办法，能一次性检查所有学生的数据库里做的查询是否正确，每个学生做的查询都是一样的。

作者: Grant 时间: 2008-3-27 17:24
呵呵~是可以的
快下班了时间不多,只能告诉你方法
先把数据库集中起来放置在一个文件夹,在通过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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)