запрос к базе Oracle

[Ilyaae]

Все добрый день!
Есть задача с под АХ добраться к ораклу и получить некоторые данные. Все вроде получается, но как мне в запрос передать переменную?
"SELECT m,i_pr,k_pr from nsi_kr where k_pr=:k_pr order by m "
Вот полный код:

PHP код:

static server void Job_OracleOpti1(Args _args)
{
    str dbCnnString = "Provider=OraOLEDB.Oracle;" +
                      "Password="    + "bla"    + ";" +
                      "User ID="     + "bla"      + ";" +
                      "Data Source=" + "oracle";
    COM cnnDB,    rstDB;
    COM flds, fld;
    str strSQL, strInfo;
    int i, iMax;
  anytype adoValueFrom(COMVariant _val, int _type)
    {
        switch (_type)
        {
            // список констант соответствует типам данных, распознаваемых ADO
            case   5:      return _val.double();    // adDouble
            case   6:      return _val.currency();  // adCurrency
            case   7:      return _val.date();      // adDate
            case  11:      return _val.boolean();   // adBoolean
            case 202, 203, 200: return _val.bStr();      // adVarWChar, adLongVarWChar("memo")
        }
        return '';
    }
    
   ;
   cnnDB = new COM("ADODB.Connection");
   cmd = new COM("ADODB.Command");
   param = new COM("ADODB.Parameter");
   param.Type(16);
   param.Value(327);
   cnnDB.connectionString(dbCnnString);
   cnnDB.Open();
   strsql = "SELECT m,i_pr,k_pr from nsi_kr where k_pr=:k_pr order by m";
   rstDB = new COM("ADODB.Recordset");
   rstDB.open(strSQL, cnnDB);
   flds = rstDB.Fields();
   iMax = flds.Count() - 1;
   while (!rstDB.EOF())
   {
   strInfo ='';
   for (i = 0; i <= iMax; i += 1)
   {
   fld = flds.Item(i);
   strInfo = strInfo + adoValueFrom(fld.value(), fld.Type())+ " ";
   }
   info(strfmt("%1",strinfo));
   rstDB.MoveNext();
   }
} 


Заранее спасибо за помощь

[lev]

формируйте запрос с помощью strFmt().
т.е. в выше случае должно быть так:

strsql = strFmt("SELECT m,i_pr,k_pr from nsi_kr where k_pr=%1 order by m",  );

[Raven Melancholic]

В приведенном коде есть создание параметра, но нет добавления этого параметра в объект ADODB.Command (точнее в коллекцию Parameters этого объекта). На VBA это выглядело примерно так:

cmd.Parameters.Append param

[Ilyaae]

Цитата:

Сообщение от Raven Melancholic

В приведенном коде есть создание параметра, но нет добавления этого параметра в объект ADODB.Command (точнее в коллекцию Parameters этого объекта). На VBA это выглядело примерно так:

cmd.Parameters.Append param

Это была попытка реализвать через Parameters. Спасибо, попробую разобраться.

[Андре]

Цитата:

формируйте запрос с помощью strFmt().

Это не одно и тоже. В оригинальном сообщении использовались связанные переменные, которые в вашем запросе пропали.

А вообще, если по теме - то это обсуждали здесь.

[lev]

Цитата:

Сообщение от Андре

Это не одно и тоже. В оригинальном сообщении использовались связанные переменные, которые в вашем запросе пропали.

А вообще, если по теме - то это обсуждали здесь.

не понял о чем вы?
человеку нужно было составить запрос (в строковом виде) и подставить туда какой то свой критерий, только и всего чем Вам strFmt() для этого не угодил?

З.Ы, точнее понял о чем вы, но как мне показалось, топикстартера не интересовали связанные переменные, а интересовала возможность построения запроса

[Андре]

Цитата:

не понял о чем вы?

Не общаясь лично с человеком мне сложно предположить, в чем именно заключалась его задача, но в своем исходном сообщении он явно использовал связанные переменные (bind variables).

Должны ли они остаться в предложенном решении мне судить сложно, но я исхожу из того, что раз человек их использует, то он как минимум знает что это такое и для чего они нужны, а значит не случайно привел их в своем сообщении.

Про критическое влияние связанных переменных на производительность СУБД очень хорошо описано у Тома Кайта. Мнение о том, что в случае с Аксаптой все не столь однозначно я привел по ссылке.

[someOne]

Вот еще способ. Для NET. Работает на Ax2009 (для Ax4 тоже наверное заработает).
На клиенте (или сервере в зависимости от того где запускается), естественно, должен быть установлен oracle клиент (NET драйвер устанавливается по умолчанию).
Ну и, конечно, в References Axapt - ы должен быть прописан "System.Data.OracleClient"

static void Job32(Args _args)
{
    str  connectionstring;
    System.Data.OracleClient.OracleConnection oraDb;
    System.Data.OracleClient.OracleCommand cmd;
    System.Data.OracleClient.OracleDataReader orard;
    System.Data.OracleClient.OracleParameterCollection parameters;
    ;
    connectionstring  = "Data Source = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.10.10)(PORT = 1521)))(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = ax.domain.ru)));";
    connectionstring += "User Id = vasya_pupkin; Password = topsecret;";

    oraDb = new System.Data.OracleClient.OracleConnection(connectionstring);
    oraDb.Open();

    cmd = new System.Data.OracleClient.OracleCommand("select title from ax.empltable where emplId = :emplId", oraDb);
    
    parameters = cmd.get_Parameters();
    parameters.Add("emplId", "123");
    
    cmd.set_CommandTimeout(6000);


    orard = cmd.ExecuteReader();

    while(orard.Read())
    {
        info(orard.GetString(0));
    }

    orard.Close();
    oraDb.Close();
}