|
Как сохранить результат запроса в DBF файл
http://netsoftware.ucoz.ru/DBF.zip скачать компонент для создания dbf файла. без использования сторонних dll
драйверов.
пишем скрипт
uses Dbf; Function CopyToDBF(DataSet: TDataSet;Filename:string):boolean;
var y,x:integer;
DBF:TDBF;
begin
DBF:=TDBF.Create(nil); DBF.LanguageID:=$26; // Dos кодировка
DBF.LanguageID:=$C9; // Win кодировка
DBF.CopyFrom(DataSet,filename,true,1);
DBF.free;
end;
пример использования
IBQuery1.sql.text:='select * from lib where lconcept=400'; IBQuery1.open; CopyToDBF(form1.IBQuery1,'mySklad.dbf');
Как сохранить StringGrid в DBF файл (рабочий код)
uses DBF,db;
{$R *.dfm}
Function CreateDBFFromStringGride (Table:TStringGrid;Filename:string):boolean;
var y,x:integer;
DBF:TDBF;
begin
DBF:=TDBF.Create(nil);
DBF.TableName:=Filename;
DBF.LanguageID:=$26; // Dos кодировка
DBF.LanguageID:=$C9; // Win кодировка
for X:=0 to form1.StringGrid1.ColCount-1 do begin
if Table.Cells[x,0]='' then Table.Cells[x,0]:='pole'+inttostr(x);
DBF.FieldDefs.Add(Table.Cells[x,0],ftString,255);
end;
DBF.CreateTable;
DBF.Open;
for y:=1 to Table.RowCount-1 do begin
DBF.Append;
for X:=0 to Table.ColCount-1 do begin
DBF.Fields[x].AsString:=Table.Cells[x,y];
end;
DBF.Post;
end;
DBF.Close;
end;
|
