急急急急急急！如何将在SQLSERVER中的查询结果保存到ACCESS数据库的表中。

如何用代码将在SQLSERVER中的查询结果保存到ACCESS数据库的表中。

9 个解决方案

#1

你打开两个连接，这边查询好，那边保存。

#2

把每條記錄寫到 access中呀

#3

对呀,打开两个连接,分别打开不同的表,然后用 addnew ,update不就行了

#4

不明。有代码例子吗？

#5

sigh,你查询一下好吗？？sql读取、查询，access操作、储存

#6

两种方法：
第一：用代码来实现，先查询在保存，同时连接两个数据库么。
第二：直接通过sql server的数据转换到access数据库。

#7

直接利用SQL server的条件导出数据功能，就可以实现

#8

对，同意楼楼上的

#9

例子:

Dim rsace As ADODB.Recordset
Dim rssql As ADODB.Recordset
Dim aceconn As ADODB.Connection
Dim sqlconn As ADODB.Connection
Dim CnnStrAce As String
Dim CnnStrSql As String
Dim filnam As String

'打开sqlserver数据库连接
CnnStrSql="driver={SQL server};server=ip;uid=sa;pwd=;database=dbname"
Set sqlconn= New ADODB.Connection
sqlconn.Open CnnStrSql

'打开access数据库连接
filnam = '*.mdb'  '设置access数据库的名字
CnnStrAce = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & filnam
Set aceconn = New ADODB.Connection
aceconn.Open CnnStrAce

Set rsace = New ADODB.Recordset
Set rssql = New ADODB.Recordset
txtsql = "select * from tablename"
rssql.open "select * from tablename" ,sqlconn,1,1
rsace.Open "select * from tablename", aceconn, 1, 3

If Not rssql.EOF And Not rssql.BOF Then
   Do While Not rssql.EOF
     rsace.AddNew
     rsace("id") = rssql("hypmid")
     rsace("yblx") = rssql("yblx")
     ...
     rsace.Update
     rssql.MoveNext
   Loop
Else
   MsgBox "没有数据!", vbOKOnly + vbExclamation, "警告"
   Exit Sub
End If
rsace.Close
rssql.Close
MsgBox "导出成功!", vbOKOnly + vbInformation, "提示"

#1