[vb6] è giusto questo codice per una SP con ritorno di valore?

[Kahm]

Buongiorno
sto testando una applicazione
a dire il vero ho solo i permessi di esecuzione per le SP su sqlserver
devo solo verificare che la SP ritorna un valore

attualmente la SP mi ritorna sempre: "0"
ma il test dice che dovrebbe essere un valore concatenato ad una: "_"
quindi...o sono io che ho scritto male qualcosa oppure la SP non funziona

essendo che se mando la mail di anomalia, vorrei essere sicuro che tutto vada bene nel mio codice, potete dirmi se ho fatto qualche errore nell'impostare i parametri e controllare quello di ritorno?

a me sembra tutto corretto
grazie

    Dim RS As New ADODB.Recordset
    Dim CON As New ADODB.Connection
    CON.Open "Provider=SQLNCLI;Server=*****;Database=***;Uid=**;Pwd=****;"
    
    Dim cmdTemp As New ADODB.Command
    Set cmdTemp.ActiveConnection = CON
    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@Cod_CTA", adVariant, adParamReturnValue)
    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@IdCivico", adInteger, adParamInput, 10, Codice)
    
    cmdTemp.CommandType = adCmdStoredProc
    cmdTemp.CommandText = "IsValidCTA"
    cmdTemp.Execute
    res = cmdTemp.Parameters("@Cod_CTA")


    CON.Close

[oregon]

Questa linea

res = cmdTemp.Parameters("@Cod_CTA")

non ha senso

Il risultato sta nel recordset che non mi pare tu utilizzi (RS non è mai utilizzato)

Dovrebbe essere qualcosa come


Set RS = cmdTemp.Execute

e

poi esamini il risultato dei campi del recordset.

[sspintux]

attualmente la SP mi ritorna sempre: "0"

    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@Cod_CTA", adVariant, adParamReturnValue)

ciao ,

prova con adParamOutput invece che adParamReturnValue

[Kahm]

grazie a tutti

[sspintux]

grazie a tutti

... e ci lasci così con la curiosità

[Kahm]

... e ci lasci così con la curiosità

si scusate
in effetti con i vostri suggerimenti restituisce un valore diverso da "0"
infatti ora stavo solo riempiendo i moduli di test funzionali

grazie