Kod: Tümünü seç
DataModule1.IBQuery1.Append;
kodun tamamını aşşagıya eklıyorum. Bir de excelden 500.000 kayıt firebird en hızlı nasıl kayıt edebılırım. Bu kod cok yavaş...
Kod: Tümünü seç
procedure TForm1.Button2Click(Sender: TObject);
var
book:variant;
excel,sheet:variant;
satir, sutun:integer;
str:string;
begin
excel := createOleObject('Excel.application');
DataModule1.OpenDialog1.Filter := 'Excel Dosyaları (*.xls)|*.xls';
if DataModule1.opendialog1.Execute then
begin
book:= Excel.WorkBooks.Open(DataModule1.OpenDialog1.FileName);
try
Screen.Cursor := crHourGlass;
sheet := book.worksheets[1];
for satir:=1 to 60000 do
begin
str := sheet.cells[satir, 1];
if (str <> '') then
begin
Update;
DataModule1.IBQuery1.Append;
for sutun:=1 to 6 do
DataModule1.IBQuery1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];
DataModule1.IBQuery1.Post;
end;
end;
Excel.quit;
excel:=Unassigned;
finally
Screen.Cursor := crDefault;
end;
end;
End;