forum.clarionlife.net

tanatol писал(а):Как сделать через PROP:SQL чтобы в Oracle запрос был со связанными переменными.

I  LONG

  CODE
  I = 20
  FILE{PROP:SQL} = 'SELECT Field1,Field2 from myTable where Field3=' & I

tanatol писал(а):В Oracle тогда будет курсор вида:'SELECT Field1,Field2 from myTable where Field3=20 , а надо :SELECT Field1,Field2 from myTable where Field3=:b1 . Чтобы можно было использовать этот курсор для всех значений в цикле!

LOOP I# = 1 TO 100
 FILE{PROP:SQL} = 'SELEC Field1,Field2 from myTABLE where Field3=' & I#
 NEXT(FILE)
END

FILE{PROP:SQL} =  FILE{PROP:SQL} = 'SELEC Field1,Field2 from myTABLE where Field3 BETWEEN ' & i# & ' AND ' & J#

FILE{PROP:SQL} =  FILE{PROP:SQL} = 'SELEC Field1,Field2 from myTABLE where Field3 IN( ' & i# & ',' & J# & ')'

lsgsoftware писал(а):По-видимому, это проблема не только оракла. Использование кларион-переменных в SQL-запросах вопрос вообще мутный. В доке пшик - т.е. написано очень мало. Может быть Андрей Мялин выложит на форум несколько фрагментов заведомо работающего кода с краткими комментариями. Я использую для этих целей ламерский приемчик - создаю служебную таблицу, в которой описываю нужные переменнные, данные в нее заталкиваю с помощью клариона (set, next ...), а затем считываю эти данные внутри SQL-запроса. Так же и в обратную сторну для передачи результатов в кларион-переменные. Грубо конечно, но зато работает.

sql  MAVSelect
I    LONG
  CODE
  sql.Init(1,1) ! хотим одну запись прочитать
  sql.BindFields(myTable) ! читаем все поля записи файла из DCT
  LOOP I = 1 TO 100
    sql.Where(myTable.Field3,I)
    IF NOT sql.Run() AND NOT sql.Fetch()
      ! прочитали успешно
    ELSE
      MAVSHOWERROR
    END
   sql.Reset()
  END

 select Field1,Field2,Field3 from myTable where Field3=?

 sql.BindParameter(myTable.Field3,1)
 sql.BindParameter(myTable.Field3,10)
 sql.Where(sql.field(myTable.Field3) & ' in(?,?)')

  select ... from myTable where Field3 in (select Field3 from #TempTable)

tanatol писал(а):В Oracle тогда будет курсор вида:'SELECT Field1,Field2 from myTable where Field3=20 , а надо :SELECT Field1,Field2 from myTable where Field3=:b1 . Чтобы можно было использовать этот курсор для всех значений в цикле!

I  LONG
sql VIEW(myTable)
  PROJECT(FILE:Field1)
  PROJECT(FILE:Field2)
  END
  CODE
  PUSHBIND
  BIND('I',I)
  BIND(FILE:RECORD)
  LOOP I = 1 TO 100
   sql{PROP:Filter} ='FILE:FIELD3=I'
   open(sql)
   IF NOT ERRORCODE()
    LOOP
     NEXT(sql)
     IF ERRORCODE() THEN BREAK.
    END
    CLOSE(sql)
   END
  END
  POPBIND   

SELECT Field1,Field2 from myTable where Field3=:b1

tanatol писал(а):Цикл у меня не такой простой : идет по кларионовскому файлу. И запрос к Ораклу не к одной таблице, а более сложный с использованием нескольких таблиц, а таблица из словаря - это просто подложка для результата. Где в последнем примере задать запрос ( PROP:SQL ) ? А то чтобы не плодить кучу курсоров , приходится использовать процедуру, реализующую этот сложный запрос.

tanatol писал(а):PROP:Filter это я так понимаю для WHERE , а где указывать сами таблицы и JOIN-ы . Типа myTable{PROP:SQL}='select a.f1, b.f1 from a, b where a.f1=b1.f1 and a.f2='&number.

tanatol писал(а):Спасибо за ответы. Придется в кларионовском словаре прописывать таблицы A и B, затем их join-ть в View. Одной таблицой-подложкой для различных запросов с разными таблицами не обойтись, чтобы можно в Оракле иметь куросры со связанными переменными.