none
Tomar valores de un sp de sql server en vb 6.0 RRS feed

  • Pregunta

  • 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

    miércoles, 10 de junio de 2015 14:58

Respuestas

  • 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

    • Propuesto como respuesta Sergio Parra miércoles, 10 de junio de 2015 15:39
    • Marcado como respuesta Gerson Requena jueves, 25 de junio de 2015 18:31
    miércoles, 10 de junio de 2015 15:04

Todas las respuestas