Пишет, мол мало параметров

[azat]

обращаюсь к таблице NED_IM.DBF через ADOQuery:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT * FROM NED_IM WHERE IDDOC="    1"';
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;

в таблие поле IDDOC строкового типа (((
конекшон стринг настроен.
жму Button1 пишет: [Miscrosoft] [Драйвет ODBC dBASE] Слишком мало параметров. Требуется 1.

Чего ему не хватает?
а вот без условия все работает

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT * FROM NED_IM';
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;

В чем интересно дело?

[Stilet]

Попробуй так:

ADOQuery1.SQL.Text:='SELECT * FROM NED_IM WHERE IDDOC='+QuotedStr('1');

Ну и еще думаю что пробелы в твоем коде в кавычках могут мешать

[mihali4]

По-моему, надо просто '...WHERE IDDOC=1';
Кавычки в данном конкретном случае не нужны, даже независимо от типа поля.

[azat]

Делаю:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.IndexName:='IDDOC';
ADOQuery1.SQL.Text:='SELECT * FROM VL_NED WHERE IDDOC=1';
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;

пишет мол Индекс не найдей (хотя в директории с таблицей VL_NED находтся соотвествующий файл индекса).
Может надо явно прописывать какой индекс использовать?

[mihali4]

Имя индекса никак не может совпадать с именем любого поля. Это то же самое, как пытаться сделать в таблице два поля с одинаковыми именами.
"Индекс не найден" означает только одно - вы его и не определяли...
Имя поля, которое вы указали (ADOQuery1.IndexName:='IDDOC') никак не может считаться индексом.
Для начала реструктурируйте таблицу и определите в ней индекс по этому полю.

[azat]

Сообщение от mihali4

Имя индекса никак не может совпадать с именем любого поля. Это то же самое, как пытаться сделать в таблице два поля с одинаковыми именами.
"Индекс не найден" означает только одно - вы его и не определяли...
Имя поля, которое вы указали (ADOQuery1.IndexName:='IDDOC') никак не может считаться индексом.
Для начала реструктурируйте таблицу и определите в ней индекс по этому полю.

Дело в том, что я выполняю импорт из таблиц БД другой программы. Делать эту ножно программным способом, т.к. импортировать будут юзеры во врея выполнения программы.

[mihali4]

Сообщение от azat

Дело в том, что я выполняю импорт из таблиц БД другой программы. Делать эту ножно программным способом, т.к. импортировать будут юзеры во врея выполнения программы.

Вы импортируете куда? В воздух? Нет, в таблицу. Вот у нее и должны быть определены индексы по нужным вам полям либо заранее, либо в процессе создания, если вы их создаете динамически.

[crazy horse]

ADOQuery1.ExecSQL;   
ADOQuery1.Open;

по-моему "ADOQuery1.ExecSQL" здесь лишний, поскольку является аналогом Open для запросов, не возвращающих значений.

[mihali4]

Сообщение от crazy horse

по-моему "ADOQuery1.ExecSQL" здесь лишний, поскольку является аналогом Open для запросов, не возвращающих значений.

Весьма справедливо, не досмотрел.
Для сомневающихся - ADOQuery1.Open сначала выполняет ADOQuery1.ExecSQL, а потом выдает "наружу" полученный набор...
А о том, когда применять тот или иной способ, я уже устал повторять. Впечатление такое, будто все лепят свои вопросы, не просмотрев форум на предмет уже имеющегося ответа...

[dron-s]

mihali4

А о том, когда применять тот или иной способ

update, delete - ExecSQL
select - просто open