Ayuda insertar cadena en otra ?

Coco_jac · #1 14-12-2005

Hola migos del foro, tengo una inquietud existe alguna funcion que me devuelva algo asi :

tengo una cadena y quiero remplazar el (?) por un codigo dado:

Update Clientes Set cod= ? where cod='AB001'

de manera que quede asi :

Update Clientes Set cod= ' ab002' where cod='AB001'

gracias de antemano

jhonny · #2 14-12-2005

Bueno, aqui me confundo un poco porque no se si quieres hacerlo en delphi o en SQL(y si este es el caso para que BD), si fuese para Firebird/Interbase pues puedes crear una UDF.

Coco_jac · #3 14-12-2005

Lo quiero hacer en delphi, tengo almacenado la consulta (texto) en una variable pero, necesito remplar el '?' por un codigo de cliente dado.

donde texto : Update clientes set codigo=? where codigo='AB001'
algo asi : Update clientes set codigo='ab002' where codigo='AB001'

query.sql.add(texto);
query.ExeSQL;

Coco_jac · #4 14-12-2005

gracias pero lo resolvi asi

query1.DatabaseName:='D:\Documents and Settings\Administrador\Escritorio\MetusaStock 09-12-05';
sqltxt:='Select importe from cuen01 where cclie=:Codigo and NO_FACTURA='+chr(39)+'F049944'+chr(39);

query1.ParambyName('Codigo').AsString:='VA004';
query1.Open;

jhonny · #5 14-12-2005

jejejr, entonces no habia entendido lo que necesitabas, solo debo apuntar que los parametros tambien los puedes usar en la condicion de NO_FACTURA para que no tengas que concatenar, asi:

Código Delphi [-]query1.DatabaseName:='D:\Documents and Settings\Administrador\Escritorio\MetusaStock 09-12-05';
query1.sql.add('Select importe from cuen01 where cclie=:Codigo and NO_FACTURA=:NO_FACTURA');

query1.ParambyName('Codigo').AsString:='VA004';
query1.ParambyName('NO_FACTURA').AsString:='F049944';
query1.Open;