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

Question

把每條記錄寫到 access中呀

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

例子: 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, "提示"