Daten löschen

[benny]

Daten einer Tabelle (ParadoxTabelle) werden in einem DBGrig aufgelistet. Zwischendurch sollen neue Daten importiert und vor dem Import sollen die alten gelöscht werden. Das Löschen der Daten funktioniert nicht, die Fehlermeldung ist "Datei im Gebrauch, Löschen nicht möglich". Wie kann ich das Problem am besten lösen ?

benny

[mkinzler]

TTable.EmptyTable;

[benny]

die Löschprozedur lautet:
procedure Tform1.table2leeren;
begin
With table2 do begin
if active=true then close;
close;
Exclusive := TRUE;
Active := TRUE;
EmptyTable;
Active := False;
Exclusive :=False;
open;
end;
end;

bei "EmptyTable" erfolgt der Programmausstieg.

[haentschman]

Hallo...

Delphi-Quellcode:

procedure Tform1.table2leeren;
begin
With table2 do begin
if active=true then close;
close;
Exclusive := TRUE;
Active := TRUE;
EmptyTable;
Active := False;
Exclusive :=False;
open;
end;
end;

es reicht...

Delphi-Quellcode:

procedure TForm1.tabelle2leeren;
begin
  Table2.EmptyTable;
end;

Zitat:

"Datei im Gebrauch, Löschen nicht möglich".

...kommt vom Exclusive := TRUE;

[benny]

jetzt schreibt er mir: "Tabelle nicht exclusiv Modus geöffnet", ich weiß wirklich nicht weiter ???

[mkinzler]

Verwende SQL

Btw. Nimm lieber ein anderes DBMS, denn die BDE ist veraltet und wird seit Jahren nicht mehr weiterentwickelt

[haentschman]

BDE ist schon eine kleine Weile her...

die Tabelle sollte schon vor dem Leeren geöffnet sein...
probiere mal...

Delphi-Quellcode:

procedure TForm1.tabelle2leeren;
begin
  Table2.Active:= True; // bzw. vorher (On Create / OnShow) einfach aktiv machen.
  Table2.EmptyTable;
end;

mit welchen Datenzugriffskomponenten arbeitest du ?
greifst du mit mehreren Clients auf die Tabelle zu ?

[Hansa]

Das Close ist zweideutig. Schreibe mal "Table2." überall hin und kommentiere die with-Zeile aus. Würde mich nicht wundern, wenn...

[benny]

wie gesagt die Daten werden zur Laufzeit in eimen DBGrig aufgelistet und er reist die Daten, glaube ich, an sich heran, lösche ich ihn aus der Maske so funktioniert das Löschen einwandfrei.
In einem Monat stellen wir unsere Programme auf ADS-Datenbank um, bis dahin muss ich mich aber noch mit der BDE quälen !!

[Apollonius]

@Hansa: Es ist eindeutig geregelt, dass das innere With vor dem äußeren kommt (falls es mehrere gibt) und erst ganz am Ende Self.