Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Delphi"   >>>
бедняжка [2005-08-07 14:34:48]
Поиск по базе данных
Помогите! Я начинающий програмер на Delphi!
У меня есть база данных Ascess там находятся Ф.И.О. людей и еще кое что.Я подключил её через ADO.
Дайте пожалуйста код чтобы при нажатии кнопки осуществлялся поиск
по Ф.И.О.

бедняжка [2005-08-07 15:10:07]    [1]
Вот на всякий случай мой кодсупер
procedure TPer.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
begin
application.MessageBox(PChar('Все поля должны быть заполнены!'),'Внимание', MB_OK);
end
else
begin
//сдесь надо осуществить поиск строки с Ф.и.О введенными Edit1 Edit2 Edit3
ado.Insert;
ADO.FieldValues['Фамилия']:=Edit1.text;
ADO.FieldValues['Имя']:=Edit2.text;
ADO.FieldValues['Отчество']:=Edit3.text;
ado.Post;
hide;
TecmbI.Show;
end;
end;
end.

kai [2005-08-08 21:47:03]    [2]

var _Query: TADOQuery;
   _Str: String;
begin
 _Query := TADOQuery.Create(Self);
 try
   _Query.Connection := ADOConnection1; //
   _Query.SQL.Text :=
     'SELECT * FROM Table1 WHERE Фамилия = :Surname AND Имя = :aName AND Отчество = :PName';
   _Query.Parameters.ParamByName('Surname').Value := Edit1.Text;
   _Query.Parameters.ParamByName('aName').Value := Edit1.Text;
   _Query.Parameters.ParamByName('PName').Value := Edit1.Text;
   _Query.Prepared := True;
   _Query.Open;
   while not _Query.Eof do
   begin
     ShowMessage(_Query.FieldByName('поледлявывода').AsString);
     _Query.Next;
   end;
 finally
   _Query.Free;
 end;
end;


ai [2005-08-08 21:52:25]    [3]
Молодец. Шаришь.

бедняжка [2005-08-11 22:39:31]    [4]
спасибо

ира [2005-09-02 10:12:02]    [5]
хочу найти лысенкова анатолия андреевичасупер

Zz-z [2005-12-19 13:39:54]    [6]
я не лысенков анатолий андреевич, но может сгожусь? :-)


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



приветя улыбаюсьхадаподмигиваюя тащусьмое почтениесчастливоцелуюбухаемужас
не понялплачуфупечальзлойстесняюсьсогласеннетгыкурю
суперязыкмузонпыворыдаю


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru