heh
mySql 5.0.2
procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
t:TTIme;
plik:TFileStream;
rek:TRecArch;
begin
plik:=TFileStream.Create('FAT_OPPA K10.dat',fmOpenRead);
t:=now;
plik.Seek(0,0);
plik.Read(rek,sizeof(rek));
while plik.Position<plik.Size do begin
plik.Read(rek,sizeof(rek));
sql.ParamByName('data').asstring:=datetimetostr(rek.Data);
sql.ParamByName('nazwa').asstring:=rek.Nazwa;
sql.ParamByName('wartosc').asstring:=rek.Wartosc;
sql.ParamByName('jednostka').asstring:=rek.Jednostka;
sql.ParamByName('status').AsInteger:=rek.Status;
sql.PrepareStatement;
sql.ExecSQL;
end;
plik.Free;
showmessage('trwalo: '+timetostr(now-t));
end;
tresc zapytania sql:
INSERT INTO archiwum (czas, nazwa, wartosc, jednostka, status)
VALUES(:data,:nazwa,:wartosc,:jednostka,:status);
zadnych innych ustawien nie zmienialem...