Запросы

[Z1000000]

Stilet прав , действительно достаточно одного метода Locate.

Вот два варианта для позиционирования по одному и по нескольким полям.

ReestrQuery.Locate('КодИП',Edit1.Text,[]);
ReestrQuery.Locate('КодИП;КодИП2',VarArrayOf([Edit1.Text,Edit2.Text]),[]);

[ара]

Вот такой код:

procedure TEditForm.Button6Click(Sender: TObject);
begin
datamodule2.ReestrQuery.Active:=false;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SELECT * ');
datamodule2.ReestrQuery.SQL.Add('FROM reestr ');
datamodule2.ReestrQuery.SQL.Add('WHERE reestr.КодИП=' + ''''+Edit1.Text+'''');

datamodule2.ReestrQuery.Active:=true;
     datamodule2.ReestrQuery.Locate('КодИП',edit1.Text,[]);

опять ругается, что КодИП не содержит значение по умолчанию, может что-то с бд? пробывал разные варианты,как советовали, ни чего не помогает, а с LOCATE должно быть что-то похожее???

[Z1000000]

Может пробел в названии поля ему не нравиться. Вообще это не правильно. В названии полей: русские буквы, пробелы, знаки препинания, кавычки , скобки - все это ведет к геморою ( который ты уже получил ) и к большому геморою, если надумаешь потом базы конвертить на другую платформу( я такой геморой неоднократно лечил ).

Если возможно сделай поля в БД английскими буквами без пробелов итд ( см.выше).

База у тебя какая ? MS SQL, Ms Access ?

[ара]

База аксес! буду пробывать переделать

[ара]

Переписал названия полей нерусскими буквами, получилось вот так:
begin
datamodule2.ReestrQuery.Active:=fal se;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SE LECT * ');
datamodule2.ReestrQuery.SQL.Add('FR OM reestr ');
datamodule2.ReestrQuery.SQL.Add('WH ERE reestr.Kod_IP=' + ''''+Edit1.Text+'''');

datamodule2.ReestrQuery.Active:=tru e;
datamodule2.ReestrQuery.Locate('Kod _IP',edit1.Text,[]);

end;
Теперь выдает НОВУЮ ошибку: 'Несоответствие типов данных в выражении условия отбора', подскажите, пож., как исправить ее!!!!

[Z1000000]

Kod_IP какого типа в базе строковый?

[ара]

Kod_IP в базе имеет тип данных "Числовой"

[Z1000000]

ну. А ты его приравниваешь к строке Edit1.Text;

'WHERE reestr.Kod_IP=' + ''''+Edit1.Text+''''

Либо kod_IP сделай строковым , либо в запросе Edit1.Text пиши, как число, т.е. вот так.

datamodule2.ReestrQuery.SQL.Add('WH ERE reestr.Kod_IP=' + Edit1.Text);

и здесь тоже :

datamodule2.ReestrQuery.Locate('Kod _IP',StrToInt(edit1.Text),[]);

[ара]

Ошибка не выскакивает! Но теперь реакции на событие нет ни какой:

procedure TEditForm.Button6Click(Sender: TObject);
begin
datamodule2.ReestrQuery.Active:=false;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SELECT * ');
datamodule2.ReestrQuery.SQL.Add('FROM reestr ');
datamodule2.ReestrQuery.SQL.Add('WHERE reestr.Kod_IP='+Edit1.Text);

datamodule2.ReestrQuery.Active:=true;
datamodule2.ReestrQuery.Locate('Kod_IP',strtoint(edit1.Text),[]);

end;

[Z1000000]

А какой реакции ждешь?
Если запрос открылся, и ничего не выбрано - значит нет у тебя в базе строк отвечающих твоему условию.