Hallo,
1. nehm den Update-Code raus und mache einen eigenen Menüpunkt "Datenbank-Update"
du kannst nicht sicherstellen, dass nicht jemand anders gerade die Tabelle aufhat
sie muss exclusive geöffnet werden (das macht die
Query elber)
Das ist bei
Paradox leider so.
Ich würde gerade wegen sowas (und den vielen anderen Features)
eh auf Firebird wechseln.
Du kannst (solltest aber nicht) die
BDE auch mit Firebird benutzen.
Ich würde aber uib oder fibplus nehmen
2. Führe eine Datenbank-Nummer ein (Integer, einfach hochzählen)
dann kannst du dir unnötige
DB-Updates sparen,
die schon erledigt sind
die
DB-Nummer steht z.B. in einer eigenen Tabelle,
deren Daseinsberechtigung nur diese eine Zahl ist
3. Der Fehler hier ist, dass du auf jeden Fall ein
DB-Update
machen willst, auch wenn die entsprechenden Felder schon drin sind.
Existiert das Feld schon, erzeugt alter table aber eine Fehlermeldung.
Du musst vorher prüfen, ob das Feld schon drin ist.
Ich mache das immer über eine
Query mit
select * from table
und dann die geöffnet
Query an folgende Funktion übergeben.
Delphi-Quellcode:
function FieldExists(theDataSet: TDataSet; const theFieldName: String): Boolean;
var
iFieldIndex: Integer;
begin
Result:= False;
for iFieldIndex:=0 to theDataSet.FieldCount-1 do
begin
if CompareText(theDataSet.Fields[iFieldIndex].FieldName,theFieldName)=0 then
begin
Result:= True;
Exit;
end;
end;
end; { FieldExists }
4. Deine Feldnamen (1,2,3,viele...) weisen darauf hin, dass vielleicht du einen
Fehler in deinem
DB-Design hast.
Solche Felder schreien geradezu nach einer eigenen Tabelle.
Heiko