In SQLite Integer-Wert schreiben?

[AlexII]

Hallo,

ich schreibe wie folgt in meine SQLite DB:

Delphi-Quellcode:

procedure TForm3.AddNewStation();
var
  dbFile: String; // DB Verzeichniss
  db: TSQLiteDatabase; // Klasse
  sSQL: String;
  f: Integer;
begin
  dbFile := ExtractFilePath(Application.ExeName) + 'Stations.db';
  db := TSQLiteDatabase.Create(dbFile);

  // Prüfen, ob Station favorit oder nicht
  if FavoriteCheckBox.Checked then
  f:=1 else f:=0;

    try

    // Transaktion beginnt
    db.BeginTransaction;

    // Tabelle allStations füllen
    sSQL := 'INSERT INTO allStations(aName, aStreamURL, aWebsiteURL, aScheduleURL, aFavorite, aFixed, aInfo, ';
    sSQL := sSQL + 'fk_language_id, fk_category_id) VALUES ("' + Trim(StationNameLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StreamURLLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StationWebsiteLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StationProgramsLEdit.Text) + '",';
    sSQL := sSQL + '"' + IntToStr(f) + '",';
    sSQL := sSQL + '"' + IntToStr(0) + '",';
    sSQL := sSQL + '"' + InfoMemo.Text + '",';
    sSQL := sSQL + '"' + IntToStr(Integer(LanguageComboBox.Items.Objects[LanguageComboBox.ItemIndex])) + '",';
    sSQL := sSQL + '"' + IntToStr(Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex])) + '");';

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

    // Transaktion endet
    db.Commit;

  finally
    db.Free;
  end;
end;

Nun möchte ich die Variable f und die Fremdschlüssel in die DB als Integer-Wert speichern. Wie kann ich das mit diesem Vorgehen machen, wenn die ganze sSQL-Kette ein String ist?
Bin für jeden Tipp dankbar!

[Volker Z.]

Hallo,

ich gehe mal davon aus, dass die Felder als Integer angelegt sind; dann einfach die zu schreibenden Werte nicht quoten - also:

Code:

INSERT INTO tablename(intField, strField) VALUES(1, 'Text')

Gruß

[AlexII]

Das geht ja gerade nicht, da die Integer als sSQL-String an die DB übergeben werden.

[Lemmy]

nicht extra quoten:

Zitat:

Zitat von AlexII (Beitrag 1238016)

Delphi-Quellcode:

    sSQL := 'INSERT INTO allStations(aName, aStreamURL, aWebsiteURL, aScheduleURL, aFavorite, aFixed, aInfo, ';
    sSQL := sSQL + 'fk_language_id, fk_category_id) VALUES ("' + Trim(StationNameLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StreamURLLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StationWebsiteLEdit.Text) + '",';
    sSQL := sSQL + '"' + Trim(StationProgramsLEdit.Text) + '",';
    sSQL := sSQL + '"' + IntToStr(f) + '",';
    sSQL := sSQL + '"' + IntToStr(0) + '",';
    sSQL := sSQL + '"' + InfoMemo.Text + '",';
    sSQL := sSQL + IntToStr(Integer(LanguageComboBox.Items.Objects[LanguageComboBox.ItemIndex])) + ',';
    sSQL := sSQL + IntToStr(Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex])) + ');';

Texte müssen in den entsprechenden Quote-Zeichen " oder ' eingefasst werden. Zahlen eben nicht.

Grüße

[AlexII]

Hm... es will irgendwie nicht, egal wie... :gruebel:

[Volker Z.]

Hallo,

Zitat:

Zitat von AlexII (Beitrag 1238020)

Hm... es will irgendwie nicht, egal wie... :gruebel:

Geht es etwas genauer? Was will denn nicht? Wird nichts in die DB geschrieben? Oder liegt es an etwas anderem?

Gruß

[AlexII]

Der Compiler akzeptiert das hier nicht:

String:=String+String+Integer+String;

Egal wie ich Integer da quote ein Integer kann nicht in die String-Kette passen. Oder irre ich mich?

[Volker Z.]

Hallo,

Zitat:

Zitat von AlexII (Beitrag 1238024)

Der Compiler akzeptiert das hier nicht:

String:=String+String+Integer+String;?

Egal wie ich Integer da quote ein Integer kann nicht in die String-Kette passen. Oder irre ich mich?

Ich weiß ja nicht was Du genau machst, aber bei so etwas sollte der Compiler nicht meckern (außer ich hab da irgendwo eine Klammer o. ä. vergessen)

Delphi-Quellcode:

  sSQL := 'INSERT INTO allStations(aName, aStreamURL, aWebsiteURL, aScheduleURL, aFavorite, aFixed, aInfo, ' +
          'fk_language_id, fk_category_id) VALUES (' +
          QuotedStr (Trim(StationNameLEdit.Text)) + ',' +
          QuotedStr (Trim(StreamURLLEdit.Text)) + ',' +
          QuotedStr (Trim(StationWebsiteLEdit.Text)) + ',' +
          QuotedStr (Trim(StationProgramsLEdit.Text)) + ',' +
          IntToStr (f) + ',' +
          IntToStr (0) + ',' +
          QuotedStr (InfoMemo.Text) + ',' +
          IntToStr (Integer(LanguageComboBox.Items.Objects[LanguageComboBox.ItemIndex])) + ',' +
          IntToStr (Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex])) + ');';

und das SQL-Statement sollte auch ausgeführt werden.

Wenn Du uns zeigst was Du machst, dann kann Dir hier auch besser geholfen werden.

Gruß

[Sir Rufo]

Zitat:

Zitat von AlexII (Beitrag 1238024)

Der Compiler akzeptiert das hier nicht:

String:=String+String+Integer+String;

Egal wie ich Integer da quote ein Integer kann nicht in die String-Kette passen. Oder irre ich mich?

Aua.

Sowas muss als Text übergeben werden

SQL-Code:

insert into mytable ( strfld, intfld )
values ( "Text", 5 );

aber du produzierst das hier

SQL-Code:

insert into mytable ( strfld, intfld )
values ( "Text", "5" );

Was ist der Fehler?

[AlexII]

Ok das klappt, aber die int variable f wir bei mir zur str. Wenn ich aber die Umwandlung nach str weglasse, meckert der Compiler. Wie kann ich die int Variable ohne Umwandlug als int in die DB schreiben?