100分！求数据库之间导数据的问题！

Question

假设有两数据库，名称abc.mdb，在不同路径下，ADOConnection1指向目标数据库C:\data\abc.mdb,另一数据库d:\data\abc.mdb,我要从d:\data\abc.mdb中表T1、T2、T3、T4、T5、T6的记录通过程序导入到C:\data\abc.mdb中表T1、T2、T3、T4、T5、T6。请看下列语句，2语句执行没问题，执行到3语句出现错误，说Insert Into语句有错误；去掉2语句，3语句执行也没问题，执行到4语句出现同样错误；......，也就是说执行第二句Insert就会出现问题。不知道这么解决。请各位朋友指教！
1    ADOConnection1.Connected := True;
2    ADOConnection1.Execute('Insert into T1 Select A.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T1 as A');
3    ADOConnection1.Execute('Insert into T2 Select B.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T2 as B');
4    ADOConnection1.Execute('Insert into T3 Select C.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T3 as C');
5    ADOConnection1.Execute('Insert into T4 Select D.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T4 as D');
6    ADOConnection1.Execute('Insert into T5 Select E.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T5 as E');
7    ADOConnection1.Execute('Insert into T6 Select F.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T6 as F');
8    ADOConnection1.Connected := False;

Answer 1

insert into好象要sqlserver的支持，access不知道支持么。
我以前用delphi的那个paradox也是这种问题。

Answer 2

To whbo(王红波) : Insert into access是支持的，问题是执行第一次Insert into没问题，而执行第二次Insert into就有问题，不知什么原因？

Answer 3

insert into data(字段..) SELECT * from [;database=D:\Program Files\qj_zjj.mdb;pwd=密码].datahttp://community.csdn.net/Expert/topic/3567/3567585.xml?temp=.1216547

Answer 4

opendatesour
http://dev.csdn.net/develop/article/40/40683.shtm

Answer 5

大不了执行一次操作就ADOConnection1.Connected := False;再连接.

Answer 6

adoquery在执行两条或多条insert操作的时候，如果不把上一条insert的语句clear掉，会报错
就好像上一条的insert语句还驻留在adoquery中一样，不知adoconnection是否有这样的情况

Answer 7

每个都加上
ADOConnection1.BeginTrans;
ADOConnection1.Execute('Insert into T1 Select A.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T1 as A');
ADOConnection1.CommitTrans;
ADOConnection1.BeginTrans;
ADOConnection1.Execute('Insert into T2 Select B.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T2 as B');
ADOConnection1.CommitTrans;

Answer 8

谢谢bee2518(迷茫ing)的回答，你估计错误的原因也不对。 jinjazz(近身剪（N-P攻略）) 也提到过用事务控制。执行第二次Insert into显示的错误为“Insert into语句的语法错误”，但是让它单独执行就没有这个错误，不管有没有用到事务控制。

Answer 9

insert into  OPENROWSET('Microsoft.Jet.OLEDB.4.0',    'C:\db.mdb';'admin';'', Test) select id,name from Test

Answer 10

insert into data(字段..) SELECT * from [;database=D:\data\abc.mdb;pwd=密码].data

Answer 11

各位朋友，还没有明白题意，一句insert into ...语句是没有问题的，多句执行才有问题。

Answer 12

>>各位朋友，还没有明白题意，一句insert into ...语句是没有问题的，多句执行才有问题。證明上面的語句能運行!
我想可能是訪問數據的權限問題,或者文件鎖定, 建義執行完一條Insert Into語句後將ADoConnection關閉後再打開試試

Answer 13

出现什么错误？请给出错误提示。
另外，事务处理，你不要每次执行都commit，全部执行完滞后再commit。

Answer 14

1    ADOConnection1.Connected := True;
2    ADOConnection1.Execute('Insert into T1 Select A.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T1 as A');
3    ADOConnection1.Execute('Insert into T2 Select B.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T2 as B');
4    ADOConnection1.Execute('Insert into T3 Select C.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T3 as C');
5    ADOConnection1.Execute('Insert into T4 Select D.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T4 as D');
6    ADOConnection1.Execute('Insert into T5 Select E.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T5 as E');
7    ADOConnection1.Execute('Insert into T6 Select F.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T6 as F');
8    ADOConnection1.Connected := False;
这种方法不行，为什么不改写一下，用ADOCommand
1    ADOConnection1.Connected := True;
     ADOCommand1.Connection = ADOConnection;
2    ADOCommand1.Execute('Insert into T1 Select A.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T1 as A');
3    ADOCommand1.Execute('Insert into T2 Select B.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T2 as B');
4    ADOCommand1.Execute('Insert into T3 Select C.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T3 as C');
5    ADOCommand1.Execute('Insert into T4 Select D.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T4 as D');
6    ADOCommand1.Execute('Insert into T5 Select E.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T5 as E');
7    ADOCommand1.Execute('Insert into T6 Select F.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T6 as F');
8    ADOCommand1.Connected := False;

Answer 15

在每一次insert into……后都刷新一下吧

Answer 16

上面的方法都试过了，不行！错误信息：‘Insert into语句的语法错误’ 
其实语法是不会有错，因为一句Insert into...语句执行没有问题。问题是二句或多句Insert into...语句执行时，执行到第二句就出现错误。

Answer 17

你用QUERY啊，
CLOSE；
SQL。CLEAR；

OPEN；
这样写肯定就不会有问题了

Answer 18

我是这样做滴
 用2个 ADOConnection分别指向你的2个access
再用2个adoquery 分别连接adoconnection 
  with adoquery1 do
   begin 
     append
     fieldbyname('').asstring:=adoquery2.fieldbyname.('')asstring;
     ..................
     .....
     open;
   end;
  这样不会有问题，就是麻烦了点

Answer 19

先做一个表T1的导入给你看看：delphi v60 + access 2000调试过的
procedure TForm1.Button1Click(Sender: TObject);
var sSql:string;
begin
  sSql := 'insert into T1 in ''C:\abc.mdb'' select *  from T1' ;
  //AdoConnection1联结到D:\abc.mdb  with adoConnection1 do
  begin
      Connected := True;
      Execute(sSql);
  end;
      showmessage('Import ok!');
end;

Answer 20

to  sun20031223(sunny) : 谢谢你，但是你没有看清我的题目，你接着两个或两个以上insert into同时插入试试看,你就会看到问题.

Answer 21

楼主，我几乎完全按照你的方式（不同位置的同一名称数据库，都有密码）测试过了，没有发现问题，用的Delphi7，不过不应该是这个引起的问题，我想大概是我们处理的数据量有差别造成的，我测试的只有几十条数据，如果楼主执行中处理的数据量太大可能会造成问题，我以前测试过，如果往一个
access数据库中存放超过200W数据后就会出现问题了，还有就是你每执行一个Insert后造成Access使用
空间迅速膨胀，需要收缩一下才能不会出现问题。这点需要你来印证，
楼主始终解决不了的话我建议你另外自己建立一个数据库来试一试。

Answer 22

是呀！我也遇到同样的问题呀！原以为过来看一下就可以解决，但是看了之后还是很失望！但是我是在一个Access数据库的一个表里用Insert into 语句的！也显示:'Insert into'语法错误.但是我在SQL的事务跟踪器里就没问题！用Update set也会有同样的提示！但是其他表用这两个语句就可以通过！不知道是什么原因！！！

Answer 23

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明如下：
 一、SQL SERVER 和ACCESS的数据导入导出常规的数据导入导出：使用DTS向导迁移你的Access数据到SQL Server，你可以使用这些步骤: 　　1在SQL SERVER企业管理器中的Tools（工具）菜单上，选择Data Transformation 　　2Services（数据转换服务），然后选择  czdImport Data（导入数据）。 　　3在Choose a Data Source（选择数据源）对话框中选择Microsoft Access as the Source，然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。 　　4在Choose a Destination（选择目标）对话框中，选择Microsoft OLE　DB Prov ider for SQL　Server，选择数据库服务器，然后单击必要的验证方式。 　　5在Specify Table Copy（指定表格复制）或Query（查询）对话框中，单击Copy tables（复制表格）。 6在Select Source Tables（选择源表格）对话框中，单击Select All（全部选定）。下一步，完成。 Transact-SQL语句进行导入导出：1.         在SQL SERVER里查询access数据:-- ======================================================SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名------------------------------------------------------------------------------------------------- 2.         将access导入SQL server -- ======================================================在SQL SERVER 里运行:SELECT *INTO newtableFROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0',       'Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名------------------------------------------------------------------------------------------------- 3.         将SQL SERVER表里的数据插入到Access表中-- ======================================================在SQL SERVER 里运行：insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名 (列名1,列名2)select 列名1,列名2  from  sql表实例：insert into  OPENROWSET('Microsoft.Jet.OLEDB.4.0',    'C:\db.mdb';'admin';'', Test) select id,name from TestINSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名)SELECT *FROM sqltablename-------------------------------------------------------------------------------------------------二、           SQL SERVER 和EXCEL的数据导入导出1、在SQL SERVER里查询Excel数据:-- ======================================================SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。SELECT * 
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
-------------------------------------------------------------------------------------------------2、将Excel的数据导入SQL server :-- ======================================================SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]实例:SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions-------------------------------------------------------------------------------------------------3、将SQL SERVER中查询到的数据导成一个Excel文件-- ======================================================T-SQL代码：EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'参数：S 是SQL服务器名；U是用户；P是密码说明：还可以导出文本文件等多种格式实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"' EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'在VB6中应用ADO导出EXCEL文件代码： Dim cn  As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"-------------------------------------------------------------------------------------------------
4、在SQL SERVER里往Excel插入数据:
-- ======================================================
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)T-SQL代码：
INSERT INTO   OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',   'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]   (bestand, produkt) VALUES (20, 'Test')  -------------------------------------------------------------------------------------------------总结：利用以上语句，我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换，为我们提供了极大方便！把文本文件导入到ACCESS
在Form上放一个ADOConnection,连结指向目标Access库
比如txt文件在c:\temp\aaaa.txt
就执行
ADOConnection.Connected := True;
ADOConnection.Execute('Select * Into abcd From [Text;Database=c:\temp].aaaa.txt');=============================================================================================把DBF(Foxpro数据库)导入到SQLSERVER
告诉你一个最快的方法，用SQLServer连接DBF(Foxpro数据库)
在SQLServer中执行
SELECT * into bmk
FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0,
 'Data Source="e:\share";User ID=Admin;Password=;Extended properties=dBase 5.0')...bmk

Answer 24

使用两个ADOCONNECTION控件就可以了，分别执行不同的操作。我以前碰到过类似的问题。因为使用同一个ADOCONNECTION控件的时候，连接缓冲中的数据不是时实刷新的，即使你重新连接也没有用。希望对你的问题有帮助。

Answer 25

每句都能单独运行，说明语句没有问题。
是不是要等2执行完后才能执行3？改成这样试试：1    ADOConnection1.Connected := True;
try
2    ADOConnection1.Execute('Insert into T1 Select A.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T1 as A');
finally
3    ADOConnection1.Execute('Insert into T2 Select B.* From [;Database=d:\data\abc.mdb;pwd=123'+'].T2 as B');
end;

Answer 26

pbsql:首先谢谢您的回答，您可能还没有真正理解我的意思，每句Insert into执行没有问题，但两句或多句Insert into执行时，执行到第二句Insert into就产生问题，不能执行下去，错误信息：‘Insert into语句的语法错误’ 。实际上，Insert into没有语法错误，因为每句Insert into执行没有问题，问题可能出在ADOConnection1.Execute的第一个参数CommandText上，但不知道怎么解决，望各位朋友帮忙！谢谢！

Answer 27

你理解了我的意思没有啊？试了我的方法了吗？实在不行，不要用ADOConnection直接执行，用adoquery试一下