Solved

Acccessing DBGrid1 values using an array

Posted on 2004-04-16
15
451 Views
Last Modified: 2010-04-05
Hey I would like to access my DBGrid using a two dimensional array like this
TStringGrid( DBGrid1 ).Cells[1,1] but it gives me "access violation" any other way this could be done?

Thanks
Erik
0
Comment
Question by:erik2000
  • 4
  • 3
  • 3
  • +1
15 Comments
 
LVL 17

Accepted Solution

by:
mokule earned 70 total points
ID: 10846288
You certeinly don't like it, but...

// goto col, row
  DBGrid1.DataSource.DataSet.First;
  for i := 0 to row-1 do
    DBGrid1.DataSource.DataSet.Next;
  DBGrid1.Columns[col].Field.AsString;
0
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10846291
Erik2000,

This is not possible. Although both components are Grids and do share some similiar hierarchy, the Cells property is introduced in the TStringGrid class declaration. It does not exist in the Hierarchy prior to TStringGrid.

Hope this Helps!

What exactly are you trying to do, maybe we can suggest an alternative method (Such as the fields array property, or the FieldByName method.

Shane



0
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10846473
Here is Mokules suggestion wrapped in a function called Cells

function MyForm.Cells(Row, Col): String;
begin
 result:= '';
  MyGrid.DataSource.DataSet.First;
  for i := 0 to Row - 1 do
    MyGrid.DataSource.DataSet.Next;
  result:= MyGrid.Columns[Col].Field.AsString;
end;


Shane
0
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
LVL 17

Expert Comment

by:mokule
ID: 10846518

Yes,

I don't want to wrap it like this because when You want to get some cells from one row it'll be extremly ineffective ... :)

0
 

Author Comment

by:erik2000
ID: 10846562
Hmm I was thinking that DBGrid was desined for this purpose but I guess Im wrong, Im trying to:
1. Access any cells value by either an array (example [1,1] ) or by the row number/column name
2. I would be interested in reading all the values from a column or row

The method mokule used is something Im looking for but I think it will be really slow, Im working on a dbgrid that has 100k records each row has 12 fields
Is there another way to access the data other then this? Maybe directly from the ADOQuery that Im using to get the data from the sql

Thanks
Erik
0
 
LVL 17

Expert Comment

by:mokule
ID: 10846623

It depends what is Your aim but I suggest StoredProcedure, ADOCommand or ADOQuery
0
 

Author Comment

by:erik2000
ID: 10846658
http://64.233.167.104/search?q=cache:J9F7R5LZUD8J:www.delphinautes.org/scripts/delphin.dll/GET%3FACTION%3DIFAQ%26NUM%3D7+dbgrid+GetEditText&hl=en&ie=UTF-8

I also found this online, but I cant access GETEDITTEXT how would I go about doing that?

Thanks
Erik
0
 
LVL 17

Assisted Solution

by:geobul
geobul earned 70 total points
ID: 10857587
Hi,

Try this (directly from ADOQuery):

function GetADOQueryValue(q: TADOQuery; row, col: integer): string;
var
  offset: integer;
begin
  offset := row - q.RecNo;
  q.MoveBy(offset);
  result := q.Fields[col - 1].AsString;
end;

// usage:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetADOQueryValue(ADOQuery1, 3,2));
end;

Regards, Geo
0
 

Author Comment

by:erik2000
ID: 10861619
1. Isnt there a way to do it without moving the grid?
2. How would I go about writing to the grid?

Other then that the function works great.
Also I increased the points for this question
Thanks
Erik
0
 
LVL 17

Expert Comment

by:geobul
ID: 10866417
Hi,

>1. Isnt there a way to do it without moving the grid?

I would use another ADOQuery component and clone the original one:

...
ADOQuery1.Open; // DBGrid is accosiated to this query
ADOQuery2.Clone(ADOQuery1);
...

and then will get values from ADOQuery2:
ShowMessage(GetADOQueryValue(ADOQuery2,100,2));

>2. How would I go about writing to the grid?

What exactly do you mean?

Regards, Geo
0
 

Author Comment

by:erik2000
ID: 10870859
I want to write to the grid something like this SetADOQueryValue(ADOQuery2,1,1,"my value");

Thanks
Erik
0
 
LVL 17

Expert Comment

by:geobul
ID: 10876304
And you probably don't want to change the current record on DBGrid also? Assuming the current record is different from the one you're setting values to.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question