"Insert" in MSSQL-DB

[eiko]

Hallo,
versuche seit Tagen erfolglos über eine TSqlQuery-Komponente einen neuen Datensatz in eine MSSQL-Datenbank einzufügen,
"Select" und "Update" funktionieren problemlos, nur "Insert" will nicht klappen!

Hätte hier vielleicht jemand mal ein funktionierendes Beispiel für ein "Insert",
wäre für etwas Nachhilfe sehr Dankbar!


Grüße eiko

[DiBo33]

Wie sieht/sehen denn dein(e) Versuch(e) aus?

Was funktioniert nicht, welche Fehlermeldungen bekommst du?

[eiko]

Hallo,
danke schonmal vorab für deine Unterstützung!
Meine Versuche sehen so aus:

Code: Alles auswählen

SqlQueryQuery.Close;
SqlQueryQuery.InsertSQL.Clear;
SqlQueryQuery.InsertSQL.ADD('INSERT INTO Tabelle ');
SqlQueryQuery.InsertSQL.ADD('(Feld1, Feld2, Feld3) ');
SqlQueryQuery.InsertSQL.ADD('VALUES (''AAA'', 1, 'BBB'') ');
SqlQueryQuery.Open;
 
SqlQueryQuery.Insert;
SqlQueryQuery.Post;
SqlQueryQuery.ApplyUpdates;

Es läuft auch alles sowaeit fehlerlos durch,
erst bei "ApplyUpdates" kommt als Fehler:

[Thomas B.]

Ah, der klassische Fehler:
für Abfragen "Open", aber für Updates,Inserts etc. immer SQLQuery.ExecSQL

[eiko]

Wenn ich aber statt "Open" dann "ExecSQL" ausführe bekomme ich als Fehler:
"Operation cannot be performed on an inactive Dataset"

Gebs zu, bin etwas ratlos!

[DiBo33]

Versuchs mal mit parametrisierte Abfragen, Beispiel für Insert am Ende.
http://wiki.lazarus.freepascal.org/Work ... Parameters" onclick="window.open(this.href);return false;

[eiko]

So, neuer Stand!

Code: Alles auswählen

SqlQuery.Close;
SqlQuery.InsertSQL.Clear;
SqlQuery.InsertSQL.Add('INSERT INTO Tabelle ');
SqlQuery.InsertSQL.Add('(Feld1 Feld2, Feld2) ');
SqlQuery.InsertSQL.Add('VALUES (:FLD1, :FLD2, :FLD3) ');
 
SqlQuery.Params.ParamByName('FLD1').AsString := 'AAA';
SqlQuery.Params.ParamByName('FLD2').AsInteger := 1;
SqlQuery.Params.ParamByName('FLD3').AsString := 'BBB';
SqlQuery.ExecSQL;
 
SqlTransaction.Commit;

Bekomme dann leider nur die Fehlermeldung:
"Paramater "FLD1" not found!

Hab auch versuchsweise mal FLD1 in SqlNrQuery.Parameters von Hand angelegt,
aber auch dann kommt die gleiche Fehlermeldung.

Noch jemand Ideen?


Grüße eiko

[DiBo33]

Nimm mal nicht insertSQL sondern tatsächlich wie im Beispiel SqlQuery.Text und SqlQuery.ExecSQL;

[eiko]

Code: Alles auswählen

SqlQuery.Close;
SqlQuery.SQL.Clear;
SqlQuery.SQL.Text := 'INSERT INTO Tabelle (Feld1 Feld2, Feld2) VALUES (:FLD1, :FLD2, :FLD3)';  
 
SqlQuery.Params.ParamByName('FLD1').AsString := 'AAA';
SqlQuery.Params.ParamByName('FLD2').AsInteger := 1;
SqlQuery.Params.ParamByName('FLD3').AsString := 'BBB';
SqlQuery.ExecSQL;
 
SqlTransaction.Commit;

ergibt:

[DiBo33]

"Zeichenfolge oder Binärdaten werden abgeschnitten"

Wie sieht denn die Tabellendefinition aus?

[eiko]

So sieht das Original aus:

[Thomas B.]

Fehlt ein Komma zwischen Feld1 und Feld2 bzw. Feld2 doppelt?
Schon mal mit

Code: Alles auswählen

INSERT INTO Tabelle (Feld1,Feld2,Feld3) VALUES ('AAA',1,'BBB')

probiert, ob es prinzipiell klappt?

[Antrepolit]

Du musst beim Insert den Not-Null-Feldern Werte zufügen. Das ist obligatorisch. Und wo bitte heißen denn in der Tabelle Felder "Feld1", "Feld2" etc.?

[eiko]

Du musst beim Insert den Not-Null-Feldern Werte zufügen. Das ist obligatorisch. Und wo bitte heißen denn in der Tabelle Felder "Feld1", "Feld2" etc.?

Tschuldigung daß ich nicht gleich alle Firmendetails preisgegeben hab!
Das Not-Null-Feld "ID" ist ein sich automatisch selber hochzählendes Feld, da darf ich keinen Wert angeben
und das Feld "Zusatz" hat als Standardwert "".

Hier dann also das Original!

Code: Alles auswählen

SqlQuery.SQL.Text := 'INSERT INTO SNSerienNr (IdentNr, SerienNr, EtikettTyp) VALUES (:IDNR, :SERNR, :TYP)';
 
SqlQuery.Params.ParamByName('IDNR').AsString := 'AAA';
SqlQuery.Params.ParamByName('SERNR').AsInteger := 1;
SqlQuery.Params.ParamByName('TYP').AsString := 'BBB';
SqlQuery.ExecSQL;
 
SqlTransaction.Commit;

Aber scheinbar ist es wirklich so daß niemand ein funktionierendes Beispiel einer INSERT-Funktion hat!
Schade!

Grüße eiko

[knight]

Grundsätzlich funktioniert dieses Beispiel. Es müssen aber auch die Voraussetzungen im 'Hintergrund' gegeben sein. Dazu gehört, daß allen Feldern mit NOT NULL ein Wert zugewiesen wird. Wenn wie in deinem Beispiel ein Feld (ID) automatisch von der Datenbank belegt werden soll, dann verwendet man dafür üblicherweise Trigger (z.B. einen Before-Insert-Trigger). Möglicherweise ist dir irgendwo ein Tippfehler unterlaufen, der die korrekte Zuordnung verhindert und so zu einem Fehler führt.

knight