delphi поиск по базам

[hitch1]

Как зделать чтоб при поиске выводило информацию допустим с столбца 2 таблицы 1, с 4 столбца таблицы 3 ...))
Обычный поиск наладил ,а как зделать так (

Когда научитесь давать темам осмысленные названия?

[Yurk@]

Поиском нужно пользоваться:
http://www.programmersforum.ru/showp...36&postcount=2

[hitch1]

Сообщение от Yurk@

Поиском нужно пользоваться:
http://www.programmersforum.ru/showp...36&postcount=2

А есле я хочу прикрутить запрос на кнопку допустим

procedure TForm2.Button1Click(Sender: TObject);
var a: String;
begin
a:='SELECT * from street where name ='+Edit1.Text;
 как ето усоществить 
 ибо поидеи  так не покатит 
a:='SELECT * from street,client where client.UlitcaID=street.ID where nomer 
='+Edit1.Text;

Значок # в окне ввода сообщения - для правильного оформления кода.
Вам уже штраф дали.
Будете продолжать нарушать правила - и я добавлю.

я так понял у меня должно получится чтото типа

rocedure TForm1.Button2Click(Sender: TObject);
var
s: string[50];
begin
s := InputBox('Ïîèñê','Ââåäèòå ôàìèëèþ è íàæìèòå OK','');
if s <> ''
then
begin
With Form1.Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT name , street, Telefon');
SQL.Add('FROM ":STANDARD1:Table 1.db"');
SQL.Add('WHERE');
SQL.Add('(Famil = "'+ s + '")');
SQL.Add('ORDER BY Name, Famil');
Open;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('Net 3apisey.');
DataSource1.DataSet:=Table1;
end;

[Stilet]

я так понял у меня должно получится чтото типа

Вполне логично...

[hitch1]

или

procedure TForm2.Button1Click(Sender: TObject);
var a: String;

begin
a:='SELECT * from client where nomer='+Edit1.Text;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(a);
ADOQuery1.Open;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO street (names )');
ADOQuery1.SQL.Add('SELECT client');
ADOQuery1.SQL.Add('FROM street');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='select * from street';
ADOQuery1.Active:=true;
end;

end.

выводит ошыбку синтаксиса INTO

12:22

procedure TForm1.DBNavigator5Click(Sender: TObject; Button: TNavigateBtn);
begin
  I:=Table2.FieldByName('ID_Vidachi').AsString;
   Table3.Next;
     H:=Table3.FieldByName('ID_Vozvr').AsString;
 if I<>H then
    begin
       Table3.insert;
 Table3.FieldByName('InvenNom').AsString :=Table2.FieldByName('InvenNom').AsString;
 Table3.FieldByName('NazvKn').AsString :=Table2.FieldByName('NazvKn').AsString;
 Table3.FieldByName('ID_Chit').AsString :=Table2.FieldByName('ID_Chit').AsString;
 Table3.FieldByName('ID_Bibl').AsString :=Table2.FieldByName('ID_Bibl').AsString;
 Table3.Post;
    end
    else
    begin
    coобщение;
    end;
end;

Или ето ... подскажыте ) ибо сижу парюсь 2 день . что добавить к етому коду ..
procedure TForm2.Button1Click(Sender: TObject);
var a: String;

begin
a:='SELECT * from client where nomer='+Edit1.Text;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(a);
ADOQuery1.Open;

чтоб оно выводило 1,2 столбец с from client и 3 столбец с from street и 2 стобец с from payment...пцц в аксесе все намного проще (((