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

bitls 2011-12-07 11:11:23
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下面写的.谢谢
...全文
65 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
haitao 2011-12-08
  • 打赏
  • 举报
回复
好像可以直接在adoquery里执行吧:
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;
kaikai_kk 2011-12-08
  • 打赏
  • 举报
回复
可以直接放在ADOQuery1.SQL中使用
注意单引号
都先生 2011-12-08
  • 打赏
  • 举报
回复
我觉得ADO是一样的。应该也是可以直接使用的。无非是delphi处理字符串值的时候,有时候是需要双单引号的
zgb99 2011-12-07
  • 打赏
  • 举报
回复
你可以用这两个函数来实现
accApp1.OpenCurrentDatabaseOld('c:\test.xls',False);
accApp1.DoCmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel8, 目标表, 'Import\data.xls',True,'','');

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧