UPS. Sorry das hatte ich im Tut anders verstanden. Naja so wie ich gelesen habe ist das mit dem Autowert bei Firebird etwas komplizierter, deswegen werde ich mich später darum kümmern. Ohne dem ID-Feld gehen meine Eingaben ja, nur den Abruf (egal ob in einem Textfeld oder in einem Listview) kriege ich nicht hin!! Hier mal der letzte Code.
Delphi-Quellcode:
procedure TForm1.btnanzeigeClick(Sender: TObject);
var ListItem: TListItem;
begin
qrMain.SQL.Text:='Select * from vim; ';
qrMain.Open;
while not qrMain.EOF do
begin
ListItem:= Listview1.Items.Add;
{ListItem.Caption:= qrMain.fielbyname('id').asString;}
listItem.SubItems.Add(qrMain.FieldbyName('nummer').asString);
qrMain.Next;
end;
end;
Wenn ich den Button zum Abrufen der Daten drücke kommt eine Fehlermeldung in der
Unit ZIBSqlQuery mit der Zeile:
FieldDescKey := FindPrimaryKey;