Variable mittels INSERT in die DB speichern?

[AlexII]

Hallo,

hab folgendes Problem: ich möchte die Daten aus Edit-Feldern in die DB mittels INSERT speichern. Ich kann wie folgt feste Strings speichern, aber nicht Variablen:

Delphi-Quellcode:

procedure TForm1.OKBtnClick(Sender: TObject);
var dbFile: String;
    db: TSQLiteDatabase;
    sSQL: String;
begin
  dbFile := ExtractFilePath(Application.ExeName) + 'Datab.db';
  db := TSQLiteDatabase.Create(dbFile);
  try

    // Transaktion beginnt
    db.BeginTransaction;

    // Tabelle füllen
    sSQL := 'INSERT INTO telbuch(Vorname, Name, Telefon) VALUES ("Max", "Mustermann", "123-1234567");';

    // Insert Befehl wird ausgeführt
    db.ExecSQL(sSQL);

    // Transaktion endet
    db.Commit;

  finally
    db.Free;
  end;
end;

Jah... wenn ich die Zeile:

Delphi-Quellcode:

// Tabelle füllen
sSQL := 'INSERT INTO telbuch(Vorname, Name, Telefon) VALUES ("Max", "Mustermann", "123-1234567");';

durch diese ersetze:

Delphi-Quellcode:

// Tabelle füllen
sSQL := 'INSERT INTO telbuch(Vorname, Name, Telefon) VALUES (Edit1.Text, Edit2.Text, Edit3.Text);';

bekomme ich eine Fehlermeldung.

Ich weiß ich kann das irgendwie mit Query-Komponente lösen, aber ich hab diese nicht, da mit Delphi 7 Personal arbeite.

Kann ich mein Vorhaben irgendwie anders umsetzen?

Danke!

[Sir Rufo]

Delphi-Quellcode:

LStr := 'Das steht in Edit1.Text: ' + Edit1.Text;
ShowMessage( LStr );

[nuclearping]

Oder ...

Delphi-Quellcode:

LStr := Format('Das steht in Edit1.Text: %s', [Edit1.Text]);
ShowMessage( LStr );

[Sir Rufo]

Und wenn man sich bemüht die Doku zu lesen (in der Unit selber enthalten, dann kommt man darauf, dass Parameter evtl. die Lösung der Lösungen ist.

Delphi-Quellcode:

sSQL := 'INSERT INTO telbuch(Vorname, Name, Telefon) VALUES ( :Vorname, :Nachname, :Telefon );';
db.AddParamText( ':Vorname', Edit1.Text );
db.AddParamText( ':Nachname', Edit2.Text );
db.AddParamText( ':Telefon', Edit3.Text );
db.ExecSQL( sSQL );

[Furtbichler]

Weiss AddParamText denn, um was für einen Datentyp es sich handelt, oder ist das ein Braintwister für den Fragenden?

[Sir Rufo]

Zitat von Furtbichler:

Weiss AddParamText denn, um was für einen Datentyp es sich handelt, oder ist das ein Braintwister für den Fragenden?

Ob das Öffnen einer Quelltextdatei (mit dem SQLite Wrapper) und dann der Augen ein Braintwister ist, vermag ich nicht absolut zu sagen, für mich waren es 5 Klicks (Google Suche) und 3 Augenaufschläge.

Um noch etwas konkreter zu werden AddParamText ist ein Bruder von AddParamFloat oder auch AddParamInt , aber die Doku (teils auch in der Unit) gibt da einiges her und sollte wohl auch mal eines Blickes gewürdigt werden.

[Furtbichler]

Ich wusste es. Ein Braintwister (=Selber recherchieren).

[haentschman]

Wie soll man sonst lernen wenn man sich nicht selbst durchbeißen kann.

[BenneX]

Zitat von Sir Rufo:

Und wenn man sich bemüht die Doku zu lesen (in der Unit selber enthalten, dann kommt man darauf, dass Parameter evtl. die Lösung der Lösungen ist.

Delphi-Quellcode:

sSQL := 'INSERT INTO telbuch(Vorname, Name, Telefon) VALUES ( :Vorname, :Nachname, :Telefon );';
db.AddParamText( ':Vorname', Edit1.Text );
db.AddParamText( ':Nachname', Edit2.Text );
db.AddParamText( ':Telefon', Edit3.Text );
db.ExecSQL( sSQL );

Hallo,

mit Deiner Lösung kriege ich leider nur die Meldung:

"E2010 Inkompatible Typen: 'string' und 'procedure, untyped pointer or untyped parameter'"

Kann mir jemand weiterhelfen?
Grüße Bennex.

[mkinzler]

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