-
Приветствую, уважаемые эксперты!
Вот столкнулся со следующей проблеммой, даже не заню как реализовать её решение. Тав вот, по сути:
Есть интерфейс (на рис.) при нажатие на "проверить" - происходит поиск-сравнение по базе по значениям поля "код" (из edit). далее в memo2 при удачном результате поиска выводится вся строка (все поля заданной записи)из бд - так сказать в качестве подтверждения.
бд - mssql
пишу на delphi7
http://cs11125.vkontakte.ru/u4851024/-7/x_5d6568db.jpg
-
а где проблема?
-
danda © (25.06.11 03:41)
И что?
-
Наверное и все.
-
еще и земляк..:-)
-
> происходит поиск-сравнение по базе по значениям поля "код"
> (из edit).
DataSet.Locate - если на клиенте
select ... where - если на сервере
-
> select ... where
На клиенте тоже.
-
вот проблема:
при нажатие на "проверить" -ДОЛЖЕН происходить поиск-сравнение по базе по значениям поля "код" (из edit). далее в memo2 при удачном результате поиска ДОЛЖНА выводиться вся строка (все поля заданной записи)из бд - так сказать в качестве подтверждения.
Вот я просто не знаю как это сделать.
про select from where я то в курсе но как потом результат вывести ???
-
Удалено модератором
-
А что предподователь говорит?
-
> А что предподователь говорит?
Похоже скажет не преподаватель, а кто-то другой. Задача не похожа на учебную.
-
> Вот я просто не знаю как это сделать.
в чем тут - "delphi mssql проблема"???
не знаешь, значит учись, узнавай, читай книги, а для этой ветки твое незнание/неумение - оффтопик.
-
Типичная учебная задача, как всегда удивляет своей бессмысленностью.
-
Удалено модератором
Примечание: Ну давай умничай.
-
к слову пробывал так:
var
ffield, fvalue: string;
opts : TLocateOptions;
begin
ffield := 'kod';
fvalue := Edit1.Text;
opts := [loCaseInsensitive];
if not AdoTable1.Locate(ffield, fvalue, opts) then
ShowMessage(fvalue + ' - ââåäåííûé êîä íå íàéäåí!')
else ****************************
и при else оно должно выводить не только найденный код в таблице, но и всю запись
-
Не можешь строковые представления значений поле склеить через пробел или ещё через что?
FieldByName('my_field').AsString
И эта, пользователи за такой интерфейс и функциональность не убьют? Забор можно в тын переименовать.
-
> FieldByName('my_field').AsString
зачем выдаешь страшную тайну которую никто в инете не знает!?!?!? :))
хотя, конечно сейчас опять будет про "белого бычка", это он знал, а вот как делать "в целом" не знал и не знает. ну типа "дайте копипасте код", иначе вы "сами не компетентны, и только умничаете".