topic-22948

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

una pregunta ingenua con ado

Posted: Thu Nov 24, 2011 08:59 PM

Saludos al Forum

Tengo el siguiente cidigo
cFile := oApp:DIR_TEMP+"HELP.RTF"
oRTF:SaveToRTFFile( cFile )
oApp:cMemotext = MEMOREAD(oApp:DIR_TEMP+"HELP.RTF")

Quiero grabar el contenido del texto que queda en oApp:cMemotext en Mysql pero me genera error deacuerdo al codigo adjunto, el error esta en oApp:cMemotext

Code (fw): Select all Collapse

          cWhere :=" WHERE codhel = '"+alltrim(::m_modulo)+"'"
          oSql := "SELECT * FROM  khelp "+cWhere
          EjeQueri(80,@Xatos,oSql)
            if Xatos = 0
               cWhere := ' '
               cSql := "INSERT INTO khelp SET "
               cSql += "codhel= '" + ::m_modulo ) + "',"
             else
               cSql := "UPDATE khelp SET "
             endif 
           *--
             cSql += "documen= '" + oApp:cMemotext )  +"'  "
             cSql += cWhere
             EjeQueri(90,Nil,cSql,Nil,Nil)

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

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: una pregunta ingenua con ado

Posted: Fri Nov 25, 2011 07:59 AM

¿Que error aparece?

Comprueba que no aparezca el apostrofe (') en cMemotext

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: una pregunta ingenua con ado

Posted: Fri Nov 25, 2011 10:22 PM

Saludos
Si estoy colocando el apostrofe Asi
cSql := "UPDATE khelp SET "
cSql += "documen= '" + oApp:cMemotext ) +"' "+cWhere

Si lo hago de esta manera si funciona

Code (fw): Select all Collapse

              cWhere := "codhel = '"+alltrim(::m_modulo)+"'"
              oApp:oQSet[oApp:nQSet]:Find( cWhere ) 
              if  oApp:oQSet[oApp:nQSet]:EOF() 
                oApp:oQSet[oApp:nQSet]:AddNew()  
                oApp:oQSet[oApp:nQSet]:Fields("codhel"):Value  := ::m_modulo
              endif
            endif
               oApp:oQSet[oApp:nQSet]:Fields("documen"):Value := oApp:cMemotext
               oApp:oQSet[oApp:nQSet]:Update()

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

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: una pregunta ingenua con ado

Posted: Sat Nov 26, 2011 01:32 PM

Rubén,

Me refiero a que compruebes el texto contenido en oApp:cMemoText, por si tiene algún caracter incorrecto para las estructuras SQL.

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

FiveTech Support Forums

una pregunta ingenua con ado

Re: una pregunta ingenua con ado

Re: una pregunta ingenua con ado

Re: una pregunta ingenua con ado

Continue the discussion