TDolphin error al grabar...SQL

[ACC69]

Hola buenas tardes de antemano les envio cordial saludos.

Mis estimados , tengo un pequeño inconveniente, intentando usar los comandos mas comunes en SQL

Pongo el ejemplo :

Abro la tabla de esta manera:
oQryDB08 := oServer:Query( 'select * from CATALOGO order by ID_CUENTA')


Aqui intento insertar nuevo registro
cCuenta := "2020000100020003"
CDescribe := "Prueba alta cuenta nivel 1

oQryDB08 := 'insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES (cCuenta, cDescribe)' /// En esta parte me marca error de esta forma con variables get y no me deja grabar


*oQryDB08 := 'insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES ("1020", "Pruena cuenta nivel 1")' // Asi de esta manera si me graba con string sin variables del get,pero porque sera!

Aqui es donde se graba el nuevo registro
oServer:Execute( oQryDB08 ) // Aqui segun se deberia grabar ,pero me marca error:

El mensaje que dice:
Error al grabar:
Unknown column "cCuenta" in "field list"


Seria si alguien me pudiera ayudar a solucionar en que estoy fallando ?

Mucho le agradecere su ayuda de siempre .

Saludos cordiales.

Atte: Adrian C. C.
acc69@hotmail.com

[FranciscoA]

Adrian.
Aún no uso TDolphin, pero con MySql lo hago asi:

Code: Select all  Expand view

     oServer:Query("INSERT INTO editando (DocEdit,Usuario,equipo) VALUES ('"+cDoc+"', '"+cNombUser+"','"+cEquipo+"') ;")
 

Espero te pueda servir de guía.
Saludos.

[MGA]

cCuenta := "2020000100020003"
CDescribe := "Prueba alta cuenta nivel 1

Exemplo1:
M->oServer:Insert('editando',;
{'ID_CUENTA','DESCRIP'},;
{cCuenta, cDescribe } )

Exemplo2:
M->oServer:Execute( "insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES (' "+Alltrim(cCuenta)+" ' , ' " alltrim(cDescribe)+" ' )" )


/************************************************************************/
function Conecta_Banco()
/*
*/
//Activated Case sensitive
D_SetCaseSensitive( .t. )

if ( M->oServer := ConnectTo() ) == NIL
return .f.
else
//tentativa de reconexão após perde-la
M->oServer:Execute( "SET SESSION wait_timeout = 86400;" )
endif

return(.t.)

/********************************************************/
static function ConnectTo()
/*
*/
LOCAL oServerIni, cServer, cUser, cPass, cBanco, cPort, nPort, nFlags, oErr

Pega_Script('connect.ini', @cServer, @cUser, @cPass, @cBanco, @cPort )

oServerIni := NIL
nPort := Val(cPort)
nFlags := 0
cServer := Alltrim(cServer)
cUser := Alltrim(cUser)
cPass := Alltrim(cPass)
cBanco := Alltrim(cBanco)

TRY
CONNECT oServerIni HOST cServer ;
USER cUser ;
PASSWORD cPass ;
PORT nPort ;
FLAGS nFlags;
DATABASE cBanco

CATCH oErr
RETURN NIL
END

RETURN oServerIni

[acuellar]

Adrian

Intenta colocando ClipValue2SQL(cCuenta)

Saludos,

Adhemar

[cmsoft]

Adrian:
Proba asi

Code: Select all  Expand view

oServer:Execute("insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES ("+ClipValue2Sql(cCuenta)+","+ClipValue2Sql( cDescribe)+")")

[ACC69]

Adrian:
Proba asi

Code: Select all  Expand view

oServer:Execute("insert into CATALOGO (ID_CUENTA,DESCRIP) VALUES ("+ClipValue2Sql(cCuenta)+","+ClipValue2Sql( cDescribe)+")")

Hola buenos dias gracias a todos los que me respondieron,y disculpas por no haber respondido antes, ando fuera de mi ciudad por cuestiones de trabajo de la empresa.

Y gracias por los ejemplos que postearon el lunes o martes hago las pruebas y les comento.

De nuevo muchas gracias.

Saludos cordiales

Atte: Adrian C. C.
acc69@hotmail.com