Pasar a excel datos de Storeprocedure
Publicado por Enrique (3 intervenciones) el 10/04/2013 01:45:21
Hola les comento cual es mi problema
En VB 6.0 llamo un storeprocedure hecho en sql server
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
cn.Open mfncGetFromIni("coneccion", "sql", App.path & "\cops.ini")
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Inventario"
cmd.Parameters.Append cmd.CreateParameter("fecha", adChar, adParamInput, 10, "2013/04/09")
cmd.Execute
el SP funciona bien(creo) pero la cosa esta que del resultado de dicho sp necesito pasarlos a exel, he intentado con lo siguiente pero no funciona
sql = "select * from exec inventario"
diganme como hago para obtener esos datos en un recordset .
Ya en un recordset yo se como pasarlos a Exel
GRACIAS
En VB 6.0 llamo un storeprocedure hecho en sql server
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
cn.Open mfncGetFromIni("coneccion", "sql", App.path & "\cops.ini")
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Inventario"
cmd.Parameters.Append cmd.CreateParameter("fecha", adChar, adParamInput, 10, "2013/04/09")
cmd.Execute
el SP funciona bien(creo) pero la cosa esta que del resultado de dicho sp necesito pasarlos a exel, he intentado con lo siguiente pero no funciona
sql = "select * from exec inventario"
diganme como hago para obtener esos datos en un recordset .
Ya en un recordset yo se como pasarlos a Exel
GRACIAS
Valora esta pregunta
0