Komplette Tabelle leeren

alexschultze · Beiträge: 317

hiho

ich habe eine kleine Datenbank, welche die aktuell angemeldeten User registriert. Da beim Start keine User angemeldet sind, soll die Tabelle jedes mal komplett geleert werden, aber nicht gelöscht.

Ich hab diverses probiert, aber irgendwie gabs immer Probleme. Was ist die 'saubere' Leerung einer Datenbank?

markieren

Quelltext

1:
2:
3:
4:
5:

table2.Edit;
//table2.ClearFields;
datasource2.Enabled:=false;
table2.Exclusive:=true;
table2.EmptyTable;

alex

LCS · Verfasst: Di 03.12.02 15:28

Hi
die einfachste Lösung wäre mittels TQuery und dieser SQL-Anweisung.

markieren

Quelltext

1:	DELETE FROM DeineTabelle

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

Es geht sogar ohne Query. Einfach Database.Execute('delete from tabelle').

alexschultze · Beiträge: 317

gibts nicht noch ne einfachere Variante a la
table2.clear ?

LCS · Verfasst: Di 03.12.02 15:59

@Udontknow
Das ist ja mal ein typischer Fall von: Man lernt nie aus :mrgreen:

TDatabase verwende ich nun wirklich schon seit Jahren, aber die Methode ist mir noch nie aufgefallen.
:think:

Guter Tipp

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Scrat · Beiträge: 73

Hallo zusammen,

ich habe das auch mal ausprobiert (Tabelle leeren).
Aber ich bekomme eine Fehlermeldung.

Mein Quelltext:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if key = '1' then
 begin
  if MessageDlg('Sollen wirklich alle Bestellungen gelöscht werden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  Material_bestellung2.Richedit1.Lines.clear;
  Table1.DatabaseName:= 'c:\delphi\dynamische_infopost\';
  Table1.TableName := 'Bestell.dbf';
  Table1.open;
  Datsour1.Enabled:=false;
  Table1.Exclusive:=true;
  Table1.Database.Execute('delete from tabelle').
  MessageDlg('Alle Bestellungen wurden gelöscht.', mtInformation, [mbOk], 0);
  end;

Die Fehlermeldung:
[Fehler] Verwaltung.pas(144): Record, Objekt oder Klassentyp erforderlich

Danke im Vorraus

Gruß
Scrat

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

LCS · Verfasst: Mi 04.12.02 09:39

Hi
jetzt wärs natürlich noch ganz nett gewesen wenn du uns geschrieben hättest, welche Zeile Delphi da bemängelt :wink:

. Zwei Fehlerchen hab ich aber gefunden.
1. Du versuchst eine Tabelle Exklusiv zu verwenden nachdem du sie geöffnet hast. Das funktioniert nicht. Die Tabelle muss dazu geschlossen sein.
2. Ich nehme mal an du möchtest den Inhalt von BESTELL.DBF löschen. Dann musst du das natürlich auch mit SQL formulieren:

markieren

Quelltext

1:	DELETE FROM BESTELL

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Jagg · Beiträge: 635

und wie geht das ohne SQL !
Table1.Delete ???

Jagg !

LCS · Verfasst: Mi 04.12.02 10:18

TTable.EmptyTable (Einschränkungen beachten)

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Jagg · Beiträge: 635

aber bevor man das aufruft muss man doch die tabelle schließen oder nicht ?

Jagg !

neojones · Beiträge: 1206 Erhaltene Danke: 1

Ob mans schließen muss oder nicht kommt auf die zu Grunde liegende Datenbank an. Meistens reicht es, wenn man sie Exclusive öffnet. Bei mySQL geht es auch mitten im Laufenden Betrieb, solange kein LOCK auf die Tabelle gesetzt ist und die GRANTS ausreichen.

_________________
Ha! Es compiliert! Wir können ausliefern!

Jagg · Beiträge: 635

wenn ich exclusive := true mache sagt er mir immer Tabelle in gebrauch !
dann muss ich sie doch schließen oder nicht,aber wenn ich es mache geht es dann auch nicht !
oder ist die tabelle noch woanders geöffnet !

alexschultze · Beiträge: 317

vermutlich von der BDE?

alexschultze · Beiträge: 317

also, soweit geht es bei mir (in dieser Reihenfolge):

Datasource2.Enabled:=false;

table2.close;
Table2.Exclusive:=true;

EmptyTable geht immer noch nicht

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

Hi!

Nun, wenn das alles nicht klappt, kann man es natürlich auch noch umständlich machen.

markieren

Quelltext

1:
2:
3:

Table.First;
While not Table.eof do
  Table.Delete;

Cu,

Udontknow

LCS · Verfasst: Do 05.12.02 09:12

@alexschulte
Wenn's so wie du geschrieben hast nicht klappt, ist die Tabelle noch irgendwo anders geöffnet. Beispielsweise im Explorer der IDE. Zum Löschen mit EmptyTable muss die Tabelle Exklusiv zur Verfügung stehen. Ob sie beim Löschen geöffnet oder geschlossen ist spielt keine Rolle.

@Udontknow
Das funktioniert zwar, aber wenn du auf diese Art und Weise 10000 Datensätze löschen willst, die irgendwo auf einem Server liegen, hast du nen Bart bis er damit fertig ist.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

LCS:

Klar ist das langsam. Ist ja auch nur eine Notlösung. Wenn halt nichts anderes klappt... :wink:

Cu,
Udontknow

alexschultze · Beiträge: 317

die eof Variante ist für mich voll und ganz in Ordnung

danke

das ganze mit Exklusive etc.... mich nervt es auch *g*

Darum, danke UdOntKnow

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme