Actualizar registros de dos tablas

[Caral] · #1 01-04-2008

Hola

Código Delphi [-]begin
   if (Table2.locate('campo1', edit#.Text, [])) and (Table1.Locate('campo1',edit#.Text,[])) then
   begin
        Table1.Edit;
        Table2.Edit;
        Table1.FieldValues['campo1']:=trim(edit#.Text);
        Table2.FieldValues['campo1']:=trim(edit#.Text);
        Table1.post;
        Table2.Post;
    ShowMessage('Datos Modificados con Éxito');
    end
    else
    ShowMessage('Error al Modificar Datos');
    end
    end
end

Solo me entretengo un rato.

Saludos

[egostar] · #2 01-04-2008

Cita:

Empezado por Caral

Hola
Solo me entretengo un rato.

Código Delphi [-]begin
   if (Table2.locate('campo1',edit#.Text,[])) and
      (Table1.Locate('campo1',edit#.Text,[])) then begin
       Table1.Edit;
       Table2.Edit;
       Table1.FieldValues['campo1'] := trim(edit#.Text);
       Table2.FieldValues['campo1'] := trim(edit#.Text);
       Table1.post;
       Table2.Post;
       ShowMessage('Datos Modificados con Éxito');
   end
   else ShowMessage('Error al Modificar Datos');
end;

Yo también

Salud OS

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
actualizar registros entre dos tablas Paradox	Lenny	Varios	4	18-01-2008 15:13:09
Actualizar Registros En Una Tabla Paradox	sdiaz1983	Conexión con bases de datos	2	11-01-2008 14:54:31
actualizar 100 registros al tiempo	Camilo	Varios	2	22-06-2007 19:08:29
Actualizar Registros	drkvergil	Firebird e Interbase	3	12-09-2006 18:33:54
Eliminar y actualizar registros con SQL	Jheysson13	SQL	3	28-07-2006 22:32:01