Page 1 of 1

TOdbc-TDbOdbc

Posted: Wed Dec 07, 2005 9:24 am
by jmua
Hola Foro.
Estoy tratando de trabajar ACCESS con ODBC y los ejemplos que hay en SAMPLES no me son suficientes.
Consigo conectar con la base de datos, abro las tablas y las visualizo con TwBrowse, pero cuando quiero
modificar o aƱadir un registro me sale un error que envio a ver si alguien me dice que puede pasar
Este es el codigo que utilizo:

CfgTdbodbc := TDbOdbc():new("CONFIGUR",oOdbc)
//Asignamos el alias de la tabla
cAliasCfg := CfgTdbodbc:cFileName
//Creamos el query de la tabla
oDbConfig := oOdbc:Query( "SELECT * FROM " + cAliasCfg )
oDbConfig:Open()
oDbConfig:Complete()
oDbConfig:Gotop()
nCodigoCliente := oDbConfig:FieldGet( 13 ) + 1
nOldCliente := oDbConfig:FieldGet( 13 )
//Modificamos en la tabla ce configuracion el campo de codigo cliente con el nuevo valor
ModifyField := "UPDATE CONFIGUR SET CODCLIENTE=nCodigoCliente WHERE CODCLIENTE=nOldCliente"
oDbConfig:Execute(ModifyField,"Ejecutando modificacion",,@nRet)



Este es el error:
FiveODBC Error Message:
Ejecutando modificacion
[# -3010] Clas: 07001
[Microsoft][Controlador ODBC Microsoft Access] Pocos parametros. Se esperaba 2.

On Procedure: _EVAL Line: 0


Si alguien tutuviera algun ejemplo de un mantenimiento de una tabla con Altas, bajas modificaciones etc. lo agradeceria mucho.

Muchas gracias
Saludos

Re: TOdbc-TDbOdbc

Posted: Wed Dec 07, 2005 12:51 pm
by NK
You must change your Update-String:

ModifyField := "UPDATE CONFIGUR SET CODCLIENTE="+Alltrim(Str(nCodigoCliente))+" WHERE CODCLIENTE="+Alltrim(Str(nOldCliente))

Best Regards, Norbert

Re: TOdbc-TDbOdbc

Posted: Wed Dec 07, 2005 4:35 pm
by jmua
Gracias Nornbert probare a ver que pasa

Thank you