-
Forum: Datenbanken
Delphi
by Fritz01,
2. Dez 2007
@ raiguen,
danke für Deine Mithilfe, das hat sich aber in der Zwischenzeit erledigt.
Die Lösung sieht so aus, im Prinzip wie Dein Vorschlag:
procedure TfrmMain.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
with tTable do
if TreeView.Selected.IsFirstNode then exit
else
begin // angclickte Tabelle öffnen und Daten in Grid zeigen
...
-
Forum: Datenbanken
Delphi
by Fritz01,
30. Nov 2007
Hallo schon wieder,
Neues von Fritz!
Die Sache beschäftigt mich immer noch und auch mit Erfolg.
Im Prinzip ist es eigentlich so geblieben. Schaut das doch bitte mal an.
Wenn nicht vorhanden: Index neu
//------------------- 2) Index nicht vorhanden
else //
begin
-
Forum: Datenbanken
Delphi
by Fritz01,
29. Nov 2007
Hallo Achim,
habe schon in Sachen Index einige Zeit verbracht, alles vergeblich.
Wie schon geschrieben: Ist ein Index vorhanden, diesen auch benutzen. Ist kein Index da, so sollte ein neuer Index für dieses Feld erstellt werden.
Damit am Ende die Table nicht verändert ist müssen die neu erstellten Indizies vor oder in SwitchTable gelöscht werden. Für die Erweiterung der Proceduren wäre ich...
-
Forum: Datenbanken
Delphi
by Fritz01,
29. Nov 2007
Hallo,
die Sache mit dem in #7 genannten 'Schönheitsfehler' hat sich erledigt. Kann auch nicht nachvollziehen warum das nun so ist. Liegt auch nicht an Table.Refresh !
Bleibt 'nur' noch das Problem mit SwitchIndex wie in #7 schon beschrieben. Da komme ich einfach nicht weiter. Hoffe mal wieder auf Euere Hilfe.
Übrigens: AbsoluteDatabase 5.15 ist verfügbar.
Mit freundlichem Gruß
Fritz
-
Forum: Datenbanken
Delphi
by Fritz01,
28. Nov 2007
Hallo mkinzler,
danke für den Hinweis, aber was bringt das? Habs gemacht, sehe darin keinen Vorteil und ich muß trotzdem um den ersten Eintrag zu öffnen zuerst auf den 2. oder 3. Clicken. Danach geht alles. Vielleicht ein Tipp wie man sofort den ersten öffnen kann?
Mit freundlichem Gruß
Fritz
-
Forum: Datenbanken
Delphi
by Fritz01,
28. Nov 2007
@ marabu
Hallo Achim,
habe Deinen Code versucht zu verstehen. Die mit * gezeichneten Zeilen habe ich bei 'SwitchTable' hinzu gefügt. Das ist nun OK, hat aber einen kleinen Schönheitsfehler: wenn zb. 3 Einträge in TreeView sind kann man den ersten Eintrag nicht öffnen. Clickt man den 2. oder den 3. Eintrag an, kann man danach auch den 1. öffnen. Mal sehen.Vielleicht finde ich da ja noch was.
...
-
Forum: Datenbanken
Delphi
by Fritz01,
28. Nov 2007
Hallo marabu,
habe Deinen Text mal so übernommen um zu schauen was da passiert.
Nach OpenDialog und procedure (siehe #4) erscheint in der TreeView 'Demo.Abs mit einem + davor.
Mit dem ersten Click in TreeView erscheint die Fehlermeldung Table Demo.Abs not exists
ABSDatabase hat den Namen Demo.abs, eine Table Demo.abs gibt es wirklich nicht.
Was ist das ?
Gruß
Fritz
-
Forum: Datenbanken
Delphi
by Fritz01,
27. Nov 2007
Hallo,
ist schon spät geworden.
Habe es mal so gemacht und es hat sich nur etwas verändert.
Die erste Tabelle wird geöffnet, ein Index auf PLZ und Index gelöscht.
Eine Andere läßt sich nun öffnen, aber kommt dann der Click für den Index kommt die Fehlermeldung: Zugriffsverletzung
Ich kriegs nicht gebacken, aber nur nicht aufgeben!
procedure TfrmMain.SelectTable(Name: String='');
-
Forum: Datenbanken
Delphi
by Fritz01,
27. Nov 2007
Hallo nochmal,
habe in der Zwischenzeit noch gesucht.
Der Tabellenwechsel: Index der aktiven Table löschen, aktive Tabelle schließen (Table.Close), neue Tabelle öffnen.
procedure TfrmMain.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
if TreeView.Selected.IsFirstNode then exit
else
begin
-
Forum: Datenbanken
Delphi
by Fritz01,
27. Nov 2007
Hallo,
in meinem Prog. werden im Grid Daten angezeigt, die mit onTitleClick einen Index erhalten und sortiert im Grid erscheinen.
Table.Close;
Table.Exclusive := true;
Table.AddIndex(sName, sName,); // (IndexName, indiziertes Feld);
Table.IndexName := sName;
Table.Exclusive := False;
Table.Open;
sIndexList.Add(sName); // neuer Index in StringListe
Die...
