Kommen wir zu nem neuen Problem
Ich aberbeite derzeit ein Zeoslob Tutorial durch(
http://www.dsdt.info/tutorials/zeoslib/?page=7)
habe aber ein Problem bei anzeigen aller Datensätze.
Ich hoffe ihr könnt mir da helfen.
Ich kopiere ambesten den code ma hier rein.
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin
dbMain.Hostname:=edServer.Text;
dbMain.User:=edLogin.Text;
dbMain.Password:=edPasswort.Text;
dbMain.Database:=edDB.Text;
dbMain.Connected:=True;
try
qrMain.SQL.Text:='Select * from `adressbuch` order by name;';
qrMain.Open;
while not qrMain.Eof do
begin
ListItem := lvAnzeige.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;
end;
finally
dbMain.Connected:=False;
end;
end;
Das war der Code für den Button Datensätze anzeigen. Das Listview muss ja Listitem heißen oder?
Der Compiler meckert hauptsächlich beim 1vAnzeige, dabei kann es sich aber net umne Komponente handeln, weil man da ja keine Zahlen eingeben kann.
Deshalb bin ich auch so ratlos. Ich glaube es ist eine Eigenschaft, die bei mir anders heißt^^.
Den gesamten Fehler habe ich im Anhang.