Взаимодействие VB и Oracle
Необходимо выполнить процедуру написанную в Оракле. Через которые передаются параметры.
Нашла, что вызов процедуры может осуществляться следующим образом:
OraDatabase.ExecuteSQL ("declare result Number; Begin :result :=
Employee.GETEMPSAL(:INEMPNO);
end;")
волнует часть с объявлением переменной (:INEMPNO), мне не понятно каким образом, а точнее с какими параметрами, да и описание ExecuteSQL не смогла найти....
Нашла, что вызов процедуры может осуществляться следующим образом:
OraDatabase.ExecuteSQL ("declare result Number; Begin :result :=
Employee.GETEMPSAL(:INEMPNO);
end;")
волнует часть с объявлением переменной (:INEMPNO), мне не понятно каким образом, а точнее с какими параметрами, да и описание ExecuteSQL не смогла найти....
хм конечно ни кто не ответил, сама нашла ответ:
Global OraDb As Object 'Объявление переменной
OraDb.Parameters.Remove "NameBase_VB" 'на всякий случай удаляем параметр
OraDb.Parameters.Add "NameBase_VB", 0, 1 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("NameBase_VB").serverType = 2 '2-цифровой; 1-символьный
OraDb.Parameters.Remove "erPrK_VB"
OraDb.Parameters.Add "erPrK_VB", 0, 2 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("erPrK_VB").serverType = 2 '2-цифровой; 1-символьный
OraDb.Parameters.Remove "kol_VB"
OraDb.Parameters.Add "kol_VB", 0, 2 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("kol_VB").serverType = 2 '2-цифровой; 1-символьный
Непосредственно вызов
OraDb.DbExecuteSQL ("Begin MY_PROC_PHONE.ProverkaNaOplatu(:NameBase_VB, :erPrK_VB, :kol_VB);end;")
Global OraDb As Object 'Объявление переменной
OraDb.Parameters.Remove "NameBase_VB" 'на всякий случай удаляем параметр
OraDb.Parameters.Add "NameBase_VB", 0, 1 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("NameBase_VB").serverType = 2 '2-цифровой; 1-символьный
OraDb.Parameters.Remove "erPrK_VB"
OraDb.Parameters.Add "erPrK_VB", 0, 2 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("erPrK_VB").serverType = 2 '2-цифровой; 1-символьный
OraDb.Parameters.Remove "kol_VB"
OraDb.Parameters.Add "kol_VB", 0, 2 ' 2-Выходной параметр; 1-входной
OraDb.Parameters("kol_VB").serverType = 2 '2-цифровой; 1-символьный
Непосредственно вызов
OraDb.DbExecuteSQL ("Begin MY_PROC_PHONE.ProverkaNaOplatu(:NameBase_VB, :erPrK_VB, :kol_VB);end;")