Mi aplicación debe guardar datos en una base datos, la cual tiene 2 tablas,
Tabla campos
Tabla1: nombre_1, antiguedad_1, numero_Op_1
Tabla2: NumeroOperacion_2, nombrePersona_2
La tabla1 ya esta llena de información, solo el campo numero_Op_1 esta vacio, y este debera ser actualizado
Tengo un formulario para cargar datos en la tabla2 y agregar un dato al campo numero_Op_1 de la tabla1.
Cuando cargo estos datos en los edit, luego de presionar el Boton guardar, me deberia guardar esos tres datos (NumeroOperacion_2, nombrePersona1_2) en la Tabla2.
Asta aca ya lo tengo armado un funcionando
Ahora lo que deseo es lo siguiente
y también al mismo tiempo, agregar el numero de operación que izo cada persona
Quiero buscar en la tabla1 el dato nombrePersona_2 (este seria nombre y apellido de una persona) y cuando lo encuentre agregar al registro de esa persona, en el campo numero_Op_1 el campo NumeroOperacion_2.
ejemplo mas entendible
Tabla1
nombre_1 antiguedad_1 numero_Op_1
JOSE DAROSA 2 AÑOS 01
MARIA INES 10 AÑOS
CARLOS MONTERO 20 AÑOS 02
TABLA2
NumeroOperacion_2 nombrePersona_2
01 JOSE DAROSA
02 CARLOS MONTERO
Algo asi seria, la tabla1 ya esta cargada, solo el campo numero_Op_1 estaría vacio, cuando empiezo cargar datos en la TABLA2, cuando un registro me debe guardar este tabla y tambien buscar el nombre de la persona en la otra tabla y agregar ese numero de operación en el campo numero_Op_1.
Y asi sucesivamente, cada ves que agrego un registro en la tabla2, me genera un numero de operación el cual lo debo guardar también en la otra tabla en el registro de la persona que genero esa operacion.
Creo que ya me abre explicado bien.
Para guardar los datos en la tabla2 (esto me funciona)
ADOConnection2
DataModule2.ADOConnection2
ADOTable2
tableName: tabla2
esto lo agregue cuando quise ponerla opcion que guardara el campo NumeroOperacion_2 pero en la otra tabla (Tabla1)
ADOConnection1
DataModule2.ADOConnection1
ADOTable1
tablename: table1
Código Delphi
[-]
procedure TFAlta.Button2Click(Sender: TObject);
var
xx : integer;
Numer : string;
begin
ADOTable2.APPEND;
ADOTable2.FieldByName('NumeroOperacion_2').AsString := Edit1.Text;
ADOTable2.FieldByName('nombrePersona_2).AsString := Edit2.Text;
ADOTable2.Post;
// aca pondre el bloque que me actualizara la base datos principal
// Agregando numero de operacion que hayan realizado alguna persona
// que este registrada en la b datos
//
//Me falta ver que método de busqueda debo poner para buscar el nombre de la persona, y //agregar el numero de operación en ese registro
ADOTable1.APPEND;
ADOTable1.FieldByName('numero_Op_1').AsString := Edit1.Text;
ADOTable1.Post;
mmm... espero que me aya explicado bien.... ya di tantas vueltas que ni yo entiendo lo que quiero hacer,,,