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:

Zitat von Furtbichler (Beitrag 1186960)

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

Delphi-Quellcode:

AddParamText

ist ein Bruder von

Delphi-Quellcode:

AddParamFloat

oder auch

Delphi-Quellcode:

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. :roll:

[BenneX]

Zitat:

Zitat von Sir Rufo (Beitrag 1186959)

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?