SQL语句->改成DELPHI在DELPhi下面使用,如何改?

SQL code

insert OPENDATASOURCE('SQLOLEDB','Data Source=127.0.0.1\MSSQL;User ID=sa;Password=123456').TMS.dbo.seres
 SELECT * FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data 

Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 8.0')...[Sheet1$]

ADOQuery1.SQL.ADD下面写的.谢谢

你可以用这两个函数来实现  
accApp1.OpenCurrentDatabaseOld('c:\test.xls',False);
  accApp1.DoCmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel8, 目标表, 'Import\data.xls',True,'','');
 

好像可以直接在adoquery里执行吧：
Delphi(Pascal) code

adoquery1.sql.text:='insert OPENDATASOURCE(''SQLOLEDB'',''Data Source=127.0.0.1\MSSQL;User ID=sa;Password=123456'').TMS.dbo.seres   SELECT * FROM OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 8.0'')...[Sheet1$]'
);
adoquery1.excute;