Hallo,
ich habe ein Problem mit einer älteren Delphi4 Datenbankanwendung.
Ich öffne eine DBASE Datenbank mit Table1 und Indexdatei.
Leider ist die Indexdatei defekt oder nicht mehr in Ordnung.
Nun möchte ich eine Abfrage programmieren die überprüft ob die
Indexdatei noch vorhanden ist, wenn nicht soll sie neu erzeugt
werden.
Beispiel:
Delphi-Quellcode:
Table1.TableName := 'MUSTER.DBF';
Table1.Exclusive := True;
If NOT FileExists('MUSTER.MDX') Then Begin
Table1.IndexName := '';
Table1.ReadOnly := False;
Table1.Active := True;
Table1.AddIndex(Dateiname,'DATUM',[ixPrimary]);
Table1.Active := False;
End;
Leider ist hierfür die Funktion AddIndex nicht die richtige.
Für einen Lösungsvorschlag wäre ich dankbar.
http://www.delphipraxis.net/images/smiles/wall_bash.gif
ouch!
[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]