TAdvStringGrid
Example 17 : using ADO to load data into TAdvStringGrid
This simple procedure shows how to use ADO to load data from a table in a MS Access database. To open a table from a SQL server database in a grid, change the open line to use the SQL server. Be sure to use the unit COMOBJ for this code.
procedure LoadFromADO(sg: tadvstringgrid; mdb, table: string);
var
adoset:variant;
adoconn:variant;
adofield:variant;
i,j:integer;
begin
adoconn := CreateOLEObject('ADODB.Connection');
adoconn.Open('driver={Microsoft Access Driver (*.mdb)};dbq='+mdb);
adoset := adoconn.Execute('SELECT * FROM '+table);
sg.colcount := adoset.fields.count + 1;
for i:=1 to adoset.fields.Count-1 do
begin
adofield:=adoset.fields.item(i);
sg.cells[i,0]:=adofield.Name;
end;
j := 1;
while not adoset.EOF do
begin
if (j>sg.rowcount) then
sg.rowcount := sg.rowcount + 1;
for i := 1 to adoset.fields.Count-1 do
begin
adofield := adoset.fields.item(i);
sg.cells[i,j] := adofield.Value;
end;
adoset.MoveNext;
inc(j);
end;
adoset := unassigned;
end;
Delphi project & source files for downloading included in the main demos distribution for Delphi.