Insertar Registro Especifico de una Tabla a otra

[feliz-58]

Saludos,

Tengo dos tablas que son el resultado (entradas) (Cuentas);

Uso el Siguiente Codig SQL para copiar los Registros:

Código SQL [-]
begin
with DM.AQCopy do
begin
SQL.Clear;
SQL.Add('Insert Into Cuentas (Codigo, Nombre, Contacto, Fecha, Monto) select Codigo, Suplidor_Nombre, Suplidor_Contacto, Fecha, Monto_Pagar from Entradademercancia');
ExecSQL;
end;
end;

Pero esto me Copia La tabla completa, como Copio solamente un registro en espesifico, por ejemplo el que estoy trabajando en ese momento en el modo de ejecucion de delphi.

-Access.
-ADoQuery.

Saludos!

[feliz-58]

Código SQL [-]
SQL.Add('WHERE Codigo = :Codigo');
Parameters.ParamByName('Codigo').Value := Ecodigo.text;

Algo Parecido?

[[movorack]]

justamente

[feliz-58]

Empezado por movorack

justamente

Ya lo Solucione .-.

Gracias.

[feliz-58]

tengo Otra duda, que esta si no se XD como hago para especificarle que tome datos de unos edit en espesifico por ejemplo:

Código SQL [-]
begin
with DM.AQaCxP do
begin
SQL.Clear;
SQL.Add('Insert Into CXP (Codigo, Nombre, Contacto, Fecha, Monto, Vencimiento) select Codigo, Suplidor_Nombre, Suplidor_Contacto, Fecha, Monto_Pagar, Vencimiento from Entradademercancia');
SQL.Add('WHERE Codigo = :Codigo');
Parameters.ParamByName('Codigo').Value := DBEdit1.text;
ExecSQL;

pero en la tabla cxp faltan dos campos que quiero rellenar yo mismo que son Balance y abono y estos datos los tengo en dos edits.

Como lo hago? es algo urgente .-.

Saludos!

[[movorack]]

Puede ser algo así

Código Delphi [-]
begin
with DM.AQaCxP do
begin
SQL.Clear;
SQL.Add(' Insert Into CXP (Codigo, Nombre, Contacto, Fecha, Monto, Vencimiento, Balance, Abono) ');
SQL.Add(' select Codigo, Suplidor_Nombre, Suplidor_Contacto, Fecha, Monto_Pagar, Vencimiento, :balance, :abono');
SQL.Add(' from Entradademercancia');
SQL.Add('WHERE Codigo = :Codigo');
Parameters.ParamByName('Codigo').Value := DBEdit1.text;
Parameters.ParamByName('balance').Value := EdtBalance.text;
Parameters.ParamByName('abono').Value := EdtAbono.text;
ExecSQL;

[feliz-58]

Perfecto!

Gracias