Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2009-12

getting values from a DBGrid

5 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Chris Jennings

Hi All

I need to transfer selected values from a DBGrid to a DBMemo

Given the following code

     procedure TfrmCourses.DBGrid2DblClick(Sender: TObject);
     begin
        DBMemo3.Lines.Add(DBGrid2.???);
     end;

I would like the row values in the Grid transfered to the memo when a user double clicks the specific row. Idealy, I would like to transfer only cells from specific columns.

I can't seem how to proglimatically capture the data I need.

Any help would be much appriciated. I am still a newbie to Lazarus but my program is beginning to take shape.

Thanks in advance

Chris

Reply by email

Paul Ishenin
to Chris Jennings
Chris Jennings wrote 6 lines
Given the following code procedure TfrmCourses.DBGrid2DblClick(Sender: TObject); begin DBMemo3.Lines.Add(DBGrid2.???); end;

DBGrid shows values from a DataSet, so use DataSet instead: Lines.Add(DataSet.FieldByName('MyField').AsString)

Best regards,
Paul Ishenin.

Reply by email

Chris Jennings
to Paul Ishenin

Thanks but

DBMemo3.Lines.Add(datGrid.FieldByName('crs_courseName').AsString)

returns

u_courses.pas(124,30) Error: identifier idents no member "FieldByName"

where "datGrid" is the name of my TDatasourse and "crs_courseName" is a column in my db

Paul Ishenin wrote 18 lines
Chris Jennings wrote: > Given the following code > > procedure TfrmCourses.DBGrid2DblClick(Sender: TObject); > begin > DBMemo3.Lines.Add(DBGrid2.???); > end; DBGrid shows values from a DataSet, so use DataSet instead: Lines.Add(DataSet.FieldByName('MyField').AsString) Best regards, Paul Ishenin. -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply by email

Diwakoe
to Chris Jennings
Chris Jennings wrote 11 lines
Thanks but DBMemo3.Lines.Add(datGrid.FieldByName('crs_courseName').AsString) returns u_courses.pas(124,30) Error: identifier idents no member "FieldByName" where "datGrid" is the name of my TDatasourse and "crs_courseName" is a column in my db

Do not use TDatasource use TDataset (TSQL Query SQLDB component or TSQL Query Zeoslib component).

Ex:
DBMemo3.Lines.Add(SQLQuery.FieldByName('crs_courseName').AsString)

Cheers,
Diwa

Semua rasa ada disini http://www.teoteblung.co.cc

Reply by email

Chris Jennings
to Diwakoe

Thanks - that did the trick

Diwakoe wrote 25 lines
On Mon, Dec 14, 2009 at 7:47 AM, Chris Jennings wrote: > Thanks but > > DBMemo3.Lines.Add(datGrid.FieldByName('crs_courseName').AsString) > > returns > > u_courses.pas(124,30) Error: identifier idents no member "FieldByName" > > where "datGrid" is the name of my TDatasourse and "crs_courseName" is a > column in my db > > Do not use TDatasource use TDataset (TSQL Query SQLDB component or TSQL Query Zeoslib component). Ex: DBMemo3.Lines.Add(SQLQuery.FieldByName('crs_courseName').AsString) Cheers, Diwa

Reply by email