An deinem Code ist soweit alles richtig.
4 Kleinigkeiten:
Delphi-Quellcode:
// QuotedString statt ''
uniQuery.SQL.Text := Format('SELECT * FROM %s WHERE hostname=%s',[dbTable, QuotedString(ComputerName)]);
Delphi-Quellcode:
uniQuery.Open; // Datenbankabfrage durchführen
// nach einem Open steht die Datenmenge immer auf dem 1. Datensatz (aber nur wenn die Menge zuvor geschlossen war)
// uniQuery.First; // und auf erstem Datensatz positionieren - braucht man nicht
Eof nimmt man wenn man durch das Dataset iterieren möchte
Um zu prüfen ob überhaupt Datensätze vorhanden sind verwendet man
IsEmpty
Delphi-Quellcode:
// if not uniQuery.Eof then begin
if not uniQuery.IsEmpty then begin
Beim beschreiben der Felder kann man die kürzere Schreibweise verwenden.
Beim Lesen sollte man es aber die AsXXXXX-Methoden verwenden um eine Ungültige Variantumwandlung
Exception zu vermeiden
Delphi-Quellcode:
// Felder aktualisieren
uniQuery.Edit;
uniQuery['last_update'] := Now; // kürzer und "schöner" (ist aber auch Geschmacksache)
uniQuery.FieldByName('last_update').AsDateTime := Now;
uniQuery.Post;
Jetzt nur zu deinem Problem mit dem Autoincrementfeld "index".
Die
VCL muss wissen dass das Autoincfeld nicht upgedatet werden darf.
Prüfe mal welchen Inhalt
uniQuery.FieldByName('index').ProviderFlags
hat.
Notfalls muss man von Hand eingreifen und die Flags ändern.
Eigentlich müsste das UniDAC schon richtig machen (alte Version?)