***********数据的导入导出

fhuibo 2006-10-20 10:04:52

请问在DELPHI里怎么执行下面的语句呀
SELECT * into fwmlexcel FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="d:\fhb\ff.xls";Extended properties=Excel 8.0')...[sheet1$]

...全文

188 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

柯本 2006-10-21

打赏
举报

给你个参考:
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19064

ron_xin 2006-10-20

打赏
举报

有三种方法法:
1.用ADOQuery直接用以上的语句,不过,文件是保存在服务器上的.

2.用DbGridEH的方法,文件可保存在本地

procedure TFrimFiveReport.FlatSpeedButton2Click(Sender: TObject);
begin
inherited;
ppReport1.Print;
end;

procedure TFrimFiveReport.FlatButton1Click(Sender: TObject);
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin

SaveDialog1.FileName :='五日报';
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
4: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
try
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
except
msshow('保存失败!');
end;
end;

end;

end;

3.用OLE的方法,文件可保存在本地

procedure TFrmPrintReport.DataToExcel;
var
I, J, K, Count: integer;
S: string;
begin
Panel2.Visible :=true;
Animate1.Active :=true;

//创建Ole对象
try
ExcelApplication := CreateOleObject('Excel.Application');
except
ExcelApplication := Null;
Panel2.Visible :=False;
Animate1.Active :=False;
MSShow('请先安装MicrSoft Office Excel97/2000。');
Exit;
end;

ExcelApplication.Visible := False;
try
ExcelName:=ExcelApplication.WorkBooks.Add(ExtractFilePath(Application.ExeName)+'ReportModal\Modal.xls');
ExcelSheet := ExcelName.Worksheets[1];
except
Panel2.Visible :=False;
Animate1.Active :=False;
MSShow('没有找到报表模板,请保证Modal.xls在程序文件的ReportModal文件夹内!');
Abort;
end;

try
J := 11;

ADOQuery1.First;
while not ADOQuery1.eof do
begin
ExcelSheet.cells(J,1) := ADOQuery1.RecNo;
ExcelSheet.cells(J,2) := ADOQuery1.fieldbyname('OriHB').Value;
ExcelSheet.cells(j,3) := Trim(ADOQuery1.FieldByName('Camer').AsString );
ExcelSheet.cells(j,4) := Trim(ADOQuery1.FieldByName('FlightNo').AsString);
ExcelSheet.cells(j,5) := Trim(ADOQuery1.FieldByName('SurName').AsString);
ExcelSheet.cells(j,6) := Trim(ADOQuery1.FieldByName('GivenName').AsString);
ExcelSheet.cells(j,7) := Trim(ADOQuery1.FieldByName('PassportNo').AsString);
ExcelSheet.cells(j,14) := Trim(ADOQuery1.FieldByName('Weight').AsString);
inc(J);
ADOQuery1.next;
end;

//合并单元格
Ranges:=ExcelSheet.range['A10: P' + inttostr(J -1)];
//画线
Ranges.Borders.LineStyle := 1;
except
MsShow('在往EXCEL写入数据时出现错误,请重新发送Email!');
Panel2.Visible :=False;
Animate1.Active :=False;
abort;
end;

try
//保存数据
ExcelName.SaveAs(MDReportDir+'\'+ReportName);
except
MSShow('无法保存数据');
Panel2.Visible :=False;
Animate1.Active :=False;
abort;
end;

//全部释放variant变量 ,否则Excel进程无法关闭
try
ExcelName.Close;
ExcelApplication.Quit;
ExcelSheet :=Unassigned ;
ExcelName := Unassigned;
ExcelApplication:=Unassigned;
Ranges :=Unassigned;
except

end;

end;