Esperen ya les salve la anterior pregunta en el foro jajaja.. Ahora si ayudenme por favor con esta.

14/05/2010 - 06:35 por Moreno | Informe spam
Hago un acceso a una tabla en excel, en mi ordenador funciona perfecto
pero por que con mi cliente en las maquinas que instalo mi sistema no
funciona.

Yo pienso que en mi equipo funciona bien por que tengo instalado VFP
9.0 pero mi cliente solo instala el archivo de distribucion de install
shield que hice.

Mi rutina es ...

IF imp_acht = 2 && Excel
HojaXLSx=imp_hoja
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
CLEAR
lcXLBook = "&imp_achi"
lcConnstr = [Driver=] + [{Microsoft Excel Driver (*.xls, *.xlsx,
*.xlsm, *.xlsb)};] + [DBQ=] + lcXLBook
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
HojaXLSx0 = ALLTRIM(HojaXLSx)+"$"
lcSQLCmd = [Select * FROM "&HojaXLSx0"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
MESSAGEBOX("Error encontrado "+laErr(3),16,_SSSTM)
SQLDISCONNECT( lnSQLHand )
Importar=.F.
ELSE
SELECT xlResults
COPY TO (Achpas01)
SQLDISCONNECT( lnSQLHand )
ENDIF
ENDIF

¿Que libreria (DLL) tengo que bajar en el equipo de mi cliente para
que esta rutina funcione?

Gracias.
 

Leer las respuestas

#1 Luis Martinez
14/05/2010 - 15:23 | Informe spam
Verifica si en ODBC tienes el Microsoft Excel Driver instalado...???

"Moreno" escribió en el mensaje de noticias
news:
Hago un acceso a una tabla en excel, en mi ordenador funciona perfecto
pero por que con mi cliente en las maquinas que instalo mi sistema no
funciona.

Yo pienso que en mi equipo funciona bien por que tengo instalado VFP
9.0 pero mi cliente solo instala el archivo de distribucion de install
shield que hice.

Mi rutina es ...

IF imp_acht = 2 && Excel
HojaXLSx=imp_hoja
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
CLEAR
lcXLBook = "&imp_achi"
lcConnstr = [Driver=] + [{Microsoft Excel Driver (*.xls, *.xlsx,
*.xlsm, *.xlsb)};] + [DBQ=] + lcXLBook
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
HojaXLSx0 = ALLTRIM(HojaXLSx)+"$"
lcSQLCmd = [Select * FROM "&HojaXLSx0"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
MESSAGEBOX("Error encontrado "+laErr(3),16,_SSSTM)
SQLDISCONNECT( lnSQLHand )
Importar=.F.
ELSE
SELECT xlResults
COPY TO (Achpas01)
SQLDISCONNECT( lnSQLHand )
ENDIF
ENDIF

¿Que libreria (DLL) tengo que bajar en el equipo de mi cliente para
que esta rutina funcione?

Gracias.

Preguntas similares