Visual Basic - Ayuda con Proc. Almacenados y Vb 6.0

Hola, tengo este procedimiento almacenado en sql server 7.0
-----------------------------------------------------------------------------
CREATE PROCEDURE LISTAR_ARTICULOS
@COD_PRODUCTO AS VARCHAR(10)
AS
SET NOCOUNT ON
SELECT*
FROM PRODUCTOS
WHERE COD_PRODUCTO = @COD_PRODUCTO
RETURN
-------------------------------------------------------------------------------

luego lo llamo desde mi aplicacion vb 6.0 y este es el codigo

LOS DATOS QUE VOY A PASAR AL PROCEDIMIENTO LOS TOMO DESDE UN TEXTBOX
TEXT1.TEXT=COD200

Dim conex As New ADODB.Connection
Dim cn As New ADODB.Command
conex.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=intl; " & _
"Data Source='" & jvillalba & "'; " & _
"integrated security=SSPI; persist security info=True;"
cn.ActiveConnection = conex
cn.CommandText = "LISTAR_ARTICULOS"
cn.CommandType = adCmdUnknown
Set PSAR = cn.CreateParameter("cod_producto", adVarChar, adParamInput, , Text1.Text)
cn.Parameters.Append PSAR
cn.Execute

Al ejecutar este procedimiento sale un mensaje de error que dice " El procedimiento 'LISTAR_ARTICULOS' precisa el parametro '@cod_producto', que no se ha especificado

Por favor si alguien me puede ayudar en esto y que es lo que estoy haciendo mal. Gracias

Intenta cambiar: adCmdUnknown por: adCmdStoredProc

Tambien ya probe esa posibilidad, pero aun asi no funciona

Hola!

Lo que

Recuerda que los command son para ejecutar insert, update y delete, y para ejecutar un select, tienes que hacer es, crear un Recordset y asignarle el command al recordset ejemplo: Set RS=cn.Execute

Dim Rs as New ADODB.Recordset
Dim conex As New ADODB.Connection
Dim cn As New ADODB.Command
conex.CusorLocation=adUseClient
conex.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=intl; " & _
"Data Source='" & jvillalba & "'; " & _
"integrated security=SSPI; persist security info=True;"
cn.ActiveConnection = conex
cn.CommandType = adCmdStoredProc
cn.CommandText = "LISTAR_ARTICULOS"
'siempre es mejor darle el nombre ´parametro igual al del Procy especificar el tipo,direccion,tamaño
Set PSAR = cn.CreateParameter("cod_producto", adVarChar, adParamInput,10 , Text1.Text)
cn.Parameters.Append PSAR
Set RS=cn.Execute

este es tu codigo.. cierto?

-----------------------------------------------------------------------------
CREATE PROCEDURE LISTAR_ARTICULOS
@COD_PRODUCTO AS VARCHAR(10)
AS
SET NOCOUNT ON
SELECT*
FROM PRODUCTOS
WHERE COD_PRODUCTO = @COD_PRODUCTO
RETURN
-------------------------------------------------------------------------------

luego lo llamo desde mi aplicacion vb 6.0 y este es el codigo

LOS DATOS QUE VOY A PASAR AL PROCEDIMIENTO LOS TOMO DESDE UN TEXTBOX
TEXT1.TEXT=COD200

Dim conex As New ADODB.Connection
Dim cn As New ADODB.Command
conex.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=intl; " & _
"Data Source='" & jvillalba & "'; " & _
"integrated security=SSPI; persist security info=True;"
cn.ActiveConnection = conex
cn.CommandText = "LISTAR_ARTICULOS"
cn.CommandType = adCmdUnknown
Set PSAR = cn.CreateParameter("cod_producto", adVarChar, adParamInput, , Text1.Text)
cn.Parameters.Append PSAR
cn.Execute
----
Al ejecutar este procedimiento sale un mensaje de error que dice " El procedimiento 'LISTAR_ARTICULOS' precisa el parametro '@cod_producto', que no se ha especificado
****************

Ps creo k ese error te salio por k te olvidaste de poner el @
Fijate bien el la liinea donde indicas el parametro y el valor k le envias
Por ahi solo escribiste el nombre del parametro pero no lo escribiste bien.
seria algo asi :
Set PSAR = cn.CreateParameter("@cod_producto", adVarChar, adParamInput, , Text1.Text)

ESPERO HABERTE AYUDADO HE.. CREO K ESE FUE TU PROBLEMA
CHAO Y BESOS