Dzwebs.Net

撰写电脑技术杂文十余年

如何让Access一次性执行多条SQL语句

Admin | 2014-12-4 6:16:50 | 被阅次数 | 13135

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  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


该杂文来自: 数据库Sql,VFP,Access

上一篇:一步就能清理删除SQL所有数据表的三种方法

下一篇:access导入提示无效的表达式

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计