[AlexGTX]

Помогите, пожалуйста, требуется изменить условия запроса на форме во время работы. Предполагается выбирать имя поля из ComboBox, а название записи вбивать в Edit. Как правильно написать в SQL запросе? Вот такая запись является неверной:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm3.Button1Click(Sender: TObject); Var Pole, Znach: String; begin Pole:=ComboBox1.Text; Znach:=Edit1.Text; with Form3.Query1 do         begin Close; SQL.Clear; SQL.Add('SELECT *'); SQL.Add('FROM OsSklad'); SQL.Add('WHERE'); SQL.Add('"Pole"="Znach"'); <b><---как правильно написать надо??? Подскажите ситаксис</b> Open;         end;

Админ: Пользуемся тегами для оформления кода.

Заранее спасибо

[Страдалецъ]

так, если нужно сравнить числа:

Код:

1 2 3 4

SQL.Add('SELECT *'); SQL.Add('FROM OsSklad'); SQL.Add('WHERE'); SQL.Add([Pole]=1')

или так, если нужно сравить строки

Код:

1 2 3 4

SQL.Add('SELECT *'); SQL.Add('FROM OsSklad'); SQL.Add('WHERE'); SQL.Add([Pole]=''text''')

[AlexGTX]

Не работает((, объясню еще раз какова задача. В ComboBox из списка вибирается поле(Name, Type, Pol, Cena и др.) - переменная Pole:String, в Edit заносится содержание поля - переменная Znach:String, после нажатия на кнопку в таблице появляются записи удовлетворяющие условию.

[Klassenas]

Использую такой код:

Код:

1 2 3 4 5 6 7

if sEdit1.Text = '' then exit; if sCheckBox1.Checked = True then a := ''   else a := '%'; if sComboBox1.ItemIndex=0 then   Exit; pole := sComboBox1.Text; SQL.Text := 'SELECT * FROM [Таблица] WHERE '+ pole + ' Like ''' + a + sEdit1.Text + '%''';

Примерно так.

[Ildar-tsr]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm3.Button1Click(Sender: TObject); begin with Form3.Query1 do   begin     Close;     SQL.Clear;     SQL.Add('select *');     SQL.Add('from OsSklad');     SQL.Add('where ['+ComboBox1.Text+'] = '+QuotedStr(Edit1.Text));     Open;   end; end;

А вообще как отметил Страдалецъ надо еще учитывать тип выбранного поля.

[AlexGTX]

Спасибо за быстрый ответ (всем), похоже на то что мне надо, но не работет, может какой-нибудь шаблон есть, который регламентирует символику в этом случае. В идеале мне нужно это:
SQL.Add('WHERE');
SQL.Add('ComboBox1.Text = QuotedStr(Edit1.Text)); только осталось правильно записать, обозначить нужными символами.

[Pilot_Red]

была уже где-то данная тема, в лом искать.

в событии выполнения напиши:

Код:

1 2 3 4 5 6

<b>case Combobox1.ItemIndex of  0:FindName;  1:findType;  2:findPol;  3:findCena;  end;</b>

где например FindName процедура поиска по имени в например может быть такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure FindName; begin with Form3.Query1 do   begin     Close;     SQL.Clear;     SQL.Add('select *');     SQL.Add('from OsSklad');     SQL.Add('where ['Name'] = '+QuotedStr(Edit1.Text));     Open;   end; end

аналогично с другими полями.

данный метод не универсален, но если, в принципе, полей не так уж и много то вполне может подойти.

[Yurk@]

Код:

1 2 3 4 5 6

.... Znach:=Edit1.Text; Form3.Query1.Close; Form3.Query1.SQL.Text:='SELECT * FROM OsSklad WHERE '+Pole+' = :znach'; Form3.Query1.ParamByName('znach'):=Znach; Form3.Query1.Open;

[AlexGTX]

Спасибище!!!!!!! То что надо!!! Приятно работать с профессионалами!!!!!