Ich programmiere grad ein Programm zur verwaltung einer Paradox-Datenbank und ich habe nun ein Problem. Ein Eintrag, der in die Datenbank soll, generiere ich automatisch und er steht im Moment unter DBText.Caption Von dort aus wird er aber nicht in die Datenbank übernommen, wenn ich Table1.Post ausführe.
Meine Frage ist nun:
In welche Eigenschaft von DBText muss ich diesen automatisch generierten String schreiben, damit das nicht passiert?
yoursweet666 Nachtrag zu: „Delphi & Paradox Datenbanken! Schnelle Hilfe Bitte!“
Noch ein kleiner Nachtrag:
Wenn ihr mir sagen könntet, wie Delphi6 sage, dass er nen SQL-Befehl auführen soll, wäre das ebenfalls sehr hilfreich.
MfG
Kai
Borlander yoursweet666 „Noch ein kleiner Nachtrag: Wenn ihr mir sagen könntet, wie Delphi6 sage, dass...“
Alle Datenmanipulationen werden mit der Funktion TQuery.ExecSQL() ausgeführt.
Das andere Problem sehe ich mir morgen noch mal an, jetzt ist mir das zu spät.
CU Borlander
Borlander yoursweet666 „Delphi & Paradox Datenbanken! Schnelle Hilfe Bitte!“
TDBText ist eigentlich nichts anderes als ein Label das ein Datenbankfeld anzeigt, ein Schhreiben auf in die Datenbank ist deshalb nicht vorgesehen.
Ändere stattdesse den Wert des Datenbankfeld, über die Eigenschaft
TTable.FieldValues[FieldName: String],
die Cpation von TDBText müsste dann eigentlich automatisch aktualisiert werden.
CU Borlander
yoursweet666 Borlander „TDBText ist eigentlich nichts anderes als ein Label das ein Datenbankfeld...“
Dieser Tip war schonmal super! Den anderen probier ich jetzt mal aus!
yoursweet666 Nachtrag zu: „Dieser Tip war schonmal super! Den anderen probier ich jetzt mal aus!“
Nun habe ich das Problem, dass ich jetzt bei der Verwendung dieses Befehls eine Exception bekomme. Ich will die Datenbank sortieren und nun krieg ich beim zweiten (!) Tausch die Exception, dass der Editiermodus bzw. der Einfügemodus nicht aktiviert sei. Das ist allerdings unabhängig davon ob ich TTable.Edit an den Anfang des Algorithmus stelle oder nicht. So wie mein Delphi-Buch mir das sagt aktiviert doch TTable.Edit den Editiermodus oder?
TTable.ReadOnly ist übrigens auf false!!
Borlander yoursweet666 „Nun habe ich das Problem, dass ich jetzt bei der Verwendung dieses Befehls eine...“
yoursweet666 Borlander „ Welcher Befehl? Mit TTable oder TQuery? Was meinst Du mit Tausch und von...“
Also die Fehlermeldung heißt exakt:"Im Projekt Project1.exe ist iene Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Table1: Datenmenge weder im Editier- noch im Einfügemodus'. Prozess wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen."
Die Prozedur ist relativ lang aber egal:
procedure TForm2.BtnSortClick(Sender: TObject); //Bubblesort
var
maxPK, x, y : LongInt;
Name1, Name2, Vorname1, Vorname2, Tutor1, Tutor2, Jahrgang1, Jahrgang2 : ShortString;
Pos1, Pos2 : TBookmark;
begin
Table1.Edit;
Table1.Last;
maxPK := StrToInt(DBText1.Caption); // höchsten PK herausfinden
Table1.First;
Pos1 := Table1.GetBookmark;
for x := maxPK - 1 downto 1 do
for y := 1 to maxPK do
begin
Table1.GotoBookmark(Pos1); // Die zu vergleichenden Feldwerte herausziehen
Name1 := Table1.FieldValues['Nachname'];
Vorname1 := Table1.FieldValues['Vorname'];
Tutor1 := Table1.FieldValues['Tutor'];
Jahrgang1 := Table1.FieldValues['Klasse'];
Table1.Next;
Pos2 := Table1.GetBookmark;
Name2 := Table1.FieldValues['Nachname'];
Vorname2 := Table1.FieldValues['Vorname'];
Tutor2 := Table1.FieldValues['Tutor'];
Jahrgang2 := Table1.FieldValues['Klasse'];
if concat(Name1,Vorname1) > concat(Name2,Vorname2) then //Vergleichen
begin
Table1.GotoBookmark(Pos1); // Tauschvorgang
Table1.FieldValues['Nachname'] := Name2;
Table1.FieldValues['Vorname'] := Vorname2; //Auftreten der Exception
Table1.FieldValues['Tutor'] := Tutor2;
Table1.FieldValues['Jahrgang'] := Jahrgang2;
Table1.GotoBookmark(Pos2);
Table1.FieldValues['Nachname'] := Name1;
Table1.FieldValues['Vorname'] := Vorname1;
Table1.FieldValues['Tutor'] := Tutor1;
Table1.FieldValues['Jahrgang'] := Jahrgang1;
end;
if concat(Name1,Vorname1) = concat(Name2,Vorname2) then // für den Fall komplett gleicher Namen
if concat(Name1,Vorname1,Tutor1) > concat(Name2,Vorname2,Tutor2) then
begin
Table1.GotoBookmark(Pos1); // Tauschvorgang
Table1.FieldValues['Nachname'] := Name2;
Table1.FieldValues['Vorname'] := Vorname2;
Table1.FieldValues['Tutor'] := Tutor2;
Table1.FieldValues['Jahrgang'] := Jahrgang2;
Table1.GotoBookmark(Pos2);
Table1.FieldValues['Nachname'] := Name1;
Table1.FieldValues['Vorname'] := Vorname1;
Table1.FieldValues['Tutor'] := Tutor1;
Table1.FieldValues['Jahrgang'] := Jahrgang1;
end;
Pos1 := Pos2; // Positionstausch, damit der Algorithmus wirklich hochzählt
end;
end;
Ich hoffe mal, daraus ist alles ersichtlich.
So long
Kai
Borlander yoursweet666 „Also die Fehlermeldung heißt exakt: Im Projekt Project1.exe ist iene Exception...“
Habe das jetzt erst mal nur kurz überflogen.
Bubblesort
Vestehe ich das richtig, dass Du versuchst die Datenbank per Bubblesort zu sortieren?
Da wäre mit eine SQL-Anweisung nämlich wesentich sinnvollen!
In welcher Zeile kracht es eigentlich?
CU Borlander
yoursweet666 Borlander „Habe das jetzt erst mal nur kurz überflogen. Vestehe ich das richtig, dass Du...“
Dort wo "//Auftreten der Exception steht"
Wie könnte man das denn per SQL sinnvoller lösen?
Hast du da irgendwie ne Seite, damit du dir nicht die Finger wund schreibst?
Schreibe ich da etwa automatisch den gesamten Datensatz um?
Borlander yoursweet666 „Dort wo //Auftreten der Exception steht Wie könnte man das denn per SQL...“
yoursweet666 Borlander „SQL + Sortieren“
Durch diese Sortierung wollte ich aber unter anderem das Problem, dass wenn der erste Datensatz gelöscht wurde und ich nun einen neuen hinzufüge er nicht auf eins hinzugefügt wird sondern auf zwei. Ausserdem, wenn ich bei jedem Aufruf die DB sortieren müsste, wär das doch nun auch irgendwo schwachsinnig, ist doch viel effektiver die DB einmal zu sortieren und dann den Aufruf in der sofort in der richtigen Reihenfolge zu haben. Den Trick mit der Select-Anweisung kenne ich, will ich aber aus obig genanntem Grund nicht verwenden.
Kannst du mir was zu der Exception sagen?
Borlander yoursweet666 „SQL + Sortieren“
yoursweet666 Borlander „Indizes“
Genau das mit dem = Irgendwie habe ich das Gefühl, dass wir aneinander vorbeireden...
Borlander yoursweet666 „Indizes“
yoursweet666 Borlander „Indizes“
1. Paradox ist als System vorgegeben, damit steht MySQL nicht zur Frage.
2. Ja ich meinte Datansatz
3. Ich habe auch mehrere Tabellen
4. Öffentliche Einrichtung ist nicht schlecht, bin Schüler
5. Alles ganz schön und gut, ich komm aber trotzdem nicht um das sortieren herum
MfG
Kai
yoursweet666 Borlander „Habe das jetzt erst mal nur kurz überflogen. Vestehe ich das richtig, dass Du...“
Ups, da hab ich glatt was vergessen..
Ja es ist Bubblesort, soll aber im Laufe der Entwicklung noch zu Quick- oder Shakersort verändert werden, nicht dass ich jetzt nen Rüffel krieg, weil Bubblesort nicht sonderlich schnell ist...
Borlander yoursweet666 „Delphi & Paradox Datenbanken! Schnelle Hilfe Bitte!“
yoursweet666 Borlander „ Soll das System auch im Produktionsbetrieb eingesetzt werden, oder ist das nur...“
Zu 1:
Nein ich mach das ja nicht freiwillig, das ist die Aufgabe für den gesamten Kurs.
Ich vermute mal der Grund warum wir Paradox verwenden ist, weil er nichts anderes kennt und weil ich das stumpfe Gefühl habe, dass er M$-Fan ist.
Zu 2:
Ja, die Verknüpfungen sind alle, zwar noch nicht hundertprozentig eingearbeitet, aber trotzdem, vorhanden.
Zu 5:
Hmm...gut hast mich überzeugt, dann frag ich mich nur noch, warum mein Info-Lehrer unbedingt Sortierung von uns eingearbeitet haben möchte und Sortieralgorithmen ( nochmal ) behandelt hat. Meinte er damit etwa, dass ich Paradox sortieren lassen soll? Wäre etwas zu einfach...Nun ja muss ich ihn nochmal fragen...Kann aber gut sein, wenn man bedenkt, dass im Kurs Standardmäßig der DBNavigator zur Navigation verwendet wird *g*.
Danke für die Bemühungen
Borlander yoursweet666 „Delphi & Paradox Datenbanken! Schnelle Hilfe Bitte!“
yoursweet666 Borlander „ Die Befürchtung habe ich auch. Wenn der mehr Ahnung hätte, wäre er...“
Das ganze wird zum Einsatz kommen, auf die Erweiterbarkeit habe ich ihn nicht angesprochen, ist aber auch nicht sinnvoll jetzt alles nochmal neu zu strukturieren. Irgendwie wird das schon klappen...;)
P.S.: Dachte Paradox wäre von M§
