[VB6] ORA-00911 Invalid character.

[maximum]

Con il seguente codice cerco di invocare dal mio client una stored procedure in oracle:

Public Function ControllaCFBrasile(cf As String, tipo As String, msgErr As String) As Integer

    strSql = "{?={call sial_gestione_lav_esterni.ctrl_codice_fiscale(?,?,?)}"

    Set Com = this.ISIALApplication_SIALDatabase.command
    With Com
        .CommandText = strSql
        .CommandType = adCmdText
        .Parameters.Append .CreateParameter("RetVal", adInteger, 1, adParamReturnValue)
        .Parameters.Append .CreateParameter("i_codice_fiscale", adVarChar, adParamInput, 30, Trim(cf))
        .Parameters.Append .CreateParameter("i_tipo", adVarChar, adParamInput, 3, tipo)
        .Parameters.Append .CreateParameter("o_msg_err", adVarChar, adParamOutput, 1000, msgErr)
        .Execute
    End With

    ControllaCFBrasile = command("RetVal").Value
    msgErr = command("msgErr").Value
    
End Function

Premesso che i parametri di input alla funzione arrivano correttamente, quando cerca di effettuare la Excecute, mi restituisce il messaggio dell'oggetto; mentre se con gli stessi parametri eseguo la stored direttamente da oracle, la stessa funziona correttamente determinando l'esito se positivo o negativo.

Cosa sbaglio?

Grazie anticipatamente.

[gibra]

1) Devi indicare al Command anche il campo ActiveConnection
2) nel CommandType va indicato adCmdStoredProc

vedi qui:
http://nuke.vbcorner.net/Articoli/VB...T/Default.aspx

[maximum]

Il problema si è risolto semplicemente eliminando la seconda parentesi graffa da sinistra della strSql.
Ecco il codice che mi ha permesso la corretta funzionalità:

Public Function ControllaCFBrasile(cf As String, tipo As String, msgErr As String) As Integer

    strSql = "{?=call sial_gestione_lav_esterni.ctrl_codice_fiscale(?,?,?)}"

    Set Com = this.ISIALApplication_SIALDatabase.command
    With Com
        .CommandText = strSql
        .CommandType = adCmdText
        .Parameters.Append .CreateParameter("RetVal", adInteger, 1, adParamReturnValue)
        .Parameters.Append .CreateParameter("i_codice_fiscale", adVarChar, adParamInput, 30, Trim(cf))
        .Parameters.Append .CreateParameter("i_tipo", adVarChar, adParamInput, 3, tipo)
        .Parameters.Append .CreateParameter("o_msg_err", adVarChar, adParamOutput, 1000, msgErr)
        .Execute
    End With

    ControllaCFBrasile = Com("RetVal").Value
    msgErr = Iif IsNull(Com("msgErr").Value, "", Com ("msgErr").Value)
    
End Function

[oregon]

In effetti c'era una parentesi aperta e non chiusa ...