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

[Sir Rufo]

Zitat von p80286:

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 von Sir Rufo:

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 .

Grüße, Messie

[Sir Rufo]

Zitat von messie:

Zitat von Sir Rufo:

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 .

Grüße, Messie

Ja, das geht so auch, aber das geht auch so
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;