Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=QIANY;uid=;pwd=;database=stock"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select * from HQ", conn, adOpenStatic, adLockBatchOptimistic
rs.AddNew
rs!DaiM = "600011"
rs.AddNew
rs!DaiM = "600012"
rs.AddNew
rs!DaiM = "600013"
rs.UpdateBatch
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "ok"
End Sub
————————————————————
以上两个需对应:adLockBatchOptimistic,UpdateBatch说明可以一次性插入多条记录
使用adLockOptimistic,update结合也可以,但只能单条添加
本文介绍了一种使用ADODB组件在Visual Basic中实现批量插入记录的方法。通过设置adLockBatchOptimistic锁定模式和调用UpdateBatch方法,可以在一次数据库连接中高效地插入多条记录。此外,还提到了另一种方法,即使用adLockOptimistic结合update来逐条添加记录。
2577

被折叠的 条评论
为什么被折叠?



