Параметризированный запрос к БД Oracl из VBA.

[ivan.tiran]

Добрый день. Пытаюсь отладить запись с параметрами из VBA под Outlook в БД Oracle.
Запрос на выборку данных проходит

'Dim cn As ADODB.connection
    'Dim rs As ADODB.Recordset
    Dim cn As Object
    Dim rs As Object
Dim strSql As String

    'Set cn = New ADODB.connection
    'Set rs = New ADODB.Recordset
            
    Set cn = CreateObject("ADODB.connection")
    Set rs = CreateObject("ADODB.Recordset")
            
    cn.ConnectionString = "Provider=OraOLEDB.oracle;USER ID=star;Password=star;Data Source=root"
    
    
    cn.Open 'ñäåëàòü ïîòîì îáðàáîòêó îøèáêè ïîäêëþ÷åíèÿ
    
    strSql = "select * from IZMIRAN"
    rs.Open strSql, cn, 3, 3
    
    rs.MoveFirst
    
    
    Do While Not rs.EOF
        MsgBox rs("NAME_F") & " " & rs("N_MES")
        rs.MoveNext
    
    Loop
    
    rs.Close
    cn.Close

А запись - ни в какую. Что только не пробовал. И символьные параметры, и знаки вопросов.

Dim strSql As String
    Dim driverParameters As String
    Dim con As Object
    Dim oCmd As Object
    
    MsgBox "first"
    
    driverParameters = "Provider=OraOLEDB.oracle;USER ID=" & databaseUser & ";Password=" & databaseUserPassword & ";Data Source=" & databaseName
    
    strSql = "insert into izmiran(N_MES) values(@nmes)"
    
    
    
    Set con = CreateObject("ADODB.connection")
    con.ConnectionString = driverParameters
    
    
    
    con.Open
    
  MsgBox "tata"
    
    Set oCmd = CreateObject("ADODB.Command")

    MsgBox "tata2"
    oCmd.ActiveConnection = con
    
 
    
    oCmd.CommandText = sql
    
    MsgBox "qwerty2"
    
    oCmd.CommandType = 1

    'oCmd.NamedParameters = True
    
    MsgBox "qwerty3"
    
    
    oCmd.Parameters.Append oCmd.CreateParameter("N_MES", adNumeric, adParamInput, 8, 897)
    
    MsgBox "qwerty4"
    
    oCmd.Prepared = True
    'oCmd. = 15
    
    
    
    oCmd.Execute
    
    MsgBox "qwerty5"
    
    Set oCmd = Nothing
    con.Close
    Set con = Nothing

oCmd.Execute – не проходит. Что я делаю не так?

[ivan.tiran]

Тут конечно есть ошибки. Уже в который раз лопачу код.
Вот новый вариант.

Private Sub WriteInIzmiran(databaseName As String, databaseUser As String, databaseUserPassword As String)  'ïðîöåäóðà çàïèñè âëîæåíèé â Izmiran Item As Outlook.MailItem, hType As HeaderType, workDirectory As String,
    Dim strSql As String
    Dim driverParameters As String
    Dim con As Object
    Dim oCmd As Object
    
    MsgBox "first"
    
    driverParameters = "Provider=OraOLEDB.oracle;USER ID=" & databaseUser & ";Password=" & databaseUserPassword & ";Data Source=" & databaseName
    
    strSql = "insert into izmiran(N_MES) values(?)"
    
    
    
    Set con = CreateObject("ADODB.connection")
    con.ConnectionString = driverParameters
    
    
    
    con.Open
    
  MsgBox "tata"
    
    Set oCmd = CreateObject("ADODB.Command")

    MsgBox "tata2"
    oCmd.ActiveConnection = con
    
 
    
    oCmd.CommandText = sql
    
    MsgBox "qwerty2"
    
    oCmd.CommandType = adCmdStoredProc

    oCmd.NamedParameters = False
    
    MsgBox "qwerty3"
    
    oCmd.Parameters.Refresh
    oCmd.Parameters.Append oCmd.CreateParameter("N_MES", adInteger, adParamInput, , 897)
    
    oCmd.Prepared = True
    'oCmd. = 15
    
    MsgBox "qwerty4"
    
    oCmd.Execute
    
    MsgBox "qwerty5"
    
    Set oCmd = Nothing
    con.Close
    Set con = Nothing
    
    
End Sub

Почему не работает?

[Аватар]

"@N_MES" - не ? и если добавлять параметры, то refresh по-моему не нужен
или
oCmd.Parameters.Item(1).Value = 897 а так refresh перед присвоением значений нужен

[ivan.tiran]

Сообщение от Аватар

"@N_MES" - не ? и если добавлять параметры, то refresh по-моему не нужен
или
oCmd.Parameters.Item(1).Value = 897 а так refresh перед присвоением значений нужен

Что тогда я в этот раз не так делаю?
qwerty4 вообще не выводится

Private Sub WriteInIzmiran(databaseName As String, databaseUser As String, databaseUserPassword As String)  'ïðîöåäóðà çàïèñè âëîæåíèé â Izmiran Item As Outlook.MailItem, hType As HeaderType, workDirectory As String,
    Dim strSql As String
    Dim driverParameters As String
    Dim con As Object
    Dim oCmd As Object
    
    MsgBox "first"
    
    driverParameters = "Provider=OraOLEDB.oracle;USER ID=" & databaseUser & ";Password=" & databaseUserPassword & ";Data Source=" & databaseName
    
    strSql = "insert into izmiran(N_MES) values(?)"
    
    
    
    Set con = CreateObject("ADODB.connection")
    con.ConnectionString = driverParameters
    
    
    
    con.Open
    
  MsgBox "tata"
    
    Set oCmd = CreateObject("ADODB.Command")

    MsgBox "tata2"
    oCmd.ActiveConnection = con
    
 
    
    oCmd.CommandText = sql
    
    MsgBox "qwerty2"
    
    oCmd.CommandType = adCmdStoredProc

    oCmd.NamedParameters = False
    
    MsgBox "qwerty3"
    
    oCmd.Parameters.Refresh
    'oCmd.Parameters.Append oCmd.CreateParameter("N_MES", adInteger, adParamInput, , 897)
    
    oCmd.Parameters.Item(1).Value = 897
    
    oCmd.Prepared = True
    'oCmd. = 15
    
    MsgBox "qwerty4"
    
    oCmd.Execute
    
    MsgBox "qwerty5"
    
    Set oCmd = Nothing
    con.Close
    Set con = Nothing
    
    
End Sub

[Аватар]

а чего adCmdStoredProc? И что в sql?

[ivan.tiran]

Сообщение от Аватар

а чего adCmdStoredProc? И что в sql?

С sql ошибка вышла. Там должен стоять strSql. Интерпретатор к сожалению не ругается в Outlooke. А что вместо adCmdStoredProc ичпользовать? Завтра исправлю, отпишусь, уже не на работе.

[Аватар]

если insert в strSql то 1 или adCmdText

[ivan.tiran]

Сообщение от Аватар

"@N_MES" - не ? и если добавлять параметры, то refresh по-моему не нужен
или
oCmd.Parameters.Item(1).Value = 897 а так refresh перед присвоением значений нужен

А refresh перед каждым присвоением использовать или достаточно один раз?

[Аватар]

1 раз перед присвоениями

[Aleksandr H.]

Сообщение от ivan.tiran

Интерпретатор к сожалению не ругается в Outlooke.

Option Explicit в начало модуля вставили?