Paradox to Firebird

[hoika]

Hallo,

so etwa muss es aussehen

Delphi-Quellcode:

if tblBDE.TableName = 'ART.DB' then
  begin
    with sqFirebird.SQL do
    begin
      Clear;
      Add('INSERT INTO ' + cbFirebirdTable.Text + '(NUMMER, OBERBEGRIFF) VALUES(:Nummer, :Oberbegriff)');
        sqFirebird.PrepareStatement;
    end;                                                                                         

    sqFirebird.Prepared := True;

    tblBDE.First;

    while not tblBDE.Eof do
    begin
      sqFirebird.ParamByName('Nummer').AsString       := tblBDE.FieldByName('Nummer').AsString;
      sqFirebird.ParamByName('Oberbegriff').AsString  := tblBDE.FieldByName('Oberbegriff').AsString;

      sqFirebird.ExecSQL();
     
      tblBDE.Next;
    end;
  end

Das Erstellen der FB-Query und Prepare ausserhalb der Schleife.
Es handelt sich ja immer um die gleiche Abfrage, aber mit anderen Werten,
deshalb ja die Parameter.


Heiko