Consulta de una tabla1 para agregar en otra tabla2

[[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

[[Caral]]

Hola
Que base de datos usas?
Saludos

[aanil]

OK
egostar, ya no vuelvo

[aanil]

Hola Caral

La base de datos que uso es de ACCESS OFFICE 2003

[[Caral]]

Hola
Abajo hay dos botones, presiona, ir a avanzado, veras un boton que dice gestionar archivos adjuntos, presionalo.
Coloca tu programa con la base de datos en un zip y subelo, lo revisaremos a ver que se puede hacer.
Saludos

[aanil]

Caral

He tratado de enviar la aplicacion comprimido tiene 67KB, no sube dice que es invalido, si tienes un correo, el mio es [email protected]