FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
exportar de un ADOQuery a Excel
Hola comunidad.
Necesito exportar de un ADOQuery a Excell realice una busqueda en google y encontre un tema en el archivo del foro donde previamente se trato copie el codigo cambie lo que indica el ejemplo para que se adecue a mi codigo y me devuelve este error, la verdad no tengo idea de la razon. Si alguien lo ha echo antes y puede indicarme seria genial Código:
//declaracion de variables Variant XL,v0,v1,v2,v3; //abres excel XL=Variant::CreateObject("excel.application"); //la abres con la ventana visivle o si tiene false la ventana es invisible XL.OlePropertySet("Visible", true); //abre el archivo C:\\mi_archivo.xls, se puede "SaveAs" en lugar de "Open" para crear en lugar de abrir XL.OlePropertyGet("Workbooks").OleProcedure("Open", "C:\\mi_archivo.xls"); //abres la hoja1 en este caso llamada reporte v0=XL.OlePropertyGet("Sheets", "Reporte"); v1=v0.OlePropertyGet("Cells"); //aqui pones el nombre de las columnas que vas usar de la BD String columnas[6]={"ueb", "expediente", "fecha_pago", "orden", "convenio", "salario_total"}; //qq es un query ya con una consulta hecha ADOQuery1->First(); for (int i = 1; i <= ADOQuery1->RecordCount; i++) { for (int ii = 0; ii < 6; ii++) { //se va escribiendo dato por dato v1.OlePropertyGet("Cells", i+4, ii+1).OlePropertySet("Value", ADOQuery1->FieldByName(columnas[ii])->AsString); } ADOQuery1->Next(); } XL.OlePropertySet("DisplayAlerts", false); XL.OleProcedure("Save"); XL=Unassigned; Código:
--------------------------- Debugger Exception Notification --------------------------- Project VB.exe raised exception class EOleSysError with message 'Tipo de variable incorrecto'. Process stopped. Use Step or Run to continue. --------------------------- OK Help ---------------------------
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código. Cuando miras fijamente al abismo, este te devuelve la mirada oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_ oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_ oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_ oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_ oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_ ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_ ________________________________________________________________________________ |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Exportar Excel a PDF | BuenaOnda | Varios | 1 | 18-02-2011 10:51:17 |
Exportar a Excel | jocey | Servers | 3 | 28-10-2008 22:33:28 |
Exportar a Excel | jocey | Varios | 3 | 06-11-2007 16:15:23 |
Exportar a Excel | Danielle | Impresión | 0 | 16-06-2006 18:04:55 |
Exportar a Excel | pruz | Varios | 8 | 01-07-2004 15:47:37 |
|