FoxPro/Visual FoxPro - MEMO

 
Vista:

MEMO

Publicado por Estuardo (5 intervenciones) el 09/11/2007 06:34:50
Hola, fijense que quiero exportar un campo memo , tengo mucha informacion en los campos memo pero no se como exportarlo para poderlo usar en excel, por ejemplo.
Muchas gracias por su valios ayuda.

Bendiciones
Estuardo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MEMO

Publicado por Plinio (7841 intervenciones) el 09/11/2007 11:01:28
Prueba algo asi
SELECT campo1,campo2,,LEFT(miCampoMemo,250) as micampo FROM mitabla

COPY TO c:\archivo.xls type xls
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MEMO

Publicado por Estuardo (5 intervenciones) el 10/11/2007 02:45:39
Gracias Plinio, pero la cosa es que el memo tiene mas de 250 caracteres, y cuando hago eso se pierden, lo que se me ocurre es hacerlo con 2 o mas campos y a cada uno ponerle el maximo. (250 caracteres). no se si habra otra idea.
Gracias..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Esta si funciona

Publicado por Plinio (7841 intervenciones) el 10/11/2007 11:09:53
Vi en un foro en Ingles, que puedes automatizar excel y accesar la data via ADO, este si funciona, copia este codigo en un .prg y el abrirá una tablas de las que tienes de ejemplo en VFP. El campo Notes es un campo memo. Cualquier explicacion que quieras del codigo, me avisas.



LOCAL oExcel
oExcel = Createobject("Excel.Application")
With oExcel
.WorkBooks.Add
.Visible = .T.
VFP2Excel(_samples+'data\testdata.dbc','select * from employee',.ActiveSheet.Range('A10'))
Endwith

function VFP2Excel
lparameters tcDataSource, tcSQL, toRange
Local loConn As AdoDB.Connection, ;
loRS As AdoDB.Recordset,;
ix
loConn = Createobject("Adodb.connection")
loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource
loConn.Open()
loRS = loConn.Execute(m.tcSQL)

FOR ix=1 TO loRS.Fields.Count
toRange.Offset(0,m.ix-1).Value = PROPER(loRs.Fields(m.ix-1).Name)
toRange.Offset(0,m.ix-1).Font.Bold = .t.
ENDFOR
toRange.Offset(1,0).CopyFromRecordSet( loRS )
loRs.Close
loConn.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Esta si funciona

Publicado por Estuardo (5 intervenciones) el 11/11/2007 05:59:17
Muchas gracias Ernesto lo probare.!!!!!
Bendiciones!-

Estuardo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar