VBA 执行 SQL

'由于 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