Recuperar una datos de un Stored Procedure

[Iaio VISUAL BASIC]

Hola gente... tengo un problema con una conexión VB6.0 a un Stored Procedure SQL Server 2008.

Cuando llego a la linea rstDatos.EOF me arroja el siguiente error:
Error '3704' en tiempo de ejecución:
La operación no está permitida si el objeto está cerrado.

Código vb:

Dim cmdDatos As ADODB.Command
Dim rstDatos As ADODB.Recordset
Set cmdDatos = New ADODB.Command
Set rstDatos = New ADODB.Recordset
With cmdDatos
    .ActiveConnection = Cnn
    .CommandType = adCmdStoredProc
    .CommandText = "dbo.ReaDatosPersonales"
    .Parameters.Append .CreateParameter("@sApellido", adVarChar, adParamInput, 30, sApellido)
    .Parameters.Append .CreateParameter("@sNombre", adVarChar, adParamInput, 30, sNombre)
    .Parameters.Append .CreateParameter("@sTipoDoc", adChar, adParamInput, 1, sTipoDoc)
    .Parameters.Append .CreateParameter("@nDocumento", adInteger, adParamInput, 80, nDocumento)
    .Parameters.Append .CreateParameter("@dFechaNac", adDBTimeStamp, adParamInput, 10, dFechaNac)
    .Parameters.Append .CreateParameter("@sCodEstadoCivil", adChar, adParamInput, 1, sCodEstadoCivil)
    .Parameters.Append .CreateParameter("@sDomicilio", adVarChar, adParamInput, 80, sDomicilio)
    .Parameters.Append .CreateParameter("@nCodLocalidad", adInteger, adParamInput, 50, nCodLocalidad)
    .Parameters.Append .CreateParameter("@nCodProvincia", adInteger, adParamInput, 50, nCodProvincia)
    .Parameters.Append .CreateParameter("@sTelefono1", adVarChar, adParamInput, 15, sTelefono1)
    .Parameters.Append .CreateParameter("@sTelefono2", adVarChar, adParamInput, 15, sTelefono2)
    .Parameters.Append .CreateParameter("@sEmail1", adVarChar, adParamInput, 30, sEmail1)
    .Parameters.Append .CreateParameter("@sEmail2", adVarChar, adParamInput, 30, sEmail2)
End With
With rstDatos
    .CursorLocation = adUseClient
    .Open cmdDatos, , adOpenStatic, adLockReadOnly, adCmdStoredProc
End With
If Not rstDatos.EOF Then
    a = 1
End If
 

QUE CARAJO HICE MALLL!!!! JAJAJA

[DexterGlue]

Hola

Revisando a "Vuelo de Pajaro" el codigo que indicas tienes que hacer dos cosas.

1. Aun que a simple vista se ve bien la asignacion de los parametros no se ha ejecutado el comando todabia, el resultado devuelto por el comando debes asignarlo mediante la instruccion SET al recorset<br>
2. En el caso de que vayas a asignar los datos algun control lo puedes hacer por medio de un ciclo por lo general se hace con WHILE verificando la propiedad EOF del recorsed, aun que igual lo puedes hacer con FOR por medio de la propiedad RECORDCOUNT

Espero poder ayudarte con estos comentarios

Saludos