str1:='MICROSOFT.JET.OLEDB.4.0';
  str2:='Excel 5.0;HDR=YES;DATABASE=d:\Book1.xls';
//ADOQuery2.SQL.Clear;
  ADOQuery3.SQL.Append('select * into kk from OPENROWSET  ('''+str1+''','''+str2+''','+'sheet1$)');
ADOQuery3.Active:=true

解决方案 »

  1.   

    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$]
    在查询分析器里面试试看,我试过了,可以的,
    你可以查查OpenDataSource这个函数,功能非常强大,可以实现sql server 与access,excel的数据交换,
    http://www.yesky.com/SoftChannel/72342371928965120/20030601/1704467.shtml
    里有比较详细的介绍!!
      

  2.   

    谢谢!可放到delphi内就报错了,你说这是为什么啊?
      

  3.   

    把操作的excel文件关闭了吗?