SQLQuery das Feld 'id' wurde nicht gefunden.

[gemy]

Zitat von Uwe Raabe:

SQLQuery1.SQL.Add('SELECT last_insert_rowid() as id FROM users');

Fügt erstmal nur eine Zeile an das SQL an. Wenn das vorher nicht leer ist, bekommst du ein anderes Ergebnis als erwartet.

Habe davor ein

Code:

SQLQuery1.SQL.Clear;

ändert leider nichts

[DeddyH]

Und wenn Du das "FROM USERS" weglässt? Die Funktion ist ja nicht an eine Tabelle gebunden, vielleicht liegt es daran.

[gemy]

Code:

SQLQuery1.SQL.Add('SELECT last_insert_rowid() as my_last_id');

mag er auch nicht. Das feld my_last_id wurde nicht gefunden.

Zitat von DeddyH:

Und wenn Du das "FROM USERS" weglässt? Die Funktion ist ja nicht an eine Tabelle gebunden, vielleicht liegt es daran.

[Delphi.Narium]

Dann frag halt nicht den Spaltennamen ab, sondern nimm den Wert des ersten und einzigen Feldes der Ergebnismenge:

Delphi-Quellcode:

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT last_insert_rowid()');
SQLQuery1.open;
if not sqlquery1.IsEmpty then begin
  ID := SQLQuery1.Fields[0].AsInteger;
end;
SQLQuery1.Close;

https://www.sqlite.org/c3ref/last_insert_rowid.html
https://stackoverflow.com/questions/...turns-always-0
https://www.codeproject.com/Question...returns-always
sqlite last_insert_rowid()

[gemy]

Das hat auch funktioniert.


Der Moderator schaltet leider meine Beiträge nicht frei die etwas länger sind.

Zitat von Delphi.Narium:

Dann frag halt nicht den Spaltennamen ab, sondern nimm den Wert des ersten und einzigen Feldes der Ergebnismenge:

Delphi-Quellcode:

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT last_insert_rowid()');
SQLQuery1.open;
if not sqlquery1.IsEmpty then begin
  ID := SQLQuery1.Fields[0].AsInteger;
end;
SQLQuery1.Close;

https://www.sqlite.org/c3ref/last_insert_rowid.html
https://stackoverflow.com/questions/...turns-always-0
https://www.codeproject.com/Question...returns-always
sqlite last_insert_rowid()

[gemy]

Also ich bin jetzt durchgestiegen !

Schickt man ein

Code:

    SQLQuery1.SQL.Text := 'select last_insert_rowid()';
    SQLQuery1.open;

ab, und schaut sich danach mit

Code:

 SQLQuery1.GetFieldNames(names);

an, so sieht man das der Eintrag 0 "Column0" heisst.

Im regelfall würde man z.B. so schreiben

Code:

SQLQuery1.SQL.Text :='select id,website, mainurl,username from users

. Schaut man sich dann mit

Code:

SQLQuery1.GetFieldNames(names)

die Felder an, so heissen diese auch id, website, mainurl, username.

Man kann also auf select last_insert_rowid() nur zugreifen mit :

a)

Code:

    SQLQuery1.SQL.Text := 'select last_insert_rowid()';
    SQLQuery1.open;
    //SQLQuery1.GetFieldNames(names);    
    id := SQLQuery1.Fields[0].AsString;

oder

b)

Code:

    SQLQuery1.SQL.Text := 'select last_insert_rowid()';
    SQLQuery1.open;    
    id := SQLQuery1.Fieldbyname('Column0').AsString;

Warum ich vorher "select last_insert_rowid()" mit der "id mit dem primärschlüssel" gleichgesetzt habe erschließt sich mir nicht mehr. Select_last_insert_rowid() hat mit keinem Feld irgendwas zu tun.

Woher das Column0 kommt oder wie ich das ändern kann weis ich noch nicht. Jedenfalls funktioniert jetzt alles und ich habe den durchblick. Vielleicht sieht noch jemand einen Verbesserungsvorschlag hier :

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  itm: Tlistitem;
  id: string;
  names: TStringList;
begin
  names := TStringList.Create;
  if ((Trim(Edit1.Text) <> '') and (Trim(Edit2.Text) <> '') and
    (Trim(Edit5.Text) <> '')) then
  begin
    PrepareParamsUsers;    // ...SQLquery1.Params.CreateParam(ftString, 'website', ptInputOutput); ...
    SQLQuery1.ParamByName('website').Value := Edit1.Text;
    SQLQuery1.ParamByName('mainurl').Value := Edit2.Text;
    SQLQuery1.ParamByName('username').Value := Edit3.Text;
    SQLQuery1.ParamByName('password').Value := Edit4.Text;
    SQLQuery1.ParamByName('dbname').Value := Edit5.Text;
    SQLQuery1.ParamByName('searchsite').Value := CheckBox1.Checked;
    SQLQuery1.ParamByName('listresults').Value := CheckBox2.Checked;
    SQLQuery1.SQL.Text :=
      'insert into users (website,mainurl,username,password,dbname,searchsite,listresults) '
      + 'values(:website,:mainurl,:username,:password,:dbname,:searchsite,:listresults) ';
    SQLQuery1.ExecSQL;
    Showmessage(Edit1.Text + ' added to database');
    ClearAllEditFields;
    SQLQuery1.SQL.Text := 'select last_insert_rowid()';
    SQLQuery1.open;
    //SQLQuery1.GetFieldNames(names);      //--  zum testen wie rowid heist.
    id := SQLQuery1.Fields[0].AsString;
    SQLQuery1.SQL.Text :=
      'select id,website, mainurl,username from users where id =' + id;
    SQLQuery1.open;
    SQLQuery1.First;
    SQLQuery1.GetFieldNames(names);
    //showmessage(sqlquery1.Fields[1].asstring);
    while not SQLQuery1.Eof do
    begin
      itm := ListView1.Items.Add;
      itm.Caption := SQLQuery1.FieldByName('id').AsString;
      itm.SubItems.Add(SQLQuery1.FieldByName('website').AsString);
      itm.SubItems.Add(SQLQuery1.FieldByName('mainurl').AsString);
      itm.SubItems.Add(SQLQuery1.FieldByName('username').AsString);
      SQLQuery1.Next;
    end;
  end;
end;

Danke für die Hilfe. Manchmal müssen sich erst einen ganzen Tag lang die Synapsen im Gehirn neu verknüpfen bevor man es kapiert

[jobo]

Die ganze Diskussion ist überflüssig, solange man sich über unbekannten SQL Inhalt. Siehe den Hinweis von Uwe https://www.delphipraxis.net/1425784-post4.html
Parameter zu "Preparen", bevor der SQL Text gesetzt wird, hab ich so auch noch nicht gesehen.
Passwörter 1:1 in eine Tabelle zu schreiben ist ein Nogo. Alle Deine Einträge landen wahrscheinlich irgendwann hier:
https://haveibeenpwned.com/

[Delphi.Narium]

Warum gibst Du dem Funktionsaufruf last_insert_rowid() im Select einen Aliasnamen, der mit dem Namen einer existierenden Spalte übereinstimmt. Sorg bitte erstmal dafür, dass es keine Konflikte in der Namensgebung geben kann. Dann können wir schauen, ob es wirklich nicht funktioniert.

Zitat von p80286:

Ich frage mich woher der Wertfür "ID" kommen soll.Ich bin allerdings auch nicht so firm in SQLite.
Wenn ein Insert den Wert nicht automatisch setzt, sollte der Insert eigentlich ins Leere laufen.

Gruß
K-H

Wenn ID ein AutoInc ist (oder per Trigger, Sequenze ...), muss man es nicht angeben. Aber eigentlich wissen wir zu wenig zur Tabellendefinition, das Create dazu könnte schon hilfreich sein.

[gemy]

Code:

CREATE TABLE users (
    id          INTEGER NOT NULL
                        PRIMARY KEY AUTOINCREMENT,
    website     VARCHAR UNIQUE
                        NOT NULL,
    mainurl     VARCHAR UNIQUE
                        NOT NULL,
    username    VARCHAR UNIQUE,
    password    VARCHAR,
    dbname      VARCHAR UNIQUE
                        NOT NULL,
    searchsite  BOOLEAN NOT NULL,
    listresults BOOLEAN NOT NULL
);

Zitat von Delphi.Narium:

Warum gibst Du dem Funktionsaufruf last_insert_rowid() im Select einen Aliasnamen, der mit dem Namen einer existierenden Spalte übereinstimmt. Sorg bitte erstmal dafür, dass es keine Konflikte in der Namensgebung geben kann. Dann können wir schauen, ob es wirklich nicht funktioniert.

Zitat von p80286:

Ich frage mich woher der Wertfür "ID" kommen soll.Ich bin allerdings auch nicht so firm in SQLite.
Wenn ein Insert den Wert nicht automatisch setzt, sollte der Insert eigentlich ins Leere laufen.

Gruß
K-H

Wenn ID ein AutoInc ist (oder per Trigger, Sequenze ...), muss man es nicht angeben. Aber eigentlich wissen wir zu wenig zur Tabellendefinition, das Create dazu könnte schon hilfreich sein.