vba中如何将sql查询直接导入access数据库中

jilijun · 发表于 2009-1-8 23:08

请教各位老师：在VBA中如何才能将sql server 2000数据库的查询结果集（Recordset），直接写入到ACCESS？
谢谢！！

YANGYUNHAO · 发表于 2009-1-9 08:38

我也想知道，更想知道怎样把ACC导入到SQL

zhjd · 发表于 2009-1-22 17:21

我也想知道。

luckycrow · 发表于 2009-1-23 13:12

分两段代码分别读取和导入不成吗？

sbm321 · 发表于 2009-1-27 10:01

我也想知道怎么实现啊，各位老大帮帮忙啊

dcw0402 · 发表于 2009-2-7 18:05

好高深阿留个记号日后再来反刍消化

YANGYUNHAO · 发表于 2009-2-7 08:20

cnn.Open "Driver={SQL Server};Server=192.168.18.2;database=" & "XZBY" & ";uid=sa;pwd=hulizhen"
On Error GoTo ErrMsg
strSQL = "INSERT INTO CLOCK_CARD(card_no,card_id,card_date,card_time,card_clock,cOLlect_date,card_flag,card_remark) SeLECT A.card_no,A.card_id,A.card_date,A.card_time,A.card_clock,A.cOllect_date,A.card_flag,A.card_remark From " & "OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=\\PC\APS$\GS.mdb;Jet OLEDB:Database Password=2800;')...clock_card AS A"
strSQL = strSQL & " WHERE A.CARD_DATE between '" & 刷新数据.DTPicker3 & " 'and' " & 刷新数据.DTPicker1 & "'"
rst.Open strSQL, _
cnn, adOpenKeyset, adLockOptimistic, adCmdText

[ 本帖最后由 YANGYUNHAO 于 2009-2-7 08:21 编辑 ]

jilijun · 发表于 2009-2-7 12:44

原帖由 YANGYUNHAO 于 2009-2-7 08:20 发表
cnn.Open "Driver={SQL Server};Server=192.168.18.2;database=" & "XZBY" & ";uid=sa;pwd=hulizhen"
On Error GoTo ErrMsg
strSQL = "INSERT INTO CLOCK_CARD(card_no,card_id,card_date,card_time,card_clock,cO ...

真是太感谢YANGYUNHAO了，找到解决方法也不忘贴出了供大家学习参考！！！
再次对您的热心表示感谢！！！

		自动登录	找回密码
密码			免费注册

[求助] vba中如何将sql查询直接导入access数据库中

我已知道