Variable mittels INSERT in die DB speichern?

[hoika]

Hallo,

vielleicht ohne das : ?

db.AddParamText( 'Vorname', Edit1.Text );

[Sherlock]

Das dürfte aber keinen Compilerfehler liefern, sondern erst zur Laufzeit rumjammern.

Sherlock

[BenneX]

Zitat von mkinzler:

Das ist ja nur ein (unvollständiges) Codefragment. Wie hast du die Variablen ( sSQL, db) deklariert?

Hallo,

sSQL ist als String und db mit TSQLiteDatabase deklariert im Hauptformular.
Habe den Fehler jetzt ausfindig gemacht, es lag daran, dass meine TEdits die gleichen Namen trugen.

Leider erstellt er jetzt nur einen leeren Datensatz in der Tabelle ...
Manuelles eintragen per INSERT VALUES geht. Leider nicht mit den Parametern ...

Delphi-Quellcode:

 SQLBefehl := 'INSERT INTO OGame (Koordinaten,Spielername,Metall,Kristall,Deuterium) VALUES ( :Koordinaten1, :Spielername1, :Metall1, :Kristall1, :Deuterium1)';
  Datenbank.AddParamText( ':Koordinaten1', Koordinaten.Text );
  Datenbank.AddParamText( ':Spielername1', Spielername.Text );
  Datenbank.AddParamInt( ':Metall1', strtoint(Metall.Text)      );
  Datenbank.AddParamInt( ':Kristall1', strtoint(Kristall.Text)    );
  Datenbank.AddParamInt( ':Deuterium1', strtoint(Deuterium.Text)   );
  Datenbank.ExecSQL(SQLBefehl);

Mit diesem Quelltext, liefert er leider nur eine leere Zeile in der Tabelle...



Grüße,
BenneX.

[Medium]

Hier trifft dann höchstwahrscheinlich wieder das Entfernen der ":" zu. Nur aus den Aufrufen von .AddParam*(), im SQL-String müssen diese bleiben. Grund: Der Doppelpunkt signalisiert im SQL-String, dass nun ein Parameter folgt. Der Parametername selbst aber beinhaltet den Doppelpunkt nicht.

[mkinzler]

In der Dokumentation sind die Doppelpunkte auch drinnen. Es fehlt aber eine Pepare.

[Medium]

Oh okay, dann sorry. Ich kannte die verwendeten Komponenten nicht wirklich, habe es aber noch nie gesehen, dass die Parameter ausserhalb des SQL Statements so benannt werden müssen. Voreilige Schlüsse zu später Stunde - scusi!

[BenneX]

Zitat von mkinzler:

In der Dokumentation sind die Doppelpunkte auch drinnen. Es fehlt aber eine Pepare.

Hallo,

was genau meinst Du mit Pepare?
Meinst du die Delphi Dokumentation oder eine spezielle für den Wrapper?

Grüße!

[mkinzler]

Aus der Doku:

Zitat:

the process is in essence:

1. Call PrepareSQL to return TSQLiteQuery 2. Call BindSQL for each parameter in the prepared query 3. Call ExecSQL to run the prepared query 4. Repeat steps 2 & 3 as required 5. Call ReleaseSQL to free SQLite resources

[BenneX]

Okay jetzt weiß ich prinzipiell wie ich vergehen muss. Danke für den Tipp mit der Doku. Leider werde ich nicht ganz schlau wie ich BindSQL zu verwenden habe. Was nehme ich als Argumente? Folgendes habe ich versucht:

Datenbank.BindSQL(':Koordinaten1',Koordinaten.Text) meldet mir leider nur "Es gibt keine überladene Version, die man mit diesen Argumenten aufrufen kann".

Grüße!

[mkinzler]

Zitat:

Delphi-Quellcode:

   function PrepareSQL(const SQL: Ansistring): TSQLiteQuery;    
    procedure BindSQL(Query: TSQLiteQuery; const Index: Integer; const Value: Integer); overload;
    procedure BindSQL(Query: TSQLiteQuery; const Index: Integer; const Value: String); overload;

In so etwa müsste es aussehen:

Delphi-Quellcode:

Query := Datenbank.PrepareSQL( SQLBefehl);
Datenbank.BindSQL(Query, 0, Koordinaten.Text);
...
Datenbank.ExecSQL(Query);

Ich bin mir aber nicht ganz sicher ob das Bind hier notwendig ist, und nicht erst ab der 2. Verwendung