UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

JOSEANGVAN


Hola a todos

soy nuevo en este foro y quisiera me puedan ayudar con este error

estoy realiando una consulta usando un odbc de Firebird, la consulta funciona bien si la hago insertando la consulta desde consultas en excel, pero si realizo la misma consulta desde una macro que tengo y que me permite realizar la consulta automaticamente me muestra el error mencionado, el codigo de la consulta es el siguiente:

ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _


"ODBC;DSN=WX;Driver=Firebird/InterBase(r) driver;Dbname=" & ruta & ";CHARSET=NONE;;UID=SYSDBA" _


, Destination:=Range("$A1")).QueryTable


.CommandText = Array("SELECT ACCT.TPOAPLCCION, GL.ACCT, GL.DEPTO, GL.CCOST, SUM(GL.DEBIT) DEBITO, SUM(GL.CREDIT) CREDITO, GL.ID_N, CUST.COMPANY, LISTA.TIPO FROM GL, ACCT, CUST, LISTA WHERE ((GL.ID_N = CUST.ID_N) AND (GL.ACCT = ACCT.ACCT) AND (GL.DEPTO = LISTA.CODIGO)) GROUP BY ACCT.TPOAPLCCION, GL.ACCT, GL.DEPTO, GL.CCOST, GL.ID_N, CUST.COMPANY, LISTA.TIPO ")

esta consulta funciona bien desde el archivo odc, pero no desde la macro,



gracias por la ayuda

SAKKAR


Joseangvan,

Lo más probable, es que te salga error porque no haces referencia al contenedor del objeto...  en este caso la hoja de cálculo...  intentá lo siguinete, o si no fijate que te falta alguna librería o algo por el estilo (no creo).

Acordate de que si te sirvió, un GRACIAS y cerrar el tema como RESUELTO, nos hacen muyyyy felices.

Salutte

'ACA FIJATE DE CAMBIAR ACTIVESHEET POR sheets("nombre de hoja").
ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _


"ODBC;DSN=WX;Driver=Firebird/InterBase(r) driver;Dbname=" & ruta & ";CHARSET=NONE;;UID=SYSDBA" _

'ACA INSERTA LUEGO DEL SIGNO IGUAL Y ANTES DE RANGE sheets("nombre de hoja").
, Destination:=Range("$A1")).QueryTable


.CommandText = Array("SELECT ACCT.TPOAPLCCION, GL.ACCT, GL.DEPTO, GL.CCOST, SUM(GL.DEBIT) DEBITO, SUM(GL.CREDIT) CREDITO, GL.ID_N, CUST.COMPANY, LISTA.TIPO FROM GL, ACCT, CUST, LISTA WHERE ((GL.ID_N = CUST.ID_N) AND (GL.ACCT = ACCT.ACCT) AND (GL.DEPTO = LISTA.CODIGO)) GROUP BY ACCT.TPOAPLCCION, GL.ACCT, GL.DEPTO, GL.CCOST, GL.ID_N, CUST.COMPANY, LISTA.TIPO ")

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.