Нужно сделать поиск в таблице DBGrid("Товары"), по значению "Код товара"(CODE_GOODS), т.е. по числовому значению, вводя в Edit
 
Сам накидал код, но при вводе в Edit выдает ошибку:


void __fastcall TMain::Edit3Change(TObject *Sender)
{
   TLocateOptions Options;
   Options.Clear();
   Options << loCaseInsensitive << loPartialKey;
   OraQuery1->Locate("CODE_GOODS", Edit3->Text, Options);
}


и кстати там Edit3->Text или StrToInt(Edit3->Text)? Ведь значение числовое.

Вот какую ошибку выдает:
'Access violation at address 004AD457 in module 'Project1.exe'.Read of address 00000094'.

DBGrid не ищет, он отображает.   


Если числовое - то число и ищешь.


Что-то мне кажется, это не с поиском связано...

этот код работает, тип поля в данном примере текстовый

1) какой тип поля?
2) а в бд значения есть?
3) кроме этого кода ты больше ничего не делаешь?

Это сообщение отредактировал(а) Dmi3ev - 19.6.2009, 01:04

Это в стандартном контроле, а в VCL Data Access Components присутствует TCRDBGrid - он и ищет, и фильтрует, только что не пляшет.

А если поле Integer то:

if(ADOQuery2->Locate("id", StrToInt(Edit2->Text), o<<loCaseInsensitive))
???


Это сообщение отредактировал(а) Ildarinho - 19.6.2009, 10:29

Ildarinho, попробуй - расскажешь...  

Тоже самое.... Гыыыы(

Значит, ошибка не в этом, как я и говорил.

Показывает ошибку на строку:
-> OraQuery1->Locate("CODE_GOODS", KeyValues, Options);

TCRDBGrid платный?

хз  

в OraQuery запрос забыл написать  :select * from GOODS))Текущая ошибка устранена, но выдает новую)))

'Field CODE_GOODS not found'

а вот сам код:

void __fastcall TMain::Edit3Change(TObject *Sender)
{
    TLocateOptions Options;
    Options.Clear();
    Options << loCaseInsensitive << loPartialKey;
    OraQuery2->Locate("CODE_GOODS", Edit3->Text, Options);
}

'Поле CODE_GOODS не найдено' 

По-твоему, как сиё переводится с иностранного языка?

при попытке сделать запрос активным и выдает такую ошибку
Тьфу, тьфу, но энто я переводить умею  

Это сообщение отредактировал(а) Ildarinho - 19.6.2009, 22:31

Код покажи.

  OraQuery2->SQL->Add("select from GOODS");
   TLocateOptions Options;
   Options.Clear();
   Variant KeyValues (Edit3->Text);
   Options << loCaseInsensitive << loPartialKey;
   OraQuery2->Locate("CODE_GOODS", KeyValues, Options);
   OraQuery2->ExecSQL();

1. Для select... используется не OraQuery2->ExecSQL(); , а OraQuery2->Open; 
2. Кверя должна быть сначала открыта. А потом с ней уже можно что-то делать, т.е. искать, как ты.
3. Перед изменением параметров SQL хорошо бы кверю закрыть и очистить. Т.е.:

ошибка 'ORA-00936:missing expression'(((

На какой строке?!  

 
Показывает что ошибка, на строку не указывает

Добавлено через 3 минуты и 11 секунд
OraQuery2->SQL->Add("select from GOODS");
 вот в этой строке отредоктировал и написал
OraQuery2->SQL->Add("select * from GOODS");
Ошибку не выдает да и не ищет(

Это сообщение отредактировал(а) Ildarinho - 20.6.2009, 14:48

Получилось) Была ошибка в том что у меня OraDataSourse была соединена с OraTable а не с OraQuery
Всем спасибо!

Добавлено через 3 минуты и 41 секунду
теперь делаю так:
    OraDataSource1->DataSet = OraQuery2;
    OraQuery2->Close();
    OraQuery2->SQL->Clear();
    OraQuery2->SQL->Add("select * from GOODS");
    OraQuery2->Open();
    TLocateOptions Options;
    Options.Clear();
    Variant KeyValues (Edit3->Text);
    Options << loCaseInsensitive << loPartialKey;
    OraQuery2->Locate("CODE_GOODS", KeyValues, Options);
    OraQuery2->Active = true;

Я так и думал, что здесь что-то не то.