Помогите с параметрическим запросом пожалуйста.

@Cyber9 · Регистрация: 25.11.2011

Author24 — интернет-сервис помощи студентам

У меня имеется таблица с полями группа, кол-во учащихся на другой форме имеется DBLookUpComboBox который принимает значения столбца группа, и имеется DBEdit который должен принимать значения кол-во учащихся в соответствии с группой. Открытие запроса я прописал на событии DBLookupComboBox1Click там прописал код

Delphi

1
2
3

    DataModule2.ADOQuery1.Close;
    DataModule2.ADOQuery1.Parameters[0].Value:=DBLookupComboBox1.Text;
    DataModule2.ADOQuery1.Open;

На этой же форме я так, чисто для себя поставил DBGrid который должен показывать результат SQL-запроса, но таблица всегда пуста. Запрос выглядит так

SQL

1
2
3

SELECT кол_уч
FROM группа
WHERE 'группа'=:param

Или как можно сделать по другому запрос чтобы DBEdit принимал правильное значение кол-во учащихся нужной группы. DBLookupComboBox нужен обязательно. Заранее всем спасибо!

@ADoGind · 27.11.2011, 09:28

привет Cyber9
вот как устанавливаться параметры:

Delphi

DataModule2.ADOQuery1.Params.Insert(0);
DataModule2.ADOQuery1.Params.Items[0].DataType:=ftString;
DataModule2.ADOQuery1.Params.Items[0].ParamType:=ptUnknown;
DataModule2.ADOQuery1.Params.Items[0].Name:='param';
DataModule2.ADOQuery1.Params.Items[0].Value:=DBLookupComboBox1.Text
вот запрос:
 
DataModule2.ADOQuery1.SQL.add('SELECT кол_уч FROM группа WHERE (группа=:param)');
DataModule2.ADOQuery1.Active:=true;

@Cyber9 · 27.11.2011, 10:10 **[ТС]**

Спасибо! В целом работает, но только один раз. Я выбираю группу из DBLookUpComboBox, потом в нужном месте показывает правильное значение кол-во учащихся, а когда в DBLookUpComboBox я выбираю уже другую группу, уже ошибка (вот на скриншоте) и твой код пришлось подправить, вот так

Delphi

    DataModule2.ADOQuery1.Close;
    DataModule2.ADOQuery1.Parameters.Insert(0);
    DataModule2.ADOQuery1.Parameters.Items[0].DataType:=ftString;
    ///DataModule2.ADOQuery1.Parameters.Items[0].Parameters.:=ptUnknown; - эту строчку Delphi не воспринимает
    DataModule2.ADOQuery1.Parameters.Items[0].Name:='param';
    DataModule2.ADOQuery1.Parameters.Items[0].Value:=DBLookupComboBox1.Text;
    DataModule2.ADOQuery1.SQL.add('SELECT кол_уч FROM группа WHERE (группа=:param)');
    DataModule2.ADOQuery1.Active:=true;
    DataModule2.ADOQuery1.Open;

@Cyber9 · 27.11.2011, 10:34 **[ТС]**

Урррра! Я сам разобрался) просто после DataModule2.ADOQuery1.Close; добавил DataModule2.ADOQuery1.SQL.Clear;

@MsGuns · 27.11.2011, 18:39

Вместо всего этого вполне достаточно:

Delphi

with DataModule2.ADOQuery1 do
   begin
    If Active then Close;
    SQL.Text := 'SELECT [кол_уч] FROM [группа] WHERE [группа]=:param';
    Parameters.ParamByName('param').Value:=DBLookupComboBox1.Text;
    Open;            
  end;

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

@Cyber9 0 / 0 / 0 Регистрация: 25.11.2011 Сообщений: 18
	27.11.2011, 10:34 [ТС]	4
	Урррра! Я сам разобрался) просто после DataModule2.ADOQuery1.Close; добавил DataModule2.ADOQuery1.SQL.Clear; 0

	27.11.2011, 18:39