Запросы

[ара]

Подскажите, пож., как исправить код :

procedure TEditForm.Button6Click(Sender: TObject);
begin
datamodule2.ReestrQuery.Active:=false;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SELECT reestr.Кодзаписи,reestr.ОГРН,reestr.КодИП,reestr.Датарегистрации');
datamodule2.ReestrQuery.SQL.Add('FROM reestr');
datamodule2.ReestrQuery.SQL.Add('WHERE reestr.КодИП=КодИП: '''+Edit1.Text+'''');
datamodule2.ReestrQuery.Active:=true;
end;

В строку вводим нужный код, нажимаем на кнопку, в существующей Таблице должна выделиться искомая строка! Что надо исправить и что дописать, Заранее СПАСИБО

[Z1000000]

В каждой строке datamodule2.ReestrQuery.SQL.Add в конце строкового аргумента ставь пробел, а то у тебя запрос сливается, получается :

SELECT reestr.Кодзаписи,reestr.ОГРН,reestr .КодИП,reestr.Датарегистрации
FROM reestrWHERE reestr.КодИП=КодИП: '''+Edit1.Text+'''');

База данных вот такое : "reestrWHERE" не поймет. пробелчик нужен.

И вообще русские названия полей - это не очень.
И пробелы в SELECT, WHERE,FROM убери. Че это за...

Вот так вроде.

procedure TEditForm.Button6Click(Sender: TObject);
begin
datamodule2.ReestrQuery.Active:=false;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SELECT reestr.Кодзаписи,reestr.ОГРН,reestr.КодИП,reestr.Датарегистрации ');
datamodule2.ReestrQuery.SQL.Add('FROM reestr ');
datamodule2.ReestrQuery.SQL.Add('WHERE reestr.КодИП=' + ''''+Edit1.Text+'''');
datamodule2.ReestrQuery.Active:=true;
end;

[ара]

Теперь вылезла ошибка:
'Параметр reestr.Код записи не имеет значения по умолчанию'
Где мне искать ошибку? В БД?

[Z1000000]

Попробуй просто вот так.

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;
end;

[ара]

Теперь 'reestr.КодИП'. Может это быть из-за того, что поле у меня называется не 'КодИП', а 'Код ИП', т.е. с пробелом?!

[Z1000000]

Именно из-за этого. Названия должны точно совпадать.
Попробуй вот эти два варианта.

datamodule2.ReestrQuery.SQL.Add('WHERE reestr."Код ИП"= + ''''+Edit1.Text+'''');

datamodule2.ReestrQuery.SQL.Add('WHERE "reestr"."Код ИП"= + ''''+Edit1.Text+'''');

[ара]

procedure TEditForm.Button6Click(Sender: TObject);
begin
datamodule2.ReestrQuery.Active:=false;
datamodule2.ReestrQuery.SQL.Clear;
datamodule2.ReestrQuery.SQL.Add('SELECT reestr.Кодзаписи,reestr.ОГРН,reestr.КодИП,reestr.Датарегистрации ');
datamodule2.ReestrQuery.SQL.Add('FROM reestr ');
datamodule2.ReestrQuery.SQL.Add('WHERE reestr.КодИП=' + ''''+Edit1.Text+'''');
datamodule2.ReestrQuery.Active:=true;
end;

Использовал этот вариант, просто исправил название полей. Теперь ошибка не вылазет. Как сделать так, чтобы при выполнении данного запроса, на найденую строку перемещался курсор или она выделялась, или что=то в этом роде!???

[Z1000000]

В одном запросе никак.
Делаешь два запроса: один открывает таблицу полностью или какую-то выборку из нее - по-желанию.
Второй мы уже обсудждали. Берешь из него уникальный идентификатор. В твоем случае - КодИП вроде. И в первом запросе позиционируешь курсор на строке с данным идентификатором. Методы Locate,Find,FindNear или просто перебираешь подряд.

[Stilet]

Делаешь два запроса

Два зачем?

в существующей Таблице должна выделиться искомая строка!

Что значит "выделяться"? На экране подсвечиваться? Так это находится методом locate после открытия запроса и только для DBGrid или подобных компонентов.

[ара]

Если не трудо, подскажите, пож., код! Не могу сообразить