Fehler Zeos datensatz löschen und beim anzeigen der Daten

[dws]

Moin habe mal wieder ein problem das ich nich weg bekomme.

Ich mache gerade das Tutorial aus Delphi Treff.
Also wenn ich einen Datensatz löschen will aus meiner angelegten Tabelle Adressbuch, dann macht er mir einen fehler in der ZTransact.
Mein Befehl sieht so aus:

Delphi-Quellcode:

qrMain.SQL.Text:='DELETE FROM `adressbuch` WHERE `id`=`2`;';
  qrMain.ExecSql;

und da macht er mir den Fehler:

Delphi-Quellcode:

Im Projekt Projekt1.exe ist eine Exception der Klasse EDatabaseERROR aufgetreten. Meldung: 'prmain: Unknown column '2' in 'where clause".....

Habe schon rumprobiert aber bekomme es nihct hin.
_____________________________

Beim auslesen der Datensätze zeigt er mir auch nur die id an

Delphi-Quellcode:

qrMain.SQL.Text:='Select * from `adressbuch` order by name;';
    qrMain.Open;

         while not qrMain.Eof do
  begin
    ListItem := anzeige.Items.Add;
    ListItem.Caption:= qrMain.FieldByName('id').AsString;
    ListItem.SubItems.add(qrMain.FieldByName('vorname').asstring);
    ListItem.SubItems.Add(qrMain.FieldByName('name').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('adresse').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('plz').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('wohnort').AsString);
    qrMain.Next;

danke schonmal für die Hilfe.

Gruss
Dennis

[kiar]

versuche mal das anzeigen so:

Delphi-Quellcode:

var row :Tlistitem;

row:=listview1.items.add;
 with row do 

  begin
     subitems.add(qrMain.FieldByName('id').AsString);
     ...
  end;

so müsste zumindest das listview funktionieren.

raik

[dws]

ne das geht so auch nicht trotzdem danke

[kiar]

hallo dws,

versucht auf die spalte mit dem namen 2 zuzugreifen.

die existiert aber nicht. so mal als tip.

SQL-Code:

delete from adressenbuch where adressenbuch.id = 2

und in delphi machst du

Delphi-Quellcode:

qrMain.SQL.Text:=quotedstr(delete from adressenbuch where adressenbuch.id = 2); 
qrMain.ExecSql;

[dws]

ne so will das auch nihct funktionieren der sagt mir dann das da etwas falsch ist in der ZTransact

[kiar]

zeig mal den link von tut

[dws]

http://www.delphi-treff.de/content/tutorials/mysql/

[kiar]

also du musst, bevor du eine abfrage an die db schicken kannst erstmal eine verbindung aufbauen. dies wird mit der Transaction gemacht.

ist das bei dir der fall?

[dws]

die verbindung zu der datenbank steht

Delphi-Quellcode:

dbMain.Host:=edServer.Text;  //Server
  dbMain.Login:=edLogin.Text;  //Benutzername
  dbMain.Password:=edPasswort.Text;  //Passwort
  dbMain.Database:=edDB.Text  //Name der Datenbank
  dbMain.Connected:=True;  //Verbindung herstellen