memo e Insert-Sql

23/09/2004 - 18:12 por eliana | Informe spam
Hola,
tengo el siguiente problema que ya me lleva varios dias...
quiero insertar el contenido de un campo de edicion en un campo memo de
una tabla. Estoy uilizando ODBC para acceder a los datos remotos. Cuando
tengo menos de 254 caracteres no hay problema pero cuando son mas falla la
inserción. Utilizo comillas simples para indicar que es texto.
Entonces sería algo asi

hConn = SQLConnect("ConServidorE3Aux","","")
IF (hConn < 0)
LOCAL ARRAY laError[1]
AERROR(laError)
MESSAGEBOX(laError[2], 0 + 16, "Error " + TRANSFORM(laError[5]))
ELSE
lcQuery="INSERT INTO tabla(...,mmemo,.)"
lcQuery = lcQuery + "VALUES (.,'+alltrim(thisform.edit1.value)+" '
)"
lnResult = SQLExec(hConn,lcquery)
SQLDisconnect(hConn)
IF lnResult < 0 then
MESSAGEBOX("No puedo agregarse", 0 + 16)
endif
ENDIF

Alguien puede decirme porque falla y les agradeceria que me tiren alguna
ideita de como puedo solucionarlo. Muchas gracias.

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
 

Leer las respuestas

#1 Alex Feldstein
24/09/2004 - 01:39 | Informe spam
On Thu, 23 Sep 2004 09:12:28 -0700, "eliana"
wrote:

hConn = SQLConnect("ConServidorE3Aux","","")
lcQuery="INSERT INTO tabla(...,mmemo,.)"
lcQuery = lcQuery + "VALUES (..,'+alltrim(thisform.edit1.value)+" '
)"

Alguien puede decirme porque falla y les agradeceria que me tiren alguna
ideita de como puedo solucionarlo. Muchas gracias.



Lo primero que veo es que tienes mal las comillas.
Te falta una doble:

lcQuery = lcQuery+"VALUES (..,'" +alltrim(thisform.edit1.value)+"')"


Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Preguntas similares