Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Código en delphi (https://www.clubdelphi.com/foros/showthread.php?t=61892)

Troxiv 26-11-2008 01:52:00

Código en delphi
 
Hola, soy nueva en el foro y el delphi tambien, recien estoy aprendiendo a usarlo, necesito que me ayuden con esto:
tengo que hacer un trabajo de auditoria
Tengo un tquery, datasource, y database
tengo 3 tablas:
personas: dni, nombre, apellido, mail
reporte: id_accion, fecha, tabla modificada, fecha, campo modifcado, dato original, dato modificado.
Acciones: id_accion, categoria
1 alta
2 baja
3 modificación

lo que quiero hace que cada vez que se ejecute el procedimiento de alta, se inserte el numero 1(alta) en el campo id_accion de la tabla reporte , entonces quiero cruzar el id_accion de la tabla acciones con id_accion de la tabla reporte, entonces usaria... algo asi . . .?????
Select r.*, c.categoria FROM tabla_reporte r
INNER JOIN acciones c ON (reporte.id_accion = c.id_accion)

Ahora este código en delphi como seria?
begin
fmodulo.consulta.Close;
fmodulo.consulta.SQL.Clear;
fmodulo.consulta.SQL.Add ......


egostar 26-11-2008 02:42:45

Hola

Código Delphi [-]
begin
  fmodulo.consulta.Close;
  fmodulo.consulta.SQL.Text := 'Select r.*, c.categoria FROM tabla_reporte r '+
                               'INNER JOIN acciones c ON (reporte.id_accion = c.id_accion)';
  fmodulo.consulta.Open;
end;

Salud OS

Troxiv 28-11-2008 00:40:20

Gracias!!!
 
Muchas gracias:D, voy a probar a ver si me funciona bien, recien estoy empezando y me cuesta ya que no estoty todo el dia en la pc como para avanzar mas rapido, uno hace lo que puede :p


La franja horaria es GMT +2. Ahora son las 06:37:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi