execute Store procedure

[beququi]

Hola soy principiante en el tema y quiero ejecutar el siguiente codigo y me da error de que el objeto esta cerrado cuando me fijo si llego al final del recorset, me dan una mano??

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "DSN=test;;"
cn.Open
cn.Execute ("test")

If Not rs.EOF Then
nombre = rs.Fields("nombre")
End If
End Sub

[GeoAvila]

en base a tu pregunta hice esta respuesta en las faq's

http://www.forosdelweb.com/showpost....&postcount=155

nos vemos..

[tazzito]

hola beququi

bueno en el codigo no veo donde asignas el recorset devuelto a rs, la forma seria la siguiente

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim xSQL as string
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=test;;"
cn.Open
xSQL = "Test"
set rs = cn.execute (xSQL)

If Not rs.EOF Then
nombre = rs.Fields("nombre")
End If
End Sub


de paso te recomiendo poner un Set NoCount ON al inicio de tu procedure Test por que cualquier select print o exec dentro devuelve un registro nulo