Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   relacionar dos tablas (https://www.clubdelphi.com/foros/showthread.php?t=5391)

digital 20-11-2003 02:31:06

relacionar dos tablas
 
hola amigos
tengo una duda. de como poder relacionar dos tablas. en Interbase
un ejemplo practico.
tengo una tabla llamada articulos. y otra de movimientos.
quiero utilizar un dbgrid. en la cual me desplieque la informacion . y poder agregar y borrar.

TABAL Articulo
ID, Desc del Articulo.
00001 MESA.

TABLA DE MOVIMINIENTO
Fecha de Mov ID del Articulo Cantidad de Mov.
01/01/2003 00001 1


Fecha de Mov, ID del Articulo , Des del Articulo, Cantidad de Mov.
01/01/2003 00001 MESAS 1



__cadetill 20-11-2003 09:54:53

Bien, lo que yo suelo hacer, es un campo calculado en el Dataset que me controla lo movimientos y, en el OnClacFields poner una sentencia SQL que me retorne la descripción del artículo en cuestión

Código:

procedure...
var
  Q: TIBQuery;
begin
  Q := TIBQuery.Create(Self);
  Q.Database := .....
  Q.SQL.Add('select descripcion from articulos');
  Q.SQL.Add('where codart = ' + QuotedStr(MovimientosCodArt.AsString));
  try
    Q.Open;
    if Q.Fields[0].IsNull then
      // no hay registros -> no existe el artículo o descripción en blanco
    else
      MovimientosDesart.AsString := Q.Fields[0].AsString;
  except
    // control de excepción
  end;
end;

Bueno, esto más o menos y de cabeza, pero espero que la idea te sirva


La franja horaria es GMT +2. Ahora son las 10:45:11.

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