Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Базы данных и репортинг > Поясните, плиз, про текст запрос в OracleDataSet


Автор: Kbl4AH 7.11.2008, 14:19
Здравствуйте.
Суть моего вопроса такова.
Есть 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
Код

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
Зачем по 100 раз повторно (если всегда будут первый чекбокс жать) присваивать один и тот же текст запроса smile 
Потом, еще будет ругаться вот на это 
Код

OracleDataSet1.DeleteVariable('Var2')

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)