Delphi БД

[iggor]

У меня такой вопрос...Имею 2 связанных таблицы в бд (Paradox 7), можно ли сделать так чтобы когда я делаю поиск по 2 БД, результат мне вывело допустим в Memo1?? Или может быть, куда нибудь в другое место???

[Roof]

никогда не раотал ни с BDE, ни с Paradox, но уверен, что разницы нет в реализации твоего вопроса. Вот код, как отобразить записи (в данном случае одна запись возвращается в набор данных ) в Memo из набора данных в ADOQuery:

//отображаем записи
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
 ADOQ1.Active:= false;
 ADOQ1.SQL.Clear;
 ADOQ1.SQL.Add('SELECT QUESTIONS FROM TA_1 WHERE ID_Q= ' + Edit2.Text + ';');
 ADOQ1.Active:= True;  //обрати внимание для SELECT - не ExecSQL, а именно Active!

 //если есть записи, удовлетворяющие нашему условиями
 if ADOQ1.RecordCount > 0 then begin
   Memo2.Clear;
   Memo2.Lines.Add(ADOQ1.FieldByName('QUESTIONS').AsString);//вот твое отображение
 end;

end;

С Query с закладки BDE - вроде также все должно быть.

[mihali4]

Как делаете поиск ? Где конкретика ?

[iggor]

Вот мой запрос:

procedure TForm1.Button3Click(Sender: TObject);
var
f: string[30];
begin


f:=InputBox('Поиск ',
'Укажите номер договора', '');
if f <> ''// пользователь ввел фамилию



then
begin
with form1.Query2 do begin
Close; // закрыть файл-результат выполнения предыдущего запроса
SQL.Clear; // удалить текст предыдущего запроса
// записываем новый запрос в свойство SQL
SQL.Add('SELECT contract,Detail,CarМark,YearOfRelease,OrderDate,DeliveryDate');
SQL.Add('FROM "::school1.db"');
SQL.Add('WHERE');
SQL.Add('(contract = "'+ f + '")');

SQL.Add('ORDER BY contract,Detail,CarМark,YearOfRelease,OrderDate,DeliveryDate');
Open; // активизируем выполнение запроса
end;
if Query2.RecordCount <> 0 then
DataSource2.DataSet:=Query2 // отобразить рез-т выполнения запроса
else begin
ShowMessage('Указанного Вами номера договора не существует');
DataSource2.DataSet:=Table2;
end;
end;
end;

[Roof]

if Query2.RecordCount > 0 then begin
   Memo2.Clear;
for i:= 0 to Query2.RecordCount- 1 do begin
   Memo2.Lines.Add(Query2.FieldByName('имя твоего поля').AsString);
   Query.Next;
 end;
 end;

[iggor]

Спасибо выводит....только вот еще вопрос...выводит оно только если одно имя поля, а если я ввожу

Memo1.Clear;
   Memo1.Lines.Add(Query2.FieldByName('contract,Detail,CarМark,YearOfRelease,OrderDate,DeliveryDate').AsString);

чтобы вывело всю строку...тогда ругается...

[iggor]

Все спасибо разобрался....когда для каждого поля пишешь отдельно, тогда не ругается....