Ich füge über Insert Datensätze in eine Accesstabelle
->
SQL-Code:
Insert Into T_Stammdaten
(ZaehlPkt, GueltigAb, KdNr, Anrede, Name, Vorname, Strasse, Hausnummer,
PLZ, Ort, KdNrNetznutzung, VermittlerID, AbgemeldetAm, Abschlag,
Telefon)
Values
(:ZaehlPkt, :GueltigAb, :KdNr, :Anrede, :Name, :Vorname, :Strasse,
:Hausnummer, :PLZ, :Ort, :KdNrNetznutzung, :VermittlerID, :AbgemeldetAm
, :Abschlag, :Telefon)
Datentypen der Felder in
Access
ZaehlPkt = Longint
GueltigAb = Datum/Uhrzeit
KdNr = Text
Anrede = Text
Name = Text
Vorname = Text
Strasse = Text
Hausnummer = Text
PLZ = Text
Ort = Text
KdNrNetznutzung = Text
VermittlerID = Longint
AbgemeldetAm = Datum
Abschlag = Währung
Telefon = Text
Datentypen der Felder in Delphi
Delphi-Quellcode:
FZaehlPktID : Longint;
FGueltigAb : TDate;
FKdNrSwFi : String;
FAnrede : String;
FName : String;
FVorname : String;
FStrasse : String;
FHausnummer : String;
FPLZ : String;
FOrt : String;
FKdNrNetznutzung: String;
FVermittlerID : Longint;
FAbgemeldetAm : TDate;
FAbschlag : Currency;
FTelefon : String;
hier weise ich den Paramtern dann ihre werte zu und führe die
sql aus
Delphi-Quellcode:
for i:= 0 to FStammList.Count -1 do
begin
Stamm:= FStammList.Items[i] as TStamm;
DModMDB.QInsert.Parameters.ParamValues['ZaehlPkt']:= Stamm.ZaehlPktID;
DModMDB.QInsert.Parameters.ParamValues['GueltigAb']:= Stamm.GueltigAb;
DModMDB.QInsert.Parameters.ParamValues['KdNr']:= Stamm.KdNRSwFi;
DModMDB.QInsert.Parameters.ParamValues['Anrede']:= Stamm.Anrede;
DModMDB.QInsert.Parameters.ParamValues['Name']:= Stamm.Name;
DModMDB.QInsert.Parameters.ParamValues['Vorname']:= Stamm.Vorname;
DModMDB.QInsert.Parameters.ParamValues['Strasse']:= Stamm.Strasse;
DModMDB.QInsert.Parameters.ParamValues['Hausnummer']:= Stamm.Hausnummer;
DModMDB.QInsert.Parameters.ParamValues['PLZ']:= Stamm.PLZ;
DModMDB.QInsert.Parameters.ParamValues['Ort']:= Stamm.Ort;
DModMDB.QInsert.Parameters.ParamValues['KdNrNetznutzung']:= Stamm.KdNrNetznutzung;
DModMDB.QInsert.Parameters.ParamValues['VermittlerID']:= Stamm.VermittlerID;
DModMDB.QInsert.Parameters.ParamValues['AbgemeldetAm']:= Stamm.AbgemeldetAm;
DModMDB.QInsert.Parameters.ParamValues['Abschlag']:= Stamm.Abschlag;
DModMDB.QInsert.Parameters.ParamValues['Telefon']:= Stamm.Telefon;
DModMDB.QInsert.ExecSQL;
end;
der ersten 3 Datensätze, aus der Objectliste, werden in die Tabelle geschrieben. Bei dem 4. kommt
dann die Fehlermeldung!!
Ich bitte um Hilfe!!!