Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cuestión de Estilo (https://www.clubdelphi.com/foros/showthread.php?t=29050)

Jesús Pena 11-01-2006 11:34:14

Cuestión de Estilo
 
Resulta que tengo en mi base de datos una tabla en la que puede haber varios registros con un mismo código pero diferenciados por un dígito de orden, el caso es que quiero que me aporteis ideas de como puedo hacer lo siguiente (aportando código si es posible), me explico:

Lo que quiero hacer es lo siguiente : cuando el usuario digite un código en un edit validar la existencia de dicho código y si existen varios registros en la tabla asociada mostrar una ventana con la lista de los registros encontrados para que el usuario seleccione el que quiera (de los de la lista).

marcoszorrilla 11-01-2006 13:15:26

Creo que lo más facil sería montar una consulta y visualizar los registros resultantes en una rejilla que apareceria en la ventana emergente que citas.

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Campo1, campo2, campo3');
Query1.Sql.Add('From MiTabla');
Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text);
Query1.Open;


Un Saludo.

ContraVeneno 11-01-2006 18:51:15

Cita:

Empezado por marcoszorrilla
Creo que lo más facil sería montar una consulta y visualizar los registros resultantes en una rejilla que apareceria en la ventana emergente que citas.

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Campo1, campo2, campo3');
Query1.Sql.Add('From MiTabla');
Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text);
Query1.Open;

Un Saludo.

más:
Código Delphi [-]
 case query1.recordcount off
  0: 
   showmessage('no existe');
  1:
   Begin
    //lenar datos
   end;
  else
   begin
    //mostrar lista de encontrados
   end;
 end; //case


La franja horaria es GMT +2. Ahora son las 18:52:49.

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