Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#5

Re: Zerschossene Indexierung bei Paradoxtabellen

  Alt 10. Jun 2004, 10:41
Also Flush geht so
Code:
function FlushTable(Tbl: TTable): Boolean;
begin
   Try
      WriteLog_Tab('FlushTable',Tbl.Name+';'+Tbl.TableName+';'+Tbl.Fields.Fields[0].AsString);
   except
   End;
   Result:=(DbiSaveChanges(Tbl.handle)=DBIERR_NONE);
end;
Und das mit den Index neu erstellen.

Hab ich eine Routine geschrieben die die Index erstellt.
DeleteIndex
und AddIndex

und die Finger von der Sache lasen kann ich nur sagen immer.
Ich würde Mysql oder Flashfiler benutzen je nachdem was man braucht single user oder Multiuser
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat