VBA 执行 SQL

最新推荐文章于 2023-03-22 00:13:02 发布

lab2013

最新推荐文章于 2023-03-22 00:13:02 发布

阅读量4.6k

点赞数

文章标签： vba sql integer string access

本文链接：https://blog.csdn.net/lab2013/article/details/7570241

版权

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