|
3#
楼主 |
发表于 2008-10-6 23:41:28
|
只看该作者
通过以下代码,可以添加一条数据,但如何更改,才能添加批量数据呢?
Sub adoTest()
Dim adoRt As Object
Dim strSQL As String
'// 创建ADO记录集对象
Set adoRt = CreateObject("ADODB.RecordSet")
'// 设置SQL 语句
strSQL = "SELECT * FROM dingdanbiao WHERE False"
With adoRt
'// 设置需要连接数据库
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\示例\订单数据库.mdb"
.CursorLocation = 3
.CursorType = 1
.LockType = 3
'// 设置SQL语句
.Source = strSQL
'// 准备打开记录集
.Open
'// 新增记录
.AddNew
'// 赋值
.Fields("客户代码").Value = Range("A2").Value
.Fields("订单号码").Value = Range("B2").Value
.Fields("订单日期").Value = Range("C2").Value
'// 更新
.Update
MsgBox "添加成功", vbInformation, ""
'// 判断并关闭记录
If .State = 1 Then
.Close
End If
End With
'// 从内存中释放
Set adoRt = Nothing
ActiveWorkbook.RefreshAll
End Sub |
|