VB向SQLSERVER插入记录

changleqy

于 2007-07-31 15:55:00 发布

阅读量4k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/changleqy/article/details/1719368

本文介绍了一种使用ADODB组件在Visual Basic中实现批量插入记录的方法。通过设置adLockBatchOptimistic锁定模式和调用UpdateBatch方法，可以在一次数据库连接中高效地插入多条记录。此外，还提到了另一种方法，即使用adLockOptimistic结合update来逐条添加记录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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