[Mitiay]

Сделал поиск по БД.
Вот код:

Код:

var ffield, fvalue: string;
opts : tlocateoptions;
begin
ffield := 'Фамилия';
fvalue := 'Зайцев';
opts := [locaseinsensitive];

if not adotable1.locate(ffield, fvalue, opts) then
showmessage(fvalue + ' not found in ' + ffield);

В общем мне надо сделать Поиск по номерму телелефона или фамилии.Так сказать телефонный справочник.Этот код просто указывает на найденную фамилию,как сделать чтоб результаты поиска выводились в другой BDgird и не только один вариант а несколько.Допустим Петров Ваня, Пестров Гоша ...

[lmikle]

Проще сделать отдельным запросом.

[жекаизжека]

совершенно согласен

[Mitiay]

ну и каким же ))))

[Страдалецъ]

Например так:

Код:

AdoQuery1.SQL.Text := 'select * from PhoneBook where Фамилия=:FirstName';
AdoQuery1.Parameters.ParamValues['FirstName'] := 'Зайцев';
AdoQuery1.Open;

[Sed0Y]

он просил по телефону или по фамилии - вдруг не додумается )

Код:

AdoQuery1.SQL.Text := 'select * from PhoneBook where Фамилия=:FirstName or НомерТелефона=:TelephoneNumber';
AdoQuery1.Parameters.ParamValues['FirstName'] := 'Зайцев';
AdoQuery1.Parameters.ParamValues['TelephoneNumber'] := '80449876543';
AdoQuery1.Open;

[Mitiay]

Пишет не соответствие типов данных!!
Вот посмотрите выложил с БД.

[ApxaHGe1]

В таблице, поле, ТЕЛЕФОН ... сделай у данного поля тип данных string (текстовый)

[Mitiay]

чето не робит! Скачай сиходники посмотри плз

[Страдалецъ]

Тэкс. Немного переделал. Тут модули, которые надо заменить.
С остальными полями сделаете аналогично.