Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#20

Re: Spalten in Paradox Datenbank einfügen

  Alt 2. Mai 2007, 11:07
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
Heiko
  Mit Zitat antworten Zitat