|
#1
|
|||
|
|||
Поиск по БД
Сделал поиск по БД.
Вот код: Код:
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); |
#2
|
|||
|
|||
Проще сделать отдельным запросом.
|
#3
|
|||
|
|||
совершенно согласен
Последний раз редактировалось жекаизжека, 09.10.2009 в 00:03. |
#4
|
|||
|
|||
ну и каким же ))))
|
#5
|
||||
|
||||
Например так:
Код:
AdoQuery1.SQL.Text := 'select * from PhoneBook where Фамилия=:FirstName'; AdoQuery1.Parameters.ParamValues['FirstName'] := 'Зайцев'; AdoQuery1.Open; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
он просил по телефону или по фамилии - вдруг не додумается )
Код:
AdoQuery1.SQL.Text := 'select * from PhoneBook where Фамилия=:FirstName or НомерТелефона=:TelephoneNumber'; AdoQuery1.Parameters.ParamValues['FirstName'] := 'Зайцев'; AdoQuery1.Parameters.ParamValues['TelephoneNumber'] := '80449876543'; AdoQuery1.Open; |
#7
|
|||
|
|||
Пишет не соответствие типов данных!!
Вот посмотрите выложил с БД. |
#8
|
|||
|
|||
В таблице, поле, ТЕЛЕФОН ... сделай у данного поля тип данных string (текстовый)
|
#9
|
|||
|
|||
чето не робит! Скачай сиходники посмотри плз
|
#10
|
||||
|
||||
Тэкс. Немного переделал. Тут модули, которые надо заменить.
С остальными полями сделаете аналогично. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |