He he jetzt wird es interessant. Ich habe das zu Testzwecken mal alles nur im Objektinspector eingestellt. Aber wenn ich ein Problem mit der Verbindung zur
DB habe, warum klappt dann einfügen und löschen??
Aber da der Hasenzahn es ja wünscht werde es mal Codeseitig machen.
Delphi-Quellcode:
procedure TForm1.AbrufClick(Sender: TObject);
var ListItem:TlistItem;
begin
dbMain.Host:='
localhost';
//Server
dbMain.Login:='
user';
//Benutzername
dbMain.Password:='
guest';
//Passwort
dbMain.Database:='
C:\Firebird\Firebird_1_5\eigene\test.fdb';
//Name der Datenbank
dbMain.Connected:=True;
qrMain.Sql.Clear;
qrMain.Sql.Text:='
SELECT * FROM vim where name=´Schwarz´;';
qrMain.Open;
while not qrMain.EOF
do
begin
ListItem := ListView1.items.Add;
ListItem.caption:=qrMain.fieldbyname('
nummer').asString;
listItem.SubItems.Add(qrMain.fieldbyname('
name').asString);
qrMain.Next
end;
Und es kommt die gleiche Fehlermdung. Es wird in der
Unit "ZIBSqlQuery" folgende Zeile angemeckert:
FieldDescKey := FindPrimaryKey;