感谢剑指E、tanglf188老师EXCEL VBA查询ACCESS数据库，如何将结果数据保存到ACCESS...

4461

使用EXCEL VBA查询ACCESS数据库，如何将查询结果数据集保存到ACCESS数据库的临时表中，返回查询结果的数据条数

shiruiqiang

如何将查询结果数据集保存到ACCESS数据库的临时表中，返回查询结果的数据条数
不是多此一举吗？直接返回Excel表吧

tanglf188

插入一条如下，批量请用：insert into select from

1.     On Error GoTo ErrorHandler
   
2.     Dim Conn_object, Reco_object As Object
   
3.     Dim Conn_str, Path_str, Pass_str, Sele_str As String
   
4.     Dim i As Integer, ri As Integer
   
5.     Set Conn_object = CreateObject("ADODB.Connection") '新建数据库连接对象
   
6.     Set Reco_object = CreateObject("ADODB.RecordSet") '新建记录集对象
   
7.     Path_str = ThisWorkbook.Path & "\Data\MyDatabase.accdb" '设置数据库地址
   
8.     Pass_str = "" '数据库连接密码，如果数据库未设置密码，可以设置成任何字符串
   
9.     Conn_str = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
   
10.                  "Data Source=" & Path_str & ";" & _
    
11.                  "Persist Security Info=False;" & _
    
12.                  "Jet OLEDB:Database Password=" & Pass_str
    
13.     Conn_object.Open Conn_str '打开数据库
    
14.     Rem 数据库处理代码区
    
15.     Sele_str = "Select * From 用户账号 " '设置SQL语句
    
16.     Reco_object.Open Sele_str, Conn_object, 1, 3 '打开记录集对象，执行SQL
    
17.     Reco_object.AddNew '增加一行记录
    
18.     Reco_object("用户账号") = "U003" '数据库写入操作
    
19.     Reco_object("用户名称") = "王老大"
    
20.     Reco_object("登录密码") = "12345"
    
21.     Reco_object.Update '保存写入资料，如果使用只读权限，则不能使用这个方法
    
22.     Reco_object.Close '这个方法用来关闭你所代开的表，如果不使用这个方法也可以，但是数据库仍然认为你在对游标进行锁定，可造成数据库负担过重
    
23.    
    
24.     Conn_object.Close '关闭数据库连接
    
25.     GoTo Correct
    
26. ErrorHandler:
    
27.     MsgBox "数据库连接失败！" & Chr(10) & "错误编号：" & Err.Number & Chr(10) & "错误说明：" & Err.Description, 64, "错误信息"
    
28. Correct:
    
29.     Set Conn_object = Nothing
    
30.     Set Reco_object = Nothing

复制代码

剑指E

4461

剑指E 发表于 2024-6-20 17:10

谢谢老师热心的指点帮助！

4461

tanglf188 发表于 2024-6-20 16:38
插入一条如下，批量请用：insert into select from

谢谢老师指点