VPF::Поясните, плиз, про текст запрос в OracleDataSet

Kbl4AH

Дата 7.11.2008, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15

Здравствуйте.
Суть моего вопроса такова.
Есть OracleDataSet. При нажатии разных кнопок текст запроса (и переменные) должны быть разные.
Я решил сделать примерно так:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  OracleDataSet1.SQL.Text := 'select ........... :Var1';
  OracleDataSet1.DeclareVariable('Var1', otString);
end;

procedure qwerty;
const
  Q0 = 'select ........... :Var1';
  Q1 = 'select .............................. :Var2';
begin
  OracleDataSet1.Active := False;
  if CheckBox1.Checked then
    if OracleDataSet1.SQL.Text <> Q0 then
      begin
        OracleDataSet1.SQL.Text := Q0;
        OracleDataSet1.DeleteVariable('Var2');
      end;
  if CheckBox2.Checked then
    begin
      if OracleDataSet1.SQL.Text <> Q1 then
        begin
          OracleDataSet1.SQL.Text := Q1;
          OracleDataSet1.DeclareVariable('Var2', otInteger);
        end;
      OracleDataSet1.SetVariable('Var2', StrToInt(ComboBox1.Text));
    end;
  OracleDataSet1.SetVariable('Var1', ComboBox1.Text);                             
  OracleDataSet1.Active := True;
end;

Вобщем, OracleDataSet1.SQL.Text явно не совпадает с константами, хотя мне казалось, что должно совпадать...
И если указать текст запроса я могу так: OracleDataSet1.SQL.Add('select ........... :Var1')
то совсем не представляю как узнать текст запроса((((
OracleDataSet1.SQL типа Strings, а не String.....
А может нужно делать так: OracleDataSet1.SQL.Strings[0]???
Как команда OracleDataSet1.SQL.Text := работает? Почему в конец присваиваемой строки она еще какую-то билиберду дописывает?
Поясните, пожалуйста, суть...

Vas

Дата 7.11.2008, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  OracleDataSet1.SQL.Text := 'select ........... :Var1';
  OracleDataSet1.DeclareVariable('Var1', otString);
end;
procedure qwerty;
const
  Q0 = 'select ........... :Var1';
  Q1 = 'select .............................. :Var2';
begin
  OracleDataSet1.Active := False;
  if CheckBox1.Checked then
    // if OracleDataSet1.SQL.Text <> Q0 then  зачем проверять очищай да присвайивай запрос и все
      begin
        OracleDataSet1.SQL.Clear; //очитска свойства SQL датасета
        OracleDataSet1.SQL.Text := Q0; //можно так а можно (перед этим можно запрос предыдущий не очищать)
        OracleDataSet1.SQL.Add(Q0); //и так, причем если так то очищать обязательно
        OracleDataSet1.DeleteVariable('Var2');
      end;
  if CheckBox2.Checked then
    begin
//      if OracleDataSet1.SQL.Text <> Q1 then
//        begin
          OracleDataSet1.SQL.Text := Q1;
          OracleDataSet1.DeclareVariable('Var2', otInteger);
//        end;
      OracleDataSet1.SetVariable('Var2', StrToInt(ComboBox1.Text));
    end;
  OracleDataSet1.SetVariable('Var1', ComboBox1.Text);                             
  OracleDataSet1.Active := True;
end;

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

Kbl4AH

Дата 7.11.2008, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15

Зачем по 100 раз повторно (если всегда будут первый чекбокс жать) присваивать один и тот же текст запроса smile

Потом, еще будет ругаться вот на это

Код


OracleDataSet1.DeleteVariable('Var2')

Удалить переменную, которой не существует...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »