для вывода данных типа memo(dbmemo) из БД использую
Код:
procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet); //çàïèñü ñîäåðæèìîãî ïîëÿ äáìåìî â ìåìî
begin
Memo1.Lines.Text := (IBQuery1.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;
procedure TForm1.IBQuery2AfterScroll(DataSet: TDataSet); //çàïèñü ñîäåðæèìîãî ïîëÿ äáìåìî â ìåìî
begin
Memo1.Lines.Text := (IBQuery2.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;
имеется несколько таблиц. данный кусок кода работает только для одной. подскажите как сделать так чтобы в поле memo отображались данные выбранной таблицы