演员王瑄:ADO实现EXCEL与ACCESS数据存储,提示出错(页 1)

来源：百度文库编辑：中财网时间：2024/05/05 06:38:40

Sub ADO_INPUT() '将记录导入到excel中
Dim RS1 As Recordset
Dim DB1 As Database
Dim col As Integer
Dim I As Integer
'On Error GoTo 1000
col = Sheet2.Range("A65535").End(xlUp).Row
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "backdatabase.accdb ")
Set RS1 = DB1.OpenRecordset(Name:="aa", Type:=dbOpenDynaset)
dim m as integer
For I = 7 To col
With RS1
.AddNew
for m = 1 to 17
'如果你的数据库中的数据跟excel都是按照顺序来的，则用一个循环足以！
.fields(m)=sheet2.cells(i,m)
next
.Update
End With
Next I
RS1.Close
'1000: MsgBox "找不到符合条件的记录", 1 + 64, "系统提示"
End Sub

怎样通过asp中的ADO把excel中数据导入到Access数据库中？怎么用DreamWeaver实现与Access数据的绑定, 能否把excel中数据整行整行的导入access中？用vc编码怎样实现？求vb+ado+Access代码添加数据库数据的代码 access数据库能存多少数据如何实现windows2000 与windows ce之间的Access 数据库共享和数据交换 Excel数据如何导入Access数据库 excel的数据如何导入access excel数据导入access时发生错误！！！ excel或者access数据查重 excel中的数据导入到access Excel表导Access数据库数据改变 access 数据库设计与实现 JavaScript与access读取数据 ado访问access数据库 vb ado连接access 实现excel数据导入paradox问题用EXCEL实现自动核对填充数据 excel内如何实现数据求和功能》？在EXCEL中实现数据同步功能 vb 与 excel 数据交互怎样实现Dreamweaver与Access的连接? asp 与 access数据库是否类型数据如何在VB里面实现导出ACCESS到EXCEL