TOdbc-TDbOdbc

[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

[NK]

You must change your Update-String:

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

Best Regards, Norbert

[jmua]

Gracias Nornbert probare a ver que pasa

Thank you