DBGrid.Field.Value mit Daten einer Tabelle vergleichen?

[Loki77]

Also mal zur Erklärung:
Ich erstelle im DBGrid einen Datensatz durch eine SQL-Abfrage mehrerer Tabelle.
Wenn der Anwender auf eine Zeile des DBGrid doppel-klickt werden diese Daten in eine Tabelle
geschrieben.
Nun möchte ich beim nächsten mal dem Anwender zeigen dass der Datensatz schon existiert wenn
er "einfach" darauf klickt.
Also muss ich prüfen ob der Wert in DBGrid.Column[0] bereits in meiner Tabelle existiert.

[Angel4585]

du erstellt in das DBGrid mehrere Tabellen durch ne SQL-Abfrage? kannst du mal den Code dazu posten? das würd mich jetz ma interesseieren a)wie du das machst und b) ob ich einfach nur aufm Schlauch steh.

[mkinzler]

Wenn du eine Abfrage über mehrere tabellen hast kannst du trotzdem mit Query.FieldByName(<feldname>).Value drauf zugreifen.

[Angel4585]

Zitat von mkinzler:

Wenn du eine Abfrage über mehrere tabellen hast kannst du trotzdem mit Query.FieldByName(<feldname>).Value drauf zugreifen.

Ich weis jetz nich ob das bei Paradox auch so ist, aber wenn ich mehrere Tabellen über ein Join verknüpfe und in jeder der Tabellen z.B. das Feld "ID" drin ist, wird daraus - zumindest bei MySQL - "ID", "ID_1", "ID_2" ... also falls das der Fall ist bissi auf sowas achten

[Loki77]

Zitat:

du erstellt in das DBGrid mehrere Tabellen durch ne SQL-Abfrage?

Nein,Ich erstelle aus mehreren Tabellen (join) einen Datensatz.

Zitat:

Ich erstelle im DBGrid einen Datensatz durch eine SQL-Abfrage mehrerer Tabelle.

Der Vergleich funktioniert auch, aber nur für den ersten eintrag meiner Vergleichstabelle.
Hab schon ´ne menge Möglichkeiten durch diese Datensätze zu durchlaufen, aber
es funktioniert nicht so wie ich will....

[Loki77]

Hallo!
Hier mal ´n bisschen Code:

Delphi-Quellcode:

procedure TForm1.DBGrid6ColEnter(Sender: TObject);
var
i : integer;
begin
  SpeedButton3.Enabled := true;
  SpeedButton4.Enabled := true;
  tblCheck.First;
  while not tblCheck.eof do
  begin
    if tblCheck.FindKey([DBGrid6.Columns[0].Field.Value]) then
      Label10.Color := clGreen
    else
      Label10.Color := clMaroon;
    tblCheck.next;
  end;

Wenn ich einen zweiten Datensatz anklicke der in meiner Vergleichs-Tabelle steht
hängts sich das Prog (in ner Schleife?) auf.

[marabu]

Hallo Philipp,

das wird damit zusammenhängen, dass deine Prüfroutine zu häufig und überlappend aufgerufen wird. Nimm die Prüftabelle doch in deinen Join auf und wenn du willst färbe gleich die ganze Zeile im Ereignis OnDrawColumnCell(). Nach Übernahme eines Schlüssels in die Tabelle durch DblClick musst du dann nur deinen Join erneuern.

Grüße vom marabu

[Loki77]

Klingt nach ´ner guten Idee!
Werd´mich mal daranmachen und es versuchen.
Vielen Dank, Philipp