Solved

Acccessing DBGrid1 values using an array

Posted on 2004-04-16
15
433 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
Comment Utility
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
Comment Utility
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
Comment Utility
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
 
LVL 17

Expert Comment

by:mokule
Comment Utility

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
Comment Utility
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
Comment Utility

It depends what is Your aim but I suggest StoredProcedure, ADOCommand or ADOQuery
0
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 

Author Comment

by:erik2000
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

762 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

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now