TADOTable - поиск записи
Table->IndexFieldNames="Data";
Table->SetKey();
Table->FieldByName("Data")->Value=Edit7->Text;
if (! Table->GotoKey())
ShowMessage ("Такая запись отсутствует!");
А для компонента TADOTable пишет:
'SetKey' is not a member of 'TADOTable' и для GotoKey тоже. Но в книге Архангельского пишется, что свойства этих двух компонентов одинаковы. Что же тогда используется для ADO?:angel:
В компоненте TTable работает такой код:
Table->IndexFieldNames="Data";
Table->SetKey();
Table->FieldByName("Data")->Value=Edit7->Text;
if (! Table->GotoKey())
ShowMessage ("Такая запись отсутствует!");
А для компонента TADOTable пишет:
'SetKey' is not a member of 'TADOTable' и для GotoKey тоже. Но в книге Архангельского пишется, что свойства этих двух компонентов одинаковы. Что же тогда используется для ADO?:angel:
Я всё время использую locate. Этот метод есть в Tdataset поэтому есть он везде.
Я всё время использую locate. Этот метод есть в Tdataset поэтому есть он везде.
Просмотрела справку по Билдеру и примерчик. Честно говоря, ничего не поняла. Что у них и откуда берется. Может поможете перевести мой пример на ситуацию с ADO? Я была бы очень благодарна. Тем более, что метод locate еще нигде не использовала. Как-то нигде он не пригодился.
Просмотрела справку по Билдеру и примерчик. Честно говоря, ничего не поняла. Что у них и откуда берется. Может поможете перевести мой пример на ситуацию с ADO? Я была бы очень благодарна. Тем более, что метод locate еще нигде не использовала. Как-то нигде он не пригодился.
Должно быть что-то вроде этого:
if (table->locate("data",Edit7->Text,"параметры поиска")==false) ShowMessage ("Такая запись отсутствует!");
про параметры поиска посмотри в хелпе или Архангельском, там и пример на это дело есть.
Должно быть что-то вроде этого:
if (table->locate("data",Edit7->Text,"параметры поиска")==false) ShowMessage ("Такая запись отсутствует!");
про параметры поиска посмотри в хелпе или Архангельском, там и пример на это дело есть.
Спасибо большое. В общем, я уже сама додумалась, посмотрев кучу примеров на Дельфи. У меня получилось так:
AnsiString ffield, fvalue;
TLocateOptions opts;
ffield = "Mesaz";
fvalue = Edit11->Text;
opts << loCaseInsensitive;
TestModule->ADOMesaz->Locate(ffield, fvalue, opts);
Это почти так же, как Вы написали. Вопрос решен.