如何从ACCESS 到 SQL SERVER？

songshan046

请问在EXCEL里用VBA，把ACCESS的数据添加到SQL SERVER里去，怎么实现？或者直接在ACCESS 里面做也可以，谢谢。

鱼之乐

以下示例为将access中的table1表追加到sql server中的server_table表中,程序在access vba中通过 Dim ConnAcc As New ADODB.Connection Dim RsAcc As New ADODB.Recordset Dim ConnSql As New ADODB.Connection Dim RsSql As New ADODB.Recordset ConnAcc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mdbname;Persist Security Info=False" ConnSql.ConnectionString = "Provider=SQLOLEDB.1;Password=pwd;Persist Security Info=True;User ID=domain_chj;Initial Catalog=newstardbase;Data Source=servername" ConnAcc.Open RsAcc.CursorLocation = adUseClient RsAcc.Open "table1", ConnAcc, adOpenStatic, adLockBatchOptimistic If RsAcc.EOF Then MsgBox "无数据,程序将退出...": End RsAcc.MoveFirst ConnSql.Open Do While Not (RsAcc.EOF) ConnSql.Execute "insert into server_table values('" & RsAcc.Fields(0) & "','" & RsAcc.Fields(1) & "','" & RsAcc.Fields(2) & "','" & RsAcc.Fields(3) & "','" & RsAcc.Fields(4) & "')" Loop

songshan046

我需要在EXCEL中计算获得数据，然后与ACCESS中的记录进行匹配，将匹配结果导入SQL SERVER，如果分开做当然可以，但毕竟利用VBA是比较方便快捷的解决方案。谢谢鱼斑竹。

songshan046

能否指教为何游标要如此定义？ “RsAcc.CursorLocation = adUseClient”？ 我有时会有“行集合不能作为列标签”的错误提示。

lzs

我知道方法把数据直接从sql server导出到access的，用的是dao技术，不知道是不是适合相反的操作，下午试试看！

lzs

现在附上示例代码，试验过了，可以用，另外我想问一下如何才能实现各种数据之间的导入导出，如excel ,文本，dbf等，谢谢了 '先在引用中添加dao30，或者在窗体上随便拉一个data控件 '然后建一个odbc连接sqlserver数据库，建立一个access7.0数据库 '然后就可以进行操作演示了 Private Sub Form_Load() Dim DB As Database Dim cdb As String cdb = "odbc;dsn=zfgls;uid=sa;pwd=sa;database=aa;" Set DB = DBEngine.Workspaces(0).OpenDatabase("", 512, False, cdb) sqlstr = "Select * INTO a IN 'c:\aa.mdb' From a " DB.Execute sqlstr'从sqlserver中导出数据到access sqlstr = "insert into a select * from a in 'c:\aa.mdb'" DB.Execute sqlstr'从access导入数据到sqlserver End Sub

loadhigh

ODBC可以连接任何它支持的数据源。

leaf

为什么不在 SQL Server 中做呢？

loadhigh

为何不用access的vba？ 或者使用sql server的improt and export data 工具？