首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

excel导入数据库失误

2013-07-08 
excel导入数据库出错excel导入数据库出错;代码如下:procedure TOperateDataSource.Button1Click(Sender: T

excel导入数据库出错
excel导入数据库出错;代码如下:
procedure TOperateDataSource.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
   try
   OpenDialog1.Filter:='Execl文件(*.xls;*.xlsx)|*.xls;*.xlsx';
   if not OpenDialog1.Execute then exit;

   With ADOQuery1 do
   begin
      ParamCheck:=false;   
      str:='select * '
         +' FROM OpenDataSource(''Microsoft.ACE.OLEDB.12.0'','
         +' ''Data Source="'+OpenDialog1.FileName
         +'"; Extended Properties="Excel 12.0;HDR=Yes;";'
         +' Persist Security Info=false'')...[Sheet1$]';

    Close;
    SQl.Text:=str;
    Open;
   end;
   except
     Application.MessageBox('导入Excel出错!','提示');
   end;
   for i:=0 to DBGrid1.Columns.count-1 do
   begin
     DBGrid1.Columns[i].Width:=100;
     DBGrid1.Columns[i].Title.Color:=clgreen;
     DBGrid1.Columns[i].Title.Alignment:= taCenter;
   end;
   {
   DBGrid1.Columns[0].Width:=100;
   DBGrid1.Columns[1].Width:=150;
   DBGrid1.Columns[2].Width:=100;
        }

end;
结果程序在装有sqlserver2005数据库的服务器上运行正常,而在其它客户端机子上报"导入Excel出错!",是不是远程访问有权限问题,如果是,如何获得权限,求帮助。 delphi Excel 数据库 OpenDataSource
[解决办法]
Microsoft.ACE.OLEDB.12.0 其他客户机上是否有这个驱动?

热点排行