Ansteuerung von Paradoxtabellen mit SQL

[Abraxas]

Gerne doch. Bitte sehr, die aktuelle Version, wie sie in meinem Programm verbaut ist. Ungekürzt und Unzensiert.

Delphi-Quellcode:

with Query1 do
                begin
                Close;
                sql.Text:=('INSERT INTO CDDVD (ID,Lagerort,Name,Monat,Jahr) VALUES (:ID,:Lagerort,:Nam,:Monat,:Jahr)');
                ParamByName('ID').AsInteger := CDID;
                ParamByName('Lagerort').AsInteger := Lagerort; //Lagerort ist eine Funktion, die einen Integer liefert.
                ParamByName('Nam').AsString:= GetPartitionName(ComboBox1.Text[1]); // Diese Funktion liefert den Namen einer DVD
                ParamByName('Monat').AsString:= LabeledEdit1.Text;
                ParamByName('Jahr').AsString:=LabeledEdit2.Text;
                Prepare;
                ExecSQL;
                end;