vb如何批量处理sql语句

[ckingirl]

我想给三个表分别insert新记录，必须保证都成功，所以有一个表insert不成功,另两个表的insert就不执行。怎么搞呢？？？

[SoHo_Andy]

SQL语句是支持多语句运行的，语句之间用分号隔开
如
cn.excute "insert 表1 (name) values ('张三');insert 表2 (name) values ('张三');"

如果想语句运行一定成功，则可以使用事务处理，把执行语句放到
事务中间，成功则三个都成功，否则事务回滚，插入操作都不成功

[Amphibian]

将插入操作编写为存储过程，在一个事务中处理。然后前端调用存储过程。

[taosihai1only]

Dim cn As New ADODB.Connection
Dim flag As Integer

On Error GoTo errout:
cn.Open "...."
flag = cn.BeginTrans
cn.Execute "update table1 set ..."
cn.Execute "insert into table2(col1,col2,...) select ..."
cn.Execute "delete table3 where..."
cn.CommitTrans
flag = 0
'........其他处理
Exit Sub

errout:
If flag = 1 Then cn.RollbackTrans

[zhizhi625]

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Private Sub Form_Load()
conn.Open "Dsn=data" '我用的是系统dsn 打开连接
On Error Resume Next
conn.BeginTrans
cmd.ActiveConnection = conn
cmd.CommandText = "insert 表1 (name) values ('张三')"
cmd.Execute
cmd.CommandText ="insert 表2 (name) values ('张三')"
cmd.Execute
cmd.CommandText ="insert 表3 (name) values ('张三')"
cmd.Execute
If conn.Errors.Count = 0 Then
conn.CommitTrans
Else
conn.RollbackTrans
End If
End Sub
如果sql语句很多，可以将SQL语句写成数组；用for循环执行！

[ckingirl]

谢谢4位了

[amongwang]

建议使用事务处理！

[yassee]

学习来了。

[KJ_Wang]

private sub InsertInto()
dim sqlStr as string
sqlstr="Insert into Table1(Field1,Field2,....Fieldn) values('"& value1 &"','"& value2 &"',....,'"& valuen &"')"
sqlstr=sqlstr & "Insert into Table2(Field1,Field2,....Fieldn) values('"& value1 &"','"& value2 &"',....,'"& valuen &"')"
sqlstr=sqlstr & "Insert into Table3(Field1,Field2,....Fieldn) values('"& value1 &"','"& value2 &"',....,'"& valuen &"')"

cn.begintrans
on error goto InsertErr
cn.execute(sqlstr)
cn.commitTrans
msgbox "插入成功!"
exit sub
InsertErr:
cn.rollbacktrans
msgbox "插入失败!"
end sub