Tomar valores de un sp de sql server en vb 6.0

Question

Buenos días expertos.

Estoy ejecutando un sp de sql server 2008r2, a través de VB 6.0. El inconveniente que tengo es que no se como obtener los datos de esa consulta para poder pasárselos a un ListView.

Aquí les dejo parte de mi código donde realizo la consulta y me debe de traer los datos.

Gracias...!!!

 'Cargar el ListView con los datos de sp de sql
    con.Provider = "SQLOLEDB"
    strconnect = "Data Source=" & gs_data_sourc & ",1433;Network Library=DBMSSOCN;Initial Catalog=" & gs_nomb_bd & ";User ID=" & gs_user_id & ";Password=" & gs_user_pwd & ";Connect Timeout=3600"
    con.Open strconnect
    Set objCmd = New ADODB.Command
    objCmd.CommandType = adCmdStoredProc
    objCmd.CommandText = "sp_rptsddn_0001"
    Set objCmd.ActiveConnection = con
    objCmd.Parameters.Append objCmd.CreateParameter("@FCHINI", adDBDate, adParamInput, , DTPickerFI.Value)
    objCmd.Parameters.Append objCmd.CreateParameter("@FCHFIN", adDBDate, adParamInput, , DTPickerFF.Value)
    objCmd.Execute
    con.Close
    Set objCmd = Nothing
    Set con = Nothing

---

Gerson Requena

Answer 1

Hola,

es tan sencillo como hacer

Dim rs As ADODB.Recordset
Set rs = objCmd.Execute

---

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

Answer 2

Vale Sergio

muchas gracias...!!!

Solucionada la duda, buen aporte

---

Gerson Requena