vba如何一次执行多条SQL语句

nblhj

一是sql太长，二是超时，三是应用变量、临时表，等等
总之，希望一次执行多条sql，请指教，谢谢

⊙⊙小噤○

可以试试sql语句之间用;分割

ftgli

vba没有多线程吧

ftgli

vba没有多线程吧

abc123281

sql = sql & " union all "

nblhj

；貌似不行
union all还是单语句，并且容易超时
初步考虑存储过程，是否有更好的方法，请大家指教

nblhj

论坛上的类似问题的贴子：http://club.excelhome.net/thread-975655-1-1.html
说是加set nocount on
不明白最终写法
请各位多多指教，谢谢了

zopey

不了解你的具体问题，有个例子说明一下最好。

zopey

Private Sub CommandButton1_Click()
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

Dim sqls As New Collection
sqls.Add "select * from [sheet1$]"
sqls.Add "select 姓名,生日 from [sheet1$]"
'....
cnn.BeginTrans '开始事务
On Error GoTo err
For i = 1 To sqls.Count
    cnn.Execute sqls(i)
Next
cnn.CommitTrans '提交事务

cnn.Close: Set cnn = Nothing
Exit Sub

err:
cnn.RollbackTrans '如果错误,回滚
If cnn.State = 1 Then cnn.Close: Set cnn = Nothing
End Sub

nblhj

zopey 发表于 2018-5-15 09:24
不了解你的具体问题，有个例子说明一下最好。

例子同此贴：
http://club.excelhome.net/thread-975655-1-1.html
简单地讲，如何一次执行以下3条sql：
if object_id('tempdb..#shops') is not null
drop table #shops
select * into #shops from areashops
select * from #shops