Consulta de una tabla1 para agregar en otra tabla2

[aanil]

Hola a todos quiero que me corrijan, estoy entreteniendome con esta pequeña aplicacion.

Estos don los codigos de dos botones, el primero hace la consulta de una tabla1, y el segundo agrega esa consulta en otra tabla2, esto funciona.

Ahora el problema es que tengo un tercer boton que limpia el edit1.text y posiciona el cursor en el Edit, pero no se listan de nuevo todos los registros para hacer una nueva consulta.

El otro problema que no puedo ver de inmediato los registros que he agregado en la otra tabla2, para que se vean tengo que salir de la aplicacion y luego entrar y ahi si se ven.

Veamos mi codigo para que en lo posible me ayuden a corregirlo.


procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('Select carnet,nombres,apellido1,apellido2');
adoquery1.SQL.Add('from semma' );
adoquery1.SQL.Add('Where carnet =' + edit1.Text );
adoquery1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into duplica(carnet,nombres,apellido1,apellido2)');
adoquery1.SQL.Add('select carnet, nombres,apellido1,apellido2 from semma');
adoquery1.SQL.Add('Where carnet =' + edit1.Text );
adoquery1.ExecSQL;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit1.SetFocus;
end;

end.

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('Select carnet,nombres,apellido1,apellido2');
adoquery1.SQL.Add('from semma' );
adoquery1.SQL.Add('Where carnet =  :Carnet' );
adoquery1.Parameters[0].value:= Edit1.Text;
adoquery1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert into duplica(carnet,nombres,apellido1,apellido2)');
adoquery2.SQL.Add('values '(:carnet, :nombres, :apellido1, :apellido2));
adoquery2.Parameters[0].value:= adoquery1.Filebyname('carnet').Value;
adoquery2.Parameters[1].value:= adoquery1.Filebyname('nombres').Value;
adoquery2.Parameters[2].value:= adoquery1.Filebyname('apellido1').Value;
adoquery2.Parameters[3].value:= adoquery1.Filebyname('apellido2').Value;
adoquery2.ExecSQL;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit1.SetFocus;
end;

end.

Saludos

[[Caral]]

Hola
Antes de que me regañen:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('Select carnet,nombres,apellido1,apellido2');
adoquery1.SQL.Add('from semma' );
adoquery1.SQL.Add('Where carnet =  :Carnet' );
adoquery1.Parameters[0].value:= Edit1.Text;
adoquery1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert into duplica(carnet,nombres,apellido1,apellido2)');
adoquery2.SQL.Add('values (:carnet, :nombres, :apellido1, :apellido2)');
adoquery2.Parameters[0].value:= adoquery1.Filebyname('carnet').Value;
adoquery2.Parameters[1].value:= adoquery1.Filebyname('nombres').Value;
adoquery2.Parameters[2].value:= adoquery1.Filebyname('apellido1').Value;
adoquery2.Parameters[3].value:= adoquery1.Filebyname('apellido2').Value;
adoquery2.ExecSQL;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit1.SetFocus;
end;

end.

Saludos

[aanil]

Gracias

La primera parte funciona correctamente, solo tengo adoquery1, y donde envio los datos consultados es un adotable1.

Mi codigo mas o menos funiona, pero lo que pasa es, que cuando quiero ver la tabla segundaria la que es adotable1 mediante el Showmodal Form2, hasta que no salgo de la aplicacion y vuelvo y entro no se visualizan los registros que he consultado en el DBGRID del form2

Quiero ademas que cuiando limpie el edit1.text vuelvan y se listen los registros de dbgrid de donde hago la consulta.

Quiero que tome en cuenta que soy novato.

Gracias

[[egostar]]

Empezado por aanil

Quiero que tome en cuenta que soy novato.

Hola aanil, que quieres decir con que eres novato, que te expliquen con palitos y bolitas, que te hagan el código completo,

Salud OS

[[Caral]]

Hola

Empezado por egostar

Hola aanil, que quieres decir con que eres novato, que te expliquen con palitos y bolitas, que te hagan el código completo,

Salud OS

Amigo, para explicar con palitos y bolitas por lo menos tendria nuestro amigo aanil que dar la explicacion completa, asi es muy dificil.
Vamos a ver si se anima a explicar las cosas, por que yo no soy beisbolista.
Otra cosa aanil, El novato del club soy yo, no me quites el titulo, me ha costado ganarmelo.
Saludos

[aanil]

OK
egostar, ya no vuelvo