Agregar registros a una tabla con datos

alcides · #1 06-01-2006

Hola a todos,

usando delphi 7 y mis tablas en access.
tengo lo siguiente:

tabla detalle
cns__detalle
numero_transacion
fecha_transacion
cuenta
descripcion
debito
credito

tabla detalle_cheques
cns_cheques
numero_cheques
fecha_cheques
cuenta_cheques
descripcion_cheques
debito_cheques
credito_cheques

lo que quiero es lo siguiente a mi tabla detalle agregarle los registros de
mi tabla detalle_cheques en un parametro de fecha.

mi tabla detalle tiene registros.

si me pueden dar una manito por fa.

gracias mil

Alcides
Rep.Dom.

delphi.com.ar · #2 06-01-2006

Cita:

Empezado por alcides

lo que quiero es lo siguiente a mi tabla detalle agregarle los registros de mi tabla detalle_cheques en un parametro de fecha.

No entiendo esto de "en un parametro de fecha"... Quieres agregar en la tabla detalle los registros de detalle_cheques que tengan cierto valor en fecha??

Código SQL [-]INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3)
SELECT CAMPO1, CAMPO2, CAMPO3
FROM TABLA2
WHERE CAMPOX = :Parametro

alcides · #3 06-01-2006

gracias delphi.com.ar,

parametro de fecha: los registros que esten contenido por ejemplo entre las fechas 01/02/2005 hasta 28/02/2005.

gracias mil

Alcides
Rep.Dom.

vtdeleon · #4 07-01-2006

Saludos

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

Suerte

alcides · #5 07-01-2006

Código:

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 · #6 07-01-2006

Saludos

Creo uqe estas usando Open en vez de ExecSql

alcides · #7 10-01-2006

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 · #8 10-01-2006

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 · #9 13-01-2006

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 · #10 13-01-2006

Saludos

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

alcides · #11 13-01-2006

gracias vtdeleon,

en el rango de fecha hay 18 registros.

Gracias mil,

Alcides
Rep.Dom.

vtdeleon · #12 13-01-2006

Saludos

Bueeno, no se me ocurre mas nada, solo veo algo extra~o y que deberia darte error. Por que usas Open y no ExecSQL. Es una transaccion de insercion y no devolvera nada. No te da error?

cual es el rango de fecha?

alcides · #13 13-01-2006

gracias vtdeleon,

el rango de fecha es desde 01/06/2005 hasta 30/06/2005
lee el primer registro y sale

no me da ningun error, sencillamente termina.

Gracias mil,

Alcides
Rep.Dom.

alcides · #14 13-01-2006

el registro que me transfiere es el ultimo del rango de fecha,

Gracias mil,

Alcides
Rep. Dom.

vtdeleon · #15 13-01-2006

Has una prueba

Conecta un Dbgrid a ese dataset, quita la linea de Insert, dejando el Select, eeh bueno, arreglalo de manera que puedas mostrarlo en un DBgrid y mira a ver que registros te salen

Saludos

alcides · #16 13-01-2006

Gracias vtdeleon,

ok, voy hacer la prueba.

Gracias mil,

Alcides
Rep. Dom.

alcides · #17 13-01-2006

gracias mil,
esta es la rutina que finalmente me funciono perfectamente,

Código PHP:


			
          Tbl_Encabezado.Insert;

          qry_Encabezado_cheques.Close;

          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);

          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_final').Value   := strtodate(fecha_final.Text);

          qry_Encabezado_cheques.Open;

    While not qry_Encabezado_cheques.eof do begin

          Tbl_Encabezado.FieldByName('numero_transacion').Value := qry_encabezado_chequesnumero_cheques.Value;

          Tbl_Encabezado.FieldByName('fecha_transacion').Value  := qry_encabezado_chequesfecha_cheques.Value;

          Tbl_Encabezado.FieldByName('tipo_documento').Value    := 1;

          Tbl_Encabezado.FieldByName('concepto').Value          := qry_encabezado_chequesconcepto_cheques1.Value;

          Tbl_Encabezado.FieldByName('valor_transacion').Value  := qry_encabezado_chequesvalor_cheques.Value;

          Tbl_Encabezado.FieldByName('codigo_banco').Value      := 0;

          Tbl_Encabezado.FieldByName('debito').Value            := qry_encabezado_chequesdebito.Value;

          Tbl_Encabezado.FieldByName('credito').Value           := qry_encabezado_chequescredito.Value;

          Tbl_Encabezado.FieldByName('beneficiario').Value      := qry_encabezado_chequesbeneficiario_cheques.Value;

          Tbl_Encabezado.FieldByName('nulo').Value              := qry_encabezado_chequesnulo_cheques.Value;

          Tbl_Encabezado.FieldByName('posteada').Value          := ' ';

          Tbl_Encabezado.Post;

          Tbl_Encabezado.Close;

          Tbl_Encabezado.Open;

          Tbl_Encabezado.Insert;

          qry_Encabezado_cheques.next

end

Gracias mil,

Alcides
Rep.Dom.

vtdeleon · #18 13-01-2006

Saludos

Por que Etiqueta [php]???

brandolin · #19 18-01-2006

Pregunto? Se podra ejecutar la misma sentencia que el Insert pero para la sentencia UPDATE ????

Gracias

vtdeleon · #20 18-01-2006

Saludos

Creo que no es posible, las sintaxis son diferentes.

Código SQL [-]/*Update*/
update tabla1 set 
campo1=valor1,
campo2=valor2,
campo3=select count(*) from tabla2,
campo4=valor4
where campo5='tata'
/*Insert*/
Insert into tabla1 (campo1, campo2)
values ('tata',213)
/* o tambien insercion en masa */
Insert into tabla1 (campo1, campo2)
Select campo1, campo2 from tabla2