按键精灵如何实现顺序读取数据库（SQL）中的字段值，将值保存到EXCEL中,谢谢

Question

如题所述

Answer 1

给你段代码参考：
//将查询出的数据导出成Excel文件
procedure TForm1.N1Click(Sender: TObject);
var MSExcel:Variant;
i,n:Integer;
begin
SaveDialog1.Filter:='*.xls|*.xls';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
MSExcel:=CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Add;
MSExcel.Visible:=False;
form1.ADOQuery1.Open;
n:=form1.ADOQuery1.RecordCount;
form1.ADOQuery1.First;
MSExcel.Cells[1,1].NumberFormat:='@';
MSExcel.Cells[1,1].Value:='编号';
MSExcel.Cells[1,2].Value:='歌曲名';
MSExcel.Cells[1,3].Value:='演唱者';
MSExcel.Cells[1,4].Value:='类型代码';
MSExcel.Cells[1,5].Value:='使用时间';
MSExcel.Cells[1,6].Value:='备注';
for i:=2 to n do
begin
MSExcel.Cells[i,1].NumberFormat:='@';
MSExcel.Cells[i,1].Value:=ADOQuery1.FieldByName('SongID').AsString;
MSExcel.Cells[i,2].Value:=ADOQuery1.FieldByName('SongName').AsString;
MSExcel.Cells[i,3].Value:=ADOQuery1.FieldByName('Singer').AsString;
MSExcel.Cells[i,4].Value:=ADOQuery1.FieldByName('ClassID').AsString;
MSExcel.Cells[i,5].Value:=ADOQuery1.FieldByName('UseTimes').AsString;
MSExcel.Cells[i,6].Value:=ADOQuery1.FieldByName('Note').AsString;
form1.ADOQuery1.Next;
end;
MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
MSExcel.ActiveWorkBook.Saved:=True;
MSExcel.Quit;
end;
//messagebox(0,'数据已成功导出!','系统提示!',MB_OK+MB_ICONINFORMATION);
end;

Answer 2

如果你的那个软件是固定的我倒是可以帮你写个小程序，

Answer 3

如果你的那个软件是固定的我倒是可以帮你写个小程序，追问

我需要源代码，谢谢