本文介绍了一段使用VBA进行数据库操作的代码示例，该示例演示了如何打开连接并使用静态游标向名为'abc'的表中批量插入四条新记录的过程。每条记录包含三个字段，其值相同且等于该记录的插入序号。
Dim cn As New Connection
Dim rst As New Recordset
cn.Open str
cn.CursorLocation = adUseClient
rst.Open "select * from abc ", cn, adOpenStatic, adLockBatchOptimistic
Dim i As Integer
For i = 0 To 3
rst.AddNew
rst.Fields(0).Value = i
rst.Fields(1).Value = i
rst.Fields(2).Value = i
rst.Update
Next
rst.UpdateBatch
Dim rst As New Recordset
cn.Open str
cn.CursorLocation = adUseClient
rst.Open "select * from abc ", cn, adOpenStatic, adLockBatchOptimistic
Dim i As Integer
For i = 0 To 3
rst.AddNew
rst.Fields(0).Value = i
rst.Fields(1).Value = i
rst.Fields(2).Value = i
rst.Update
Next
rst.UpdateBatch
扫一扫
2427
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
