topic-18522

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Campo Memo en Mysql -- Ayuda

Posted: Wed Apr 07, 2010 10:20 PM

Por favor necesito ayuda, requiero imprimir un campo memo de mysql el tipo de campo es longtext,
este es el codigo que estouy manejando, en esot momentos estoy grabano y modificando bien usando TRichEdit(), el problema es como imprimo.

cText := oDatos:Fields("documen"):Value
cText = MEMOREAD( cText )
nLines := MlCount(cText,76)

.. . ..

FOR nFor := 1 TO nLines
cLine := MemoLine(cText, 76, nFor)
oPrn:CmSay( nRow,2, cLine, aoFont[6],,,,0)
nRow+=0.5; nConta++
NEXT

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Campo Memo en Mysql -- Ayuda

Posted: Wed Apr 07, 2010 10:34 PM

Prueba asi:

Code (fw): Select all Collapse

        nLines :=  MlCount(cText)
        FOR nFor := 1 TO nLines
          cLine := MemoLine(cText, 76, nFor)
          oPrn:CmSay( nRow,2, cLine, aoFont[6],,,,0)
          vRow := vRow + 0.4; nConta++
        NEXT

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Campo Memo en Mysql -- Ayuda

Posted: Fri Apr 09, 2010 02:15 PM

No me funciona, Este ejemplo Funciona para archivos DBF , para Mysql como Seria, El campo de Mysql es oDatos:Fields("documen"):Value

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Campo Memo en Mysql -- Ayuda

Posted: Fri Apr 09, 2010 07:22 PM

Hola Ruben,,
El ejemplo que puse funciona baja cualquier esquema... particularmente uso EAGLE com MySQL, al igual que conTMySQL, en ambos casos funciona igual,,, posiblemente no estes grabando el dato como corresponde,,,

Code (fw): Select all Collapse

oMaestro := OpenTabla(oMySQL, oDataBase, oMaestro)
IF oMaestro:RecNo() = 0
  oMaestro:Close()
  Return(NIl)
EndIf

cDetalle := oMaestro:FieldGet(3)                   //  3 posicion del campo texto

If !Empty(cDetalle)
     FOR vLen := 1 TO MlCount(cDetalle)
          vLin := MemoLine(cDetalle,50,vLen)
          oPrn:CmSay(vRow,2,vLin)
          vRow := vRow + 0.4
     NEXT
EndIf

oMaestro:Close()
Return(Nil)

FiveTech Support Forums

Campo Memo en Mysql -- Ayuda

Re: Campo Memo en Mysql -- Ayuda

Re: Campo Memo en Mysql -- Ayuda

Re: Campo Memo en Mysql -- Ayuda

Continue the discussion