access转mysql教程视频
vba编辑多条Mysql程序_如何让Access⼀次性执⾏多条SQL语
句
Access本⾝是不⽀持执⾏多条SQL语句的，因此，要想在Access中批量运⾏SQL语句是不可能的。但是我们借助VBA的功能来解决该问题。
解决问题的根本在于：将SQL多条批量语句存放到某个*.SQL⽂件中，然后，通过VBA来调⽤该⽂件运⾏，这样就能解决问题了。以下的SQL⽂件为E:\Mysql.sql。
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 = "E:\Mysql.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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。