'由于 ACCESS 不支持批量 SQL 语句,只能通过VBA 实现
Public Sub RunSQL()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim FileObj
Dim TextObj
Dim TmpPath As String
Dim strSQL As String
Dim row As Integer
row = 1
TmpPath = "d:\querysql.sql"
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.OpenTextFile(TmpPath, ForReading, True)
DoCmd.SetWarnings False '关闭确认提示
Do While Not TextObj.AtEndOfLine
strSQL = TextObj.ReadLine '读sql文件内容
DoCmd.RunSQL strSQL '执行 SQL 查询
row = row + 1
Loop
DoCmd.SetWarnings True
MsgBox row
TextObj.Close
End Sub