34,837
社区成员
发帖
与我相关
我的任务
分享我想用SQL语句把SQLSERVER的表里数据导入ACCESS数据库，谁能告诉我，！先谢谢了！！
我想用SQL语句把SQLSERVER的表里数据导入ACCESS数据库，谁能告诉我，！先谢谢了！！
...全文
请发表友善的回复…
发表回复
BBQ 2003-05-22
- 打赏
- 举报
可以解决，偶用过
方法：
'1.打开本地库Loacal.mdb
If fs.FileExists("c:\Loacal.mdb") = False Then
Dim db As Database
Set db = CreateDatabase("c:\Loacal.mdb", dbLangGeneral)
Set db = Nothing
End If
'2.与SQL Server的连接
ConnectString = "[ODBC;Driver={SQL Server};SERVER=" & DBName & "Server;DATABASE=" & DBName & ";UID=sa;PWD=]"
'3.执行语句
Dim rs As New ADODB.Recordset
SQL = "select * into 本地库的表 from " & ConnectString & ".服务器端表 "
& " where 条件"
rs.Open SQL, LocalCn, adOpenDynamic, adLockBatchOptimistic
'4。此为批量插入,本地库必须已建好,表可以没有
方法：
'1.打开本地库Loacal.mdb
If fs.FileExists("c:\Loacal.mdb") = False Then
Dim db As Database
Set db = CreateDatabase("c:\Loacal.mdb", dbLangGeneral)
Set db = Nothing
End If
'2.与SQL Server的连接
ConnectString = "[ODBC;Driver={SQL Server};SERVER=" & DBName & "Server;DATABASE=" & DBName & ";UID=sa;PWD=]"
'3.执行语句
Dim rs As New ADODB.Recordset
SQL = "select * into 本地库的表 from " & ConnectString & ".服务器端表 "
& " where 条件"
rs.Open SQL, LocalCn, adOpenDynamic, adLockBatchOptimistic
'4。此为批量插入,本地库必须已建好,表可以没有
wjidler 2003-05-22
- 打赏
- 举报
用access->新建->项目(现有数据库)->创建（.adp文件，记住这个文件名）->（服务器填127.0.0.1,填入帐号，密码，选择相应的数据库)->之后关掉所有窗口->再新建一个数据库（.mdb)->在左侧菜单的‘表’上面单击右键选导入,现在就找我们刚才创建的那个.adp文件就可以了....
cyliao 2003-05-22
- 打赏
- 举报
up
squller 2003-05-22
- 打赏
- 举报
DTS数据库导出可以做到
lihonggen0 2003-05-22
- 打赏
- 举报
DTS数据库导出
a1n1 2003-05-14
- 打赏
- 举报
dtswiz 实用工具
leorb 2003-05-14
- 打赏
- 举报
好像不可能的，换其他办法吧。。。
