[vb6] problema esecuzione SP

[Kahm]

buongiorno
ho una SP in sqlServer, la quale provandola con dei valori fissi mi da un risultato: X
provando la stessa SP da VBA con gli stessi risultati mi da un risultato diverso

ecco la SP

ALTER PROCEDURE dbo.CheckIsXXXXXX 
            @cap as nvarchar(50),
            @CTD as varchar(4),
            @objectType as int

ecco il codice VB6

  Dim RS As New ADODB.Recordset
    Dim CON As New ADODB.Connection
    CON.Open "Provider=SQLNCLI;Server=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;"
    
    Dim cmdTemp As New ADODB.Command
    Set cmdTemp.ActiveConnection = CON
    
    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@objectType", adInteger, adParamInput, , 0)
    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@CTD", adVarChar, adParamInput, 4, codice)
    cmdTemp.Parameters.Append cmdTemp.CreateParameter("@cap", adVarChar, adParamInput, 50, cap)
    
    cmdTemp.CommandType = adCmdStoredProc
    cmdTemp.CommandText = "CheckIsXXXXXX"
    Set RS = cmdTemp.Execute '

If RS("valido") <> "Si" Then
 CON.Close
    fatal ("mi aspettavo si")
End If
 CON.Close

come potete notare ,
ho rispettato tutti i parametri
solo il tipo di parametro di @CAP in vb6 non c'è Nvarchar e lo ho impostato a adVarchar
ma non penso che sia questo il problema in quanto i dati inviati
sono: "2000" per il CTD ,"04019" per il cap, 0 per objectType sto impazzendo

[oregon]

Ma il campo "valido" è una stringa? Oppure, come penso, è un boolean? In questo caso non ha senso confrontarlo con la stringa "Sì" ma solo con true / false oppure 1// 0

[Kahm]

Ma il campo "valido" è una stringa? Oppure, come penso, è un boolean? In questo caso non ha senso confrontarlo con la stringa "Sì" ma solo con true / false oppure 1// 0

è una stringa, e ritorna appunto: "Si" e "No"
attualmente mi ritorna sempre "No" anche se i parametri sono identici che provo qui e direttamente in sqlServer

in effetti nella SP, non viene dichiarata la variabile Valido, ma impostata come un alias

SELECT  CASE @objectType  
			WHEN 0 THEN 
			WHEN 1 THEN 
			WHEN 2 THEN 
		END AS TipoOggetto,	
	 
		CASE @VALID_XXXXX 
			WHEN 1 THEN 'Si' ELSE 'No' 
		END as Valido;

[optime]

se hai possibilità di mettere mano alla SP, scrivi in una tabella di log i parametri ricevuti, così escludiamo che sia un problema di passaggio di parametri

[Kahm]

se hai possibilità di mettere mano alla SP, scrivi in una tabella di log i parametri ricevuti, così escludiamo che sia un problema di passaggio di parametri

si trovato l'arcano mistero
mi scambia il CTD con objectType
eppure i parametri li mando bene

e eseguendo su SQLserver va tutto been

[Kahm]

OK RISOLTO
ho scambiato la posizione

cmdTemp.Parameters.Append cmdTemp.CreateParameter("@cap", adVarChar, adParamInput, 50, cap)
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@CTD", adVarChar, adParamInput, 4, codice)
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@objectType", adInteger, adParamInput, , 0)

incredibile!!!!!!! proprio non capisco!!
GRZIE A TUTTI PER IL SUGGERIMENTO
senza il vostro aiuto sarei ancora a sbattermi i maroni

[optime]