DB Grid: welche Informationen lassen sich aus den selected-Zeilen ziehen?

[Sir Rufo]

Zitat:

Zitat von p80286 (Beitrag 1193200)

habe ich da etwas falsch verstanden?

Im allgemeinen sollte so ein Grid durch das Egebnis einer Query gefüllt werden/sein.

Wenn du das so schreibst, dann hast du das falsch verstanden :)

Ein DBGrid wird durch ein DataSet gefüllt, welches über eine DataSource mit diesem DataSet verbunden wird (TDBGrid <-> TDataSource <-> TDataSet).
Ein DataSet kann eine Query, Table, StoredProcedure (oder was immer irgendwie von TDataSet abgeleitet ist) sein.

(Es ist Haarspalterei, ich weiß)

Der Rest deiner Aussage ist völlig korrekt

[p80286]

Dann ist's klar (für mich)

Danke
K-H

[messie]

Zitat:

Zitat von Sir Rufo (Beitrag 1193183)

Vom Grid holst du dir nur die Informationen, welche Datensätze gemeint sind und von der DatenMenge holst du dir die Information die du brauchst "project_id".

Eigentlich war ich der Meinung, dass ich das genau so mache. Aber wer weiß...

Code:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    DM.Gridquery.GotoBookmark(CRDBGrid1.SelectedRows[0]);
    k := DM.Gridquery.FieldList.IndexOf('INTERNAL_ORDER');
    s := DM.Gridquery.fields[k].AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;

Jedenfalls funktioniert es bis zur eigentlichen Funktion. Da streikt allerdings bisher die Query :evil:.

Grüße, Messie

[Sir Rufo]

Zitat:

Zitat von messie (Beitrag 1193225)

Zitat:

Zitat von Sir Rufo (Beitrag 1193183)

Vom Grid holst du dir nur die Informationen, welche Datensätze gemeint sind und von der DatenMenge holst du dir die Information die du brauchst "project_id".

Eigentlich war ich der Meinung, dass ich das genau so mache. Aber wer weiß...

Code:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    DM.Gridquery.GotoBookmark(CRDBGrid1.SelectedRows[0]);
    k := DM.Gridquery.FieldList.IndexOf('INTERNAL_ORDER');
    s := DM.Gridquery.fields[k].AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;

Jedenfalls funktioniert es bis zur eigentlichen Funktion. Da streikt allerdings bisher die Query :evil:.

Grüße, Messie

Ja, das geht so auch, aber das geht auch so

Delphi-Quellcode:

s := DM.Gridquery.FieldByName( 'INTERNAL_ORDER' ).AsString;

Oder sogar so:

Delphi-Quellcode:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    CRDBGrid1.DataSource.DataSet.GotoBookmark( CRDBGrid1.SelectedRows[0] );
    s := CRDBGrid1.DataSource.DataSet.FieldByName( 'INTERNAL_ORDER' ).AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;