Delphi Zerschossene Indexierung bei Paradoxtabellen

Thema durchsuchen

Ansicht

Themen-Optionen

Zerschossene Indexierung bei Paradoxtabellen

Ein Thema von alfred · begonnen am 10. Jun 2004 · letzter Beitrag vom 10. Jun 2004

Vorheriger Beitrag

Nächster Beitrag

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge

Delphi 10.2 Tokyo Enterprise

Re: Zerschossene Indexierung bei Paradoxtabellen

10. Jun 2004, 09:41

Also Flush geht so

markieren

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;