[aqula]

Выдает следующее

Вот сама процедура вызывающая ее

Код:

procedure TBarcodeForm.RadioButton1Click(Sender: TObject);
begin
 if BarcodeForm.Combobox1.ItemIndex > 0 then
   begin
BarcodeForm.ADOQuery1.SQL.Clear;
BarcodeForm.ADOQuery1.Close;
    BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works WHERE :dd1 = "Âûñîêàÿ"');
     case BarcodeForm.Combobox1.ItemIndex  of
      1: BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cImpotance';
      2: BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cSrochost';
     else BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1').Value:= 'cImpotance';
     end;
BarcodeForm.ADOQuery1.Open;
   end;
end;

[poli-smen]

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

Вот сама процедура вызывающая ее

Код:

.....
    BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works WHERE :dd1 = "Âûñîêàÿ"');
.....

Здесь вместо кавычек используй апострофы:

Код:

    BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works WHERE :dd1 = ''Âûñîêàÿ''');

[aqula]

Спасибо. Вот только выдает пустое множество. Странно.

[Yurk@]

тогда уж и вовсе так:

Код:

BarcodeForm.ADOQuery1.SQL.Text:='SELECT * FROM works WHERE :dd1 = :p_dd1';
BarcodeForm.ADOQuery1.ParamByName('dd1').Value:= 'cImpotance';
BarcodeForm.ADOQuery1.ParamByName('p_dd1').Value:= 'Высокая';

[poli-smen]

Сообщение от Yurk@

тогда уж и вовсе так:

Код:

BarcodeForm.ADOQuery1.SQL.Text:='SELECT * FROM works WHERE :dd1 = :p_dd1';
BarcodeForm.ADOQuery1.ParamByName('dd1').Value:= 'cImpotance';
BarcodeForm.ADOQuery1.ParamByName('p_dd1').Value:= 'Высокая';

Я только заметил, что запрос действительно какой-то странный получается

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

Спасибо. Вот только выдает пустое множество. Странно.

А что по твоим расчётам запрос должен был выдать?

[M.A.D.M.A.N.]

Запросы вообще какие-то странные, в условии выборки нет анализа полей таблицы.
запрос типа:

Код:

select * from foo where 1 = 'вася'

[aqula]

А что именно в нем странного? должен выдать все поля из таблички работы в меткой важность высокая.