Помогите пишу дипломку, срочно надо разобраться

[Irinka]

помогите разобраться, пытаюсь выполнить запрос, но происходит ошибка
(Project Project1.exe raised exception class EDBEngineError with message ‘General SQL Error. [Microsoft] [Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1. )

procedure TForm4.Button8Click(Sender: TObject);
begin
form3.Query1.Close;
form3.Query1.SQL.Add('SELECT * FROM абитуриенты WHERE льготы <> ('+combobox8.Text+') ');
form3.Query1.Open;
form3.DataSource1.DataSet:=form3.Qu ery1;
end;
В чем ошибка, база в Access

[mihali4]

А бог его знает, что у вас в SQL до этого было...
Делайте не
form3.Query1.SQL.Add...
а form3.Query1.SQL.Text:=...

[Irinka]

Попробовала с form3.Query1.SQL.Text:= тоже самое

[mihali4]

Текст ошибки приведен не полностью.
Что следует за "Слишком мало параметров. Требуется 1........" ?
А без "WHERE льготы <> ('+combobox8.Text+')" работает?

Можно, конечно, попробовать так:
SELECT * FROM абитуриенты WHERE льготы <> (:myparam),
и задать параметр ParamByName('myparam').AsString:=co mbobox8.Text;

А вообще-то, как где-то совершенно справедливо и остроумно было подмечено - "Access - это недоБД"...
Так что, если это разрешено, лучше использовать что угодно, но не это "недо"...

[SNUPY]

Может запрос должен так выглдить
SELECT * FROM абитуриенты WHERE абитуриенты.льготы <> ('+combobox8.Text+');
И что в combobox8.Text написано?
или льготы это таблица?

[mihali4]

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

Может запрос должен так выглдить
SELECT * FROM абитуриенты WHERE абитуриенты.льготы <> ('+combobox8.Text+');
И что в combobox8.Text написано?

Это не поможет - аксесс настолько туп, что не понимает данных, взятых как свойства контролов формы. Даже если сделать <> (' + myform.combobox8.Text + ');
и то не поймет...
Со строковой константой будет работать (если все остальное - тип-топ), а вот переменные - на дух не переносит почему-то...

[SNUPY]

Даже если сделать <> (' + myform.combobox8.Text + ');

Хмм.... а я думал, что текст запроса формируется в нашем экзешнике или я чето не догоняю????

[Professor Hubert]

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

помогите разобраться, пытаюсь выполнить запрос, но происходит ошибка
(Project Project1.exe raised exception class EDBEngineError with message ‘General SQL Error. [Microsoft] [Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1. )

procedure TForm4.Button8Click(Sender: TObject);
begin
form3.Query1.Close;
form3.Query1.SQL.Add('SELECT * FROM абитуриенты WHERE льготы <> ('+combobox8.Text+') ');
form3.Query1.Open;
form3.DataSource1.DataSet:=form3.Qu ery1;
end;
В чем ошибка, база в Access

А вообще поле льготы какого типа?
Можно попробовать написать так.

form3.Query1.Close;
form3.Query1.SQL.Clear;
form3.Query1.SQL.Add('SELECT * FROM абитуриенты WHERE льготы <> quotedstr(+' combobox8.Text '+) ');
form3.Query1.Open;
form3.DataSource1.DataSet:=form3.Query1;