hola maestro realizo una consulta a un bd y obtengo resultados en una grilla. como puedo hacer para pasar los resultados aun doc. en excel.
un saludo
| ||||
Const cn = "provider=sqloledb;uid=sa;database=northwind;serve r=." Dim rs As New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "select * from products", cn, adOpenDynamic, adLockOptimistic Dim Hoja As New Excel.Application Hoja.Workbooks.Add Hoja.Cells(1, 1) = "ProductID" Hoja.Cells(1, 2) = "ProductName" Hoja.Cells(1, 3) = "UnitPrice" Hoja.Cells(1, 4) = "UnitsinStock" Hoja.Cells(1, 5) = "Monto" i = 2 rs.MoveFirst Do Hoja.Cells(i, 1) = rs(0) Hoja.Cells(i, 2) = rs(1) Hoja.Cells(i, 3) = rs(5) Hoja.Cells(i, 4) = rs(6) Hoja.Cells(i, 5) = rs(5) * rs(6) i = i + 1 rs.MoveNext Loop Until rs.EOF bueno eso pasa de uin recordset a un excel para un grilla ya te imaginaras nos vemos
__________________ http://www.luisariashidalgo.com |
| |||
y cual seria el tratamiento si el resultado esta almacenado en una consulta en access, y esta refiere por ejemplo al detalle de llamadas donde se detallan importes por cada llamada. al levantar y ejecutar la consulta en visual basic se pasarian los datos a excel de la forma que describe OYEME, y en el caso que sea asi como le especifico que sume la columna de importes y me de un TOTAL en una celda especifica de excel no sabiendo la cantidad de registros de antemano, en mi caso aproximadamente de detallan 4.000 como mucho en la cosnulta GRACIAS ¡¡¡¡ |