数据库中的数据导出与导入，在线等

Question

现有一个sql server 数据库 
表s 字段 id title 
我想把数据库中的数据导出来，再导入到 数据库 mysql 
表s 字段 id title  （导过一回的就不再导） 
这怎么实现呀，谢谢

Answer 1

现有一个sql server 数据库 
表s 字段 id title 
我想把数据库中的数据导出来，再导入到 数据库 mysql 
表s 字段 id title  （导过一回的就不再导） 
这怎么实现呀，谢谢

Answer 2

方法有很多拉：
1.将MSSQL内的数据导出为EXCEL，MYSQL在导进
2.同时连接连个数据库，MSSQL取出一条数据先判MYSQL中有没有，没有插入，有就跳过。
.....呵呵，你没提供代码不知道你具体想要什么方法。楼下的继续！

Answer 3

我就会点MYSQL，其他的不咋会

Answer 4

从SQL导出数据为TXTprocedure TForm1.Button10Click(Sender: TObject);
var
   Ssql :string ;
begin
try
   ADOConnection10.Provider:='Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp;Extended Properties="text;HDR=YES;";Persist Security Info=False' ;
   Ssql :='SELECT * into SQLTXT.txt FROM Zlyfp IN [ODBC]' +
     '[ODBC;Driver=SQL Server;UID=;PWD=;Server=program.;DataBase=yj;]' ;
   ADOConnection10.Execute(Ssql );
  Application.MessageBox('导出数据成功  ！', PChar('数据导入导出提示'), MB_OK +
    MB_ICONINFORMATION + MB_TOPMOST);
except
  Application.MessageBox('导出数据失败  ！', PChar('数据导入导出提示'), MB_OK +
  MB_ICONINFORMATION + MB_TOPMOST);
end;   
end;
将TXT导入数据到SQLprocedure TForm1.Button11Click(Sender: TObject);
var
   Ssql :string ;
begin
try
   ADOConnection11.Provider:='Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp;Extended Properties="text;HDR=YES;";Persist Security Info=False' ;
   Ssql :='select * INTO Zlyfp1 FROM ' +
     'OpenRowset(''MSDASQL'', ''Driver={Microsoft Text Driver (*.txt; *.csv)}; '+
     'DefaultDir=c:\temp;'',''select * from SQLTXT.txt'')' ;
   ADOConnection11.Execute(Ssql );
  Application.MessageBox('导出数据成功  ！', PChar('数据导入导出提示'), MB_OK +
    MB_ICONINFORMATION + MB_TOPMOST);
except
  Application.MessageBox('导出数据失败  ！', PChar('数据导入导出提示'), MB_OK +
  MB_ICONINFORMATION + MB_TOPMOST);
end;   
end;  从SQL导出数据为EXCELprocedure TForm1.Button14Click(Sender: TObject);
var
  sqll:string ;
begin
try
  ADOConnection14.Provider :='Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEMP\TempXY.xls;Extended Properties=Excel 8.0' ;
  ADOConnection14.Connected := False ;
  ADOConnection14.Connected := True ;
  sqll :='SELECT * into SQLEXCEL FROM Zlyfpxy IN [ODBC] [ODBC;Driver=SQL Server;UID=;PWD=;Server=program.;DataBase=yj;]';
  ADOConnection14.Execute(sqll ) ;
  Application.MessageBox('导出数据成功  ！', PChar('数据导入导出提示'), MB_OK +
    MB_ICONINFORMATION + MB_TOPMOST);
except
  Application.MessageBox('导出数据失败  ！', PChar('数据导入导出提示'), MB_OK +
  MB_ICONINFORMATION + MB_TOPMOST);
end;
end;

将EXCEL导入数据到SQLprocedure TForm1.Button15Click(Sender: TObject);
var
  sqll:string ;
begin
try
  ADOConnection15.Provider :='Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\Temp.xls;Extended ' +
     'Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False' ;
  ADOConnection15.Connected := False ;
  ADOConnection15.Connected := True ;
  sqll := 'SELECT * into SQLEXCEL FROM ' +
    'OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="C:\temp\Temp.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False'')...sheet1$' ;
  ADOConnection15.Execute(sqll ) ;
  Application.MessageBox('导出数据成功  ！', PChar('数据导入导出提示'), MB_OK +
    MB_ICONINFORMATION + MB_TOPMOST);
except
  Application.MessageBox('导出数据失败  ！', PChar('数据导入导出提示'), MB_OK +
  MB_ICONINFORMATION + MB_TOPMOST);
end;
end;