用delphi 控制excel 的导入怎么不好使(急)
我的数据库里的一个表abc(aa,bb,cc);
我用delphi 控制打开c;\a.xsl 文件
想把他的 excel 的数据用sql 语句导到数据库里面,怎么
不好使,执行后abc表还是空表,吗的,气人
procedure TForm1.Button3Click(Sender: TObject);
var s:string;
var i,j:integer;
var
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
begin
try
ExcelApplication1 := TExcelApplication.Create(Application);
ExcelWorksheet1 := TExcelWorksheet.Create(Application);
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelApplication1.Connect;
except
Application.Messagebox('Excel 没有安装!','Hello', MB_ICONERROR + mb_Ok);
Abort;
end;
try
ExcelApplication1.Workbooks.Add(EmptyParam, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
//打开的excel 文件
ExcelApplication1.Workbooks.Open('c:\a.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
//ExcelApplication1.Visible[0]:=true;
for i:=0 to ExcelWorksheet1.Cells.Row do
begin
//SQL 语句为 Insert into abc(aa,bb,cc) values(:a,:b,:c)
for j:=0 to ExcelWorksheet1.Cells.Column do
begin
ADOQuery1.Parameters[j].Value:=ExcelWorksheet1.Cells.Item [i,j];
end;
ADOQuery1.ExecSQL;
end;
except
ShowMessage('出错误拉');
end;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
end;
end.