Delphi - concatenar un campo, registro en base datos

   
Vista:

concatenar un campo, registro en base datos

Publicado por soledad (2 intervenciones) el 17/06/2012 20:41:57
hola gente, nesesito que alguien me peuda arreglar mi codigo que no me anda, quiero acer lo siguiente:

tendo una base datos cona acces, y si programita con delphi

la base datos tiene dos datbas1 y tabla2

quiero grabar un registro en tabla1, y el numero de registro quiero agregarle (CONCATENAR) a un campo en la tabla 2..

mi codigo es algo asi, es la parte que no me anda, me aparece error de typo variant imcompatible

INVALID VARIANT TYPE CONVERSION... este es error que me aparece

//concatenamos los numero registro,y guardamos lo concatenado
/// aca modifico campo NumReg de tabla2
ADOTable2.Edit;
a := ADOTable2.FieldValues['NumReg'];
ConcatenarCode := a + ', ' + edit1.text; //aca concateno el nuevo valor introducido en EDIT1 y le agrego al campo NumReg de la tabla1.

ADOTable2.FieldByName('NumReg').AsString := ConcatenarCode; //le paso al registro la variable ya concatenada
ADOTable2.Post;

showmessage('apellido esta registrado, iniciamos registro del tramite');
/// aca grabo en tabla2
ADOTable1.Insert;
ADOTable1.FieldByName('NumReg').AsString := Edit1.Text;
ADOTable1.FieldByName('venta').AsString := Edit2.Text;
ADOTable1.FieldByName('codigos').AsString := Memo1.text;
ADOTable1.Post;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Tres en ralla
- GlassEffect
- Creación de botones

concatenar un campo, registro en base datos

Publicado por E.T. (1107 intervenciones) el 18/06/2012 17:47:06
Pudieras decir en que linea te amrca el error?, intenta con esto

a := ADOTable1.FieldByName('NumReg').AsString;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

concatenar un campo, registro en base datos

Publicado por soledad (2 intervenciones) el 19/06/2012 02:41:35
bien bien exelente 10... si justo ese renglon no me andaba, lo combie por que que me paso y aora si concatene, gracias

ADOTable2.Edit;
a := ADOTable2.FieldByName('NumReg').AsString ;
ConcatenarCode := a + ', ' + edit1.text;
//ADOTable2.Insert;
ADOTable2.FieldByName('NumReg').AsString := ConcatenarCode;
ADOTable2.Post;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar