Agregar registros a una tabla con datos

[vtdeleon]

Saludos

Código SQL [-]
INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3)
SELECT CAMPO1, CAMPO2, CAMPO3
FROM TABLA2
WHERE CAMPOX Between :Parametro1 and :Parametro2

Suerte

[alcides]

INSERT INTO Detalle (numero_transacion, fecha_transacion, debito, credito)
SELECT numero_cheques, fecha_cheques, debito, credito
FROM detalle_cheques
WHERE fecha_cheques Between :PFECHA_INICIAL and :PFECHA_FINAL

esto es lo que tengo y presenta el error 'commandtext does not return a result set'

[vtdeleon]

Saludos

Creo uqe estas usando Open en vez de ExecSql

[alcides]

gracias vtdeleon,
una duda

esto es lo que tengo.

Código Delphi [-]
qry_detalle.SQL.Clear;
try
  qry_detalle.SQL.Add('INSERT INTO DETALLE(numero_transacion, fecha_transacion, cuenta, descripcion, debito, credito)');
  qry_detalle.SQL.Add('SELECT numero_cheques, fecha_cheques, cuenta, descripcion, debito, credito');
  QRY_DETALLE.SQL.Add('FROM detalle_cheques');
  qry_detalle.SQL.Add('WHERE fecha_cheques Between :PFECHA_INICIAL and :PFECHA_FINAL');
  qry_detalle.ExecSQL;

y mi adoquery, como lo defino en el form.

gracias mil

Alcides
Rep.Dom.

[delphi.com.ar]

Te faltaría pasarle los valores a los parámetros

Código Delphi [-]
  ...
  qry_detalle.SQL.Add('WHERE fecha_cheques Between :PFECHA_INICIAL and :PFECHA_FINAL');

  qry_detalle.Params[0].AsDateTime := dtpFechaDesde.Date;
  qry_detalle.Params[1].AsDateTime := dtpFechaHasta.Date;

  qry_detalle.ExecSQL;

Saludos!

[alcides]

Gracias Delphi.com.ar,

cambie y realice esta rutinita para agregar registro de una tabla a otra y resulta que solo me agrega un registro y finaliza.

Código PHP:

       Tbl_Detalle.Insert;
       qry_detalle_cheques.Close;
       qry_detalle_cheques.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);
       qry_detalle_cheques.Parameters.ParamByName('pfecha_final').Value   := strtodate(fecha_final.Text);
       qry_detalle_cheques.open;
    if qry_detalle_cheques.RecordCount > 0 then begin
       Tbl_detalle.FieldByName('numero_transacion').Value := qry_detalle_chequesnumero_cheques.Value;
       Tbl_detalle.FieldByName('fecha_transacion').Value  := qry_detalle_chequesfecha_cheques.Value;
       Tbl_detalle.FieldByName('cuenta').Value            := qry_detalle_chequescuenta_cheques.Value;
       Tbl_detalle.FieldByName('descripcion').Value       := qry_detalle_chequesdescripcion.Value;
       Tbl_detalle.FieldByName('debito').Value            := qry_detalle_chequesdebito.Value;
       Tbl_detalle.FieldByName('credito').Value           := qry_detalle_chequescredito.Value;
       Tbl_detalle.FieldByName('ccdebito').Value          := 0;
       Tbl_detalle.FieldByName('cccredito').Value         := 0;
       Tbl_detalle.FieldByName('dia_transacion').Value    := 0;
       Tbl_detalle.FieldByName('mes_transacion').Value    := 0;
       Tbl_detalle.FieldByName('ano_transacion').Value    := 0;
       Tbl_detalle.FieldByName('monto').Value             := 0;
       Tbl_detalle.FieldByName('posteada').Value          := ' ';
       Tbl_detalle.FieldByName('usuario').Value           := ' ';
       Tbl_detalle.Post;
end; 


porque solo agrega uno? y luego finaliza

gracias mil,

Alcides
Rep. Dom.

[vtdeleon]

Saludos

Chequiaste si el rango de fecha solo arroja un solo registro?