ADO. Как вытащить две базы из одного ResultSet-а?

← →
dimonf © (2002-10-24 18:28) [0]

У меня на серваке лежит хранимая процедура:

CREATE PROCEDURE sp_SuperFind
@id_service int,
@like1 varchar(30),
@likeSubGroup varchar(30)

AS
set nocount on
select t.Name_towar, b.id_base_towar, b.id_firm, b.id_towar, b.id_service,
b.price_opt, b.price_rozn, b.unit,
b.info_towar, c.name_currency,
g.name_group, s.name_sub_group, b.production,
b.datetime_edit, null as number_disp
from towar t, base_towar b, currency c,
group_towar g, sub_group s, firm_client f
where
f.id_service = b.id_service and
f.id_firm = b.id_firm and
t.id_sub_group=s.id_sub_group and
s.id_group_towar=g.id_group_towar and
c.id_currency=b.id_currency and
t.id_service = b.id_service and
t.id_towar = b.id_towar and
t.id_Service=@id_service and

b.exist_base_towar=1 and
b.exist_firm=1 and
t.exist_towar=1 and
t.Name_towar like @like1 and

s.name_sub_group like @likeSubGroup
order by g.name_group, s.name_sub_group, f.prioritet DESC, b.datetime_edit DESC

select distinct f.id_firm,f.name_firm
from towar t, base_towar b, currency c,
group_towar g, sub_group s, firm_client f
where
f.id_service = b.id_service and
f.id_firm = b.id_firm and
t.id_sub_group=s.id_sub_group and
s.id_group_towar=g.id_group_towar and
c.id_currency=b.id_currency and
t.id_service = b.id_service and
t.id_towar = b.id_towar and
t.id_Service=@id_service and

b.exist_base_towar=1 and
b.exist_firm=1 and
t.exist_towar=1 and
t.Name_towar like @like1 and

s.name_sub_group like @likeSubGroup
она возращает две таблицы.
Как мне вытащить две таблицы из одного ResultSet-а по двум разным DBGrida-м???

← →
Delirium © (2002-10-24 18:29) [1]

adoTable1.RecordSet:=adoQuery1.RecordSet; adoTable2.RecordSet:=adoQuery1.NextRecordSet(i);

← →
dimonf © (2002-10-24 18:52) [2]

а повесить прямо на DataSource или на DBGrid можно или придется всеже использовать adoTable1???

TADOTable, TADODataSet, TADOQuery, TADOStoredProc по сути одно и тоже - оболочки для COM-класса "ADODB.RecordSet", являющегося в ADO хранилищем данных. А TDataSource и TDBGrid всего-лишь информационные "проводники", они ничего не хранят. Делай выводы.

ADO. Как вытащить две базы из одного ResultSet-а? Найти похожие ветки