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 其他客户机上是否有这个驱动?