[nhr]

Как выполненный SQL - запрос вывести в StringGrid?
вот мой код:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
i, j:integer;
st:string;
begin
with StringGrid1 do
    Cells[0,1]:='DEMO';
with StringGrid1 do
    Cells[0,2]:='DEVELOP';
with StringGrid1 do
    Cells[1,0]:='Count1';
with StringGrid1 do
    Cells[2,0]:='Count2';

begin

st:=StringGrid1.Cells[i,j];
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add(что тут писать);
ADOQuery1.Open;
end;
end;

Админ: Пользуемся тегами для оформления кода!

[nhr]

выдает ошибку:
Missing SQL property

[Pilot_Red]

а чем DBGrid не устраивает...

[nhr]

мне сказали, что надо так делать, т.к, несколько таблиц из разных БД.

[Pilot_Red]

Сообщение от nhr

мне сказали, что надо так делать, т.к, несколько таблиц из разных БД.

........мда......... а причем здесь стрингрид..

сделал запрос из нескольких таблиц и вывел его в нормальный DB компонент....
вам же уже ответили... или вы решили на каждый переформулированный вопрос открывать новые ветки форума..???

[nhr]

Я уже сделал, 4 таблицы DB_string, но мне сказали, что так не корректно, в том плане, если у меня мног0 БД, то для каждой БД надо писать свой dbgrid!
Кстати, новая ветка форума-необходимость, я не знаю как ее удалить!!!

[Pilot_Red]

как понять писать свой dbgrid, это всего лишь компонент на который выводятся данные......??!!

[nhr]

в одном Dbgrid у меня не таблица, а количество нулевых строк в таблице!
Поэтому тк у меня много таблиц, для каждой из них нужен свой DBGrid

[Pilot_Red]

Сообщение от nhr

в одном Dbgrid у меня не таблица, а количество нулевых строк в таблице!
Поэтому тк у меня много таблиц, для каждой из них нужен свой DBGrid

количество нулевых строк в таблице....... это как??
Напишите уже, что вы хотите сделать в конце-то в концов...

[nhr]

Сделал!!!
Только теперь надо объединить в цикл ADOQuary1 и 2, а вот как это сделать-вопрос

procedure TForm1.Button3Click(Sender: TObject);
var
i, j:integer;
st:string;
begin
with StringGrid1 do
    Cells[0,1]:='DEMO';
with StringGrid1 do
    Cells[0,2]:='DEVELOP';
with StringGrid1 do
    Cells[1,0]:='Count1';
with StringGrid1 do
    Cells[2,0]:='Count2';
for j:=1 to StringGrid1.RowCount-1 do
begin
st:=StringGrid1.Cells[1,j];
ADOQuery1.SQL.Clear;
ADOQuery1.Close;

ADOQuery1.SQL.Add('select count(template_id) as f1 from os_eqm.devices where template_id <>0');
ADOQuery1.Open;

   with StringGrid1 do
    Cells[1,1]:=adoquery1.Fields[0].AsString;
    
ADOQuery2.SQL.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Add('select count(def_monitoring_type)from devices_active where nvl(def_monitoring_type,0) <> 0');
ADOQuery2.Open;
   with StringGrid1 do
    Cells[2,1]:=ADOQuery2.Fields[0].AsString;

end;
end;