如何在excel与数据库之间传递记录？

zhangxinji 2002-08-14 08:01:23

我想把数据库中的记录备份到excel文件中并且从excel中到数据库中
我用的是sybase数据库，不过应该与库类型无关吧
各位大侠帮小第一把
在这儿先谢过了！

...全文

31 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

h_huajun 2002-08-17

打赏
举报

up
比如 ExtractFilePath(Application.ExeName)返回当前程序的路径

sdqhlyf 2002-08-17

打赏
举报

你查一下帮助，其实很简单，就是求文件的路径呀！

zhangxinji 2002-08-17

打赏
举报

那么请问ExtractFilePath这个函数怎么用啊
请给解释一下
谢谢

zhangxinji 2002-08-17

打赏
举报

谢谢！

ilang 2002-08-16

打赏
举报

h_huajun 2002-08-16

打赏
举报

看一这个对你有没有帮助
uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
Buffer:array[0..15]of char;
I: Integer;
ExcelApp:variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( ExtractFilePath(application.exename)+'Templet.xls' );//excel文件模式
ExcelApp.Visible := false;
with ADOQuery1 do
begin
Close;
...
...
Open;
for I:=1 to RecordCount do
begin
RecNo:=I;
ExcelApp.Cells.Item[I,1]:=Fields[0].Asstring;
ExcelApp.Cells.Item[I,2]:=Fields[1].Asstring;
ExcelApp.Cells.Item[I,3]:=Fields[2].Asstring;
ExcelApp.Cells.Item[I,4]:=Fields[3].Asstring;
end;
end;
deletefile('结果.xls');
ExcelApp.WorkSheets[1].SaveAs(ExtractFilePath(application.exename)+'结果.xls');
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;