Форум: "Базы";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизВыгрузка БД в Excel Найти похожие ветки
← →
Order (2002-09-28 11:03) [0]Кто нибудь, подскажите пожалуйста как осуществить выгрузку БД в Excel. Очень нужно, столкнулся впервые требуют быстрее, а думать некогда...
← →
KDS (2002-09-28 13:12) [1]TIB_Query замени на TDataset
procedure ExportToOffice(eTable:TIB_Query; eFile, App:AnsiString);
const c="C:\Windows\temp\";
var F:TextFile;
s,Cell:AnsiString;
i:Integer;
begin
S:=c+eFile;
AssignFile(F, S);
try
Rewrite(F);
except
MessageBox(Application.Handle, "???????? ?????????? ??????? ??????? ??? ????????? ??? ??? ?????? ??????.","???????? ???????",$41010);
Abort;
end;
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + eTable.Fields[i].DisplayName + Chr(9);
WriteLn(F,Cell);
WriteLn(F,"");
with eTable do try
DisableControls;
First;
while not eof do begin
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + Fields[i].AsString+Chr(9);
WriteLn(F, Cell);
Next;
end;
finally
EnableControls;
end;
CloseFile(F);
ShellExecute(0,"open",PChar(App),PChar(s),nil,SW_SHOWMAXIMIZED);
end;
Вызов
ExportToOffice(EngineDM.OrdersIBQ,"orders.txt","excel.exe")
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c