Visual Basic - VB6 con PA de SqlServer

hola,

Necesito un PA (más bien una función almacenada ;-) ) que recibiendo un parámetro devuelva un campo de una consulta SQL (el valor).

Todo esto lo quiero hacer desde VB6 y no sé como hacer una consulta y que reciba un valor sin utilizar un RS. Y creo que tiene que haber otra manera más directa y sencilla. He intentado hacerlo con un objeto command de ADO pero nada, además tampoco sé hacer un PA de SqlServer que devuelva un valor.

Podéis ayudarme?

Muchas gracias,

Puedes utilizar un Command de ADO e indicar cuales parámetros son de entrada y cuales son de salida:

Dim cmd As Command, rst As Recordset

Set cmd = New Command
Set cmd.ActiveConnection = TuObjetoConnection

cmd.CommandType = adCmdStoredProc
cmd.CommandText = "TuProcedimiento"
cmd.Parameters.Append cmd.CreateParameter ("ParametroEntrada1",adInteger,adParamInput,4,MiNumero)
cmd.Parameters.Append cmd.CreateParameter("ParametroSalida1",adInteger,adParamOutput,4)
cmd.Parameters.Append cmd.CreateParameter("ParametroSalida2",adInteger,adParamOutput,4)

Set rst=cmd.Execute

Y para ver los parámetros de salida:

cmd.Parameters.Item("ParametroSalida1").Value
cmd.Parameters.Item("ParametroSalida2").Value

En el procedimiento puedes hacer:

CREATE PROCEDURE MiProcedimiento
@ParamEntrada1 AS INT,
@ParamSalida1 AS INT OUTPUT,
@ParamSalida2 AS INT OUTPUT
AS
...

Muchas gracias Cecilia, pero no sé como enviar el campo! . O sea, como hago que la consulta meta dentro del parámetro de salida el valor?

gracias

CREATE PROCEDURE [Nedaes_EsquemaConsejeria]
@codigo as numeric,
@salida as VARCHAR output

AS
select consejeria_esquema from CONSE
WHERE @Codigo= ID_con
GO

Los parámetros los tienes que tratar como variables. Fijate con:

select consejeria_esquema from CONSE
WHERE ID_con = @Codigo