Userdaten in Tabelle einfügen!?

[eXpli]

Hallo zusammen!

Folgendes Problem:

Ich versuche eine Punktzahl und den User welcher diese erreicht hat in meine DB (tabelle) zu schreiben.
Die Punktzahl (ist nen Int) setze ich schon in der form "TestAufgaben". Der User wird dann auf der nächsten form ("TestName") festgelegt und dann via Query an die DB (Tabelle) gesendet.

Hier mein Versuch:

Delphi-Quellcode:

procedure TTestName.Button1Click(Sender: TObject);
begin
  QRY_Insert_User.SQL.Text := 'INSERT INTO Highscore (Punktzahl, User) VALUES (:Punktzahl, :User);';
  QRY_Insert_User.Parameters.ParamByName('Punktzahl').Value := TestAufgaben.punkte;
  QRY_Insert_User.Parameters.ParamByName('User').Value := Edit1.Text;
  QRY_Insert_User.ExecSQL;
end;

Leider bringt das immer einen Fehler! (siehe Anlage)

[DeddyH]

Mit ADO kenn ich mich nicht aus, aber versuch mal eine dieser beiden Möglichkeiten:QRY_Insert_User.Parameters.ParamByName('User').Value := QuotedStr(Edit1.Text); oderQRY_Insert_User.Parameters.ParamByName('User').AsString := Edit1.Text;

[eXpli]

Grad beide Versionen versucht, aber keine hat funktionieren wollen

Verwirren tut mich, dass ich an anderer Stelle in meinem Prog die SQL-Abfrage auf die gleiche Weise gemacht hab und sie da fehlerlos ausgeführt wird. Allerdings ging es dort nur um strings.

Muss man bei der Parameterübergabe bei integer evtl. was besondres beachten?

Gruß!

[omata]

Hier nochmal ein neuer Vorschlag...

Delphi-Quellcode:

QRY_Insert_User.SQL.Text:= 
  Format(
    'INSERT INTO Highscore (Punktzahl, User) ' +
    'VALUES (%d, %s)',
    [TestAufgaben.punkte, QuotedStr(Edit1.Text)]
  );
QRY_Insert_User.ExecSQL;

Gruss
Thorsten

[DeddyH]

Wenn uns der TE mal mitteilt, welche Typen die beiden Datenfelder haben, könnten wir vermutlich eher weiterhelfen.

[eXpli]

Naja wenn ich wüßte was nen TE ist... Anyway!

Zitat:

Punktzahl (ist nen Int)

(Für die sichs nicht denken können: User ist nen ganz normaler Text)

Hilft das jetzt?!?

[DeddyH]

Also, TE heißt Thread-Ersteller (also Du). Und dann versuch es mal so:

Delphi-Quellcode:

procedure TTestName.Button1Click(Sender: TObject);
begin
  QRY_Insert_User.SQL.Text := 'INSERT INTO Highscore (Punktzahl, User) VALUES (:Punktzahl, :User);';
  QRY_Insert_User.Parameters.ParamByName('Punktzahl').AsInteger := TestAufgaben.punkte;
  QRY_Insert_User.Parameters.ParamByName('User').AsString := Edit1.Text;
  QRY_Insert_User.ExecSQL;
end;

[marabu]

Hallo,

das einzig störende, was ich momentan im SQL des ersten Beitrags erkenne, ist das eklige Semikolon am Ende. AsString() und AsInteger() sind bei beim ADO TParameter nicht verfügbar - und wer Query-Parameter benutzt, der muss sich um Quotes nicht mehr kümmern.

Gute Nacht

[DeddyH]

Wie ich schon sagte: ADO ist nicht meine Welt

[alzaimar]

Das Parameter muss wissen, um was für einen Datentyp es sich handelt, damit es die implizite Konvertierung in SQL-Syntax vornehmen kann.

Delphi-Quellcode:

procedure TTestName.Button1Click(Sender: TObject);
begin
  QRY_Insert_User.SQL.Text := 'INSERT INTO Highscore (Punktzahl, User) VALUES (:Punktzahl, :User);';
  QRY_Insert_User.Parameters.ParamByName('Punktzahl').DataType := ftInteger;
  QRY_Insert_User.Parameters.ParamByName('User').DataType := ftString;
// bis hierhin kann man das auch einmalig im Vorfeld zuweisen.

// das eigentliche 'Benutzer einfügen' besteht dann aus diesen drei Zeilen.
  QRY_Insert_User.Parameters.ParamValues['Punktzahl'] := TestAufgaben.punkte;
  QRY_Insert_User.Parameters.ParamValues['User'] := Edit1.Text;
  QRY_Insert_User.ExecSQL;
end;