Hallo,
ich habe mal ne Frage in bezug auf den Primären Index einer Tabelle. Die Tabelle enthält die Software (ca. 150 pro Computer) von ca. 1300 Computer.
Auf jedem Computer läuft ein Client, der die Software in die Datenbank zweimal am Tag schreibt. Dazu habe ich folgende Logik.
1. Client verbindet sich mit der Datenbank
2. Check, ob es Softwareeinträge für den Computer gibt
2.1 Wenn ja, werden sie alle gelöscht
3. Neue Software wird in die Datenbank geschrieben (Methode: Append)
Ich sehe da folgendes Probelm, welches ich nicht gelöst bekomme. Am Anfang wird der Index noch ok sein aber irgendwann wird der Integer Typ des Index der
DB überlaufen (Wertebereich erreicht). Was könnte ich machen bzw. wie kann ich das vermeiden ohne die Logik zu ändern.
Hatte schon versucht, ohne Primären Index zu arbeiten. Aber dann klappt das Löschen nicht und es kommt vereinzelt zur Fehlermeldung. Siehe Anhang.
Hier mein Code, um die Daten in die Tabelle zu bekommen.
Delphi-Quellcode:
// Software
try
DSData.Close;
DSData.CommandText := 'Select * from computer_software where sid = ' + id + ' order by name'; // order by name, damit ich weiß wo der Fehler kommt
DSData.Open;
if DSData.RecordCount > 0 then
for i := 0 to DSData.RecordCount - 1 do
DSData.Delete;
for i := 0 to max_ASoftware do
begin
if ASoftware[i].name = '' then
break;
DSData.Append;
DSData.FieldByName('name').AsString := ASoftware[i].name;
DSData.FieldByName('version').AsString := ASoftware[i].version;
DSData.FieldByName('installedon').AsDateTime := ASoftware[i].installedon;
DSData.FieldByName('sid').AsString := id;
DSData.Post;
end;
DSData.Close;
CreateLogFile('Software Information',AppPath,0);
except
CreateLogFile('Software Information failed',AppPath,0);
end;
Ich hoffe einer von euch hat ne zündene Idee.
Dank im voraus.