VBA中执行SQL存储过程的问题。

[zts107]

我在Excel中用如下VBA代码将当前EXCEL行记录插入到SQL 表。我想在VBA中加一段代码当所有Excel记录插入完成后再执行一个SQL的存储过程。请教如何实现？谢谢！

VBA代码下：
cn.Open strCn
'清空表记录
cn.execute "truncate table table1"
'循环增加记录
For row = Me.TextBox1.Value To Me.TextBox2.Value
strSQL = "insert into table1(供应商代码,物料代码,单位,不含税单价,供应商名称,物料名称) values ( '" & Sheet3.Cells(row, 1) & "','" & Sheet3.Cells(row, 2) & "','" & Sheet3.Cells(row, 3) & "','" & Sheet3.Cells(row, 4) & "','" & Sheet3.Cells(row, 5) & "','" & Sheet3.Cells(row, 6) & "')"
cn.execute strSQL
Next row
cn.Close

[饮水需思源]

cn.Open strCn
'清空表记录
cn.execute "truncate table table1"
'循环增加记录
For row = Me.TextBox1.Value To Me.TextBox2.Value
  strSQL = "insert into table1(供应商代码,物料代码,单位,不含税单价,供应商名称,物料名称) values ( '" & Sheet3.Cells(row, 1) & "','" & Sheet3.Cells(row, 2) & "','" & Sheet3.Cells(row, 3) & "','" & Sheet3.Cells(row, 4) & "','" & Sheet3.Cells(row, 5) & "','" & Sheet3.Cells(row, 6) & "')"
cn.execute strSQL
Next row
cn.execute " exec 存储过程名 "
cn.Close

[zts107]

谢谢leftie,
不过运行时要点三次btn_Click()按钮才会生效，为什么呢。。有点晕。

难道是我的存储过程有问题？

[zts107]

就是我这个存储过程要循环运行三次才会生效。

[zts107]

大至环境描述一下：
1，用excel行记录插入到某一数据库的表table1，这一步已正常。代码如下：
cn.Open strCn
'清空表记录
cn.execute "truncate table table1"
'循环增加记录
For row = Me.TextBox1.Value To Me.TextBox2.Value
strSQL = "insert into table1(供应商代码,物料代码,单位,不含税单价,供应商名称,物料名称) values ( '" & Sheet3.Cells(row, 1) & "','" & Sheet3.Cells(row, 2) & "','" & Sheet3.Cells(row, 3) & "','" & Sheet3.Cells(row, 4) & "','" & Sheet3.Cells(row, 5) & "','" & Sheet3.Cells(row, 6) & "')"
cn.execute strSQL
Next row
cn.execute " exec 存储过程名 "
cn.Close

2.再用table1中的字段"不含税单价"去关联并更新其它的表。
写了一个用于更新的的存储过程，代码如下：
update icstockbtry
set icstockbtry.fprice=b.不含税单价,fauxprice=(fprice/1.17),famount=(fqty*fauxprice)
from icstockbtry a, table1 b, icstockbill c,t_icitem d,t_supplier e
where c.fdate=b.入库日期 and b.物料代码=d.fnumber and b.供应商代码=e.fnumber and c.ftrantype=1 and a.finterid=c.finterid

可是问题来了，为什么要在确定三次Button按钮icstockbtry表才会更新呢？头大了！