numerico a txt
Publicado por HUGO (207 intervenciones) el 09/10/2007 04:40:18
amigos de la web, necesito de su gran ayuda, lo que trato de hacer es pasar la informacion de excel a mi tabla dbf mi codigo es este:
LOCAL oExcel, lFilaDatos, iFila, iColumna, cFile
ifila=1
iColumna=1
FilaDatos=.T.
oExcel = CREATEOBJECT("Excel.Application")
cFile="c:\original.xls"
oExcel.workbooks.OPEN(cFile)
DO WHILE FilaDatos
SELEC t_comensales
IF VARTYPE(oExcel.Cells(ifila,1).VALUE) = .NULL.
FilaDatos=.F.
oExcel.QUIT
ELSE
INSERT INTO t_comensales (codigo, nombre) VALUES (oExcel.Cells(ifila,1).VALUE,oExcel.Cells(ifila,2).VALUE)
ifila=ifila+1
ENDIF
ENDDO
oExcel.QUIT
*** mi problema es que la primer columa del excel la toma como numerica y al pasarla a mi dbf es tipo caracter, lo que deseo es convertir la linea de excel a txt antes de que llegue a mi DBF..porque me da error de tipo de datos.
mi linea del codigo que detecta lo numerico es esta:
INSERT INTO t_comensales (codigo, nombre) VALUES
antes que llegue a esta del insert tengo que cambiar a texto para no tener el problema de tipo de datos.
nota: programo en vfp7
de antemano gracias
atte: hugo
LOCAL oExcel, lFilaDatos, iFila, iColumna, cFile
ifila=1
iColumna=1
FilaDatos=.T.
oExcel = CREATEOBJECT("Excel.Application")
cFile="c:\original.xls"
oExcel.workbooks.OPEN(cFile)
DO WHILE FilaDatos
SELEC t_comensales
IF VARTYPE(oExcel.Cells(ifila,1).VALUE) = .NULL.
FilaDatos=.F.
oExcel.QUIT
ELSE
INSERT INTO t_comensales (codigo, nombre) VALUES (oExcel.Cells(ifila,1).VALUE,oExcel.Cells(ifila,2).VALUE)
ifila=ifila+1
ENDIF
ENDDO
oExcel.QUIT
*** mi problema es que la primer columa del excel la toma como numerica y al pasarla a mi dbf es tipo caracter, lo que deseo es convertir la linea de excel a txt antes de que llegue a mi DBF..porque me da error de tipo de datos.
mi linea del codigo que detecta lo numerico es esta:
INSERT INTO t_comensales (codigo, nombre) VALUES
antes que llegue a esta del insert tengo que cambiar a texto para no tener el problema de tipo de datos.
nota: programo en vfp7
de antemano gracias
atte: hugo
Valora esta pregunta


0