Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Busqueda en Tablas (https://www.clubdelphi.com/foros/showthread.php?t=35734)

NeoX 19-09-2006 19:22:09

Busqueda en Tablas
 
Hola que tal, Mi situacion es la Siguiente:

Tengo una tabla Fija con mas de 2000 registros de la cual hay 3 campos:
Código:

Cintura        Peso        % Grasa
  55              56              4
  55              57              3
  55              58              2
  55              59              2
  57              56              4
  57              57              3

Entonces, el usuario debe de dar en Edits la Cintura y el Peso y automaticamente al darle a un Boton, muestre el valor de su porcentaje de Grasa.

Yo se hacer una busqueda pero solo con un elemento (El campo llave), lo que no se y no he podido es hacer las Busqueda con 2 elementos, ejemplo:

El usuario teclea en los Edits 57 y 56 de Cintura y Peso respectivamente entonces al dar click en un Boton nos tiene que mostrar un "4".

Espero haberme explicado bien y ojala que alguien me pueda ayudar.

marcoszorrilla 19-09-2006 19:31:56

En general la búsqueda en tablas puede hacerse por más de un campo, bien porque éstas están indexadas de esta manera, es decir por más de un campo a la vez (índice compuesto), o símplemente utilizando un Locate.

Un Saludo.

NeoX 19-09-2006 19:40:48

Gracias por la pronta respuesta... Nada mas un ultimo favor si es posible... Me podrias proporcionar la parte del codigo que haria eso para terminar de orientarme. Sobre todo con el uso del Locate.

marcoszorrilla 19-09-2006 19:48:36

De la propia ayuda de Delphi:

Código Delphi [-]
with CustTable do
  Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Un Saludo.

Caral 19-09-2006 22:58:28

Hola Neox
Con una sentencia sql en el boton en el evento onclick:
Código SQL [-]
QTemp.SQL.Text := 'Select Cintura, Peso From TUTABLA where Cintura = '+
                         Edit1.Text+' And Peso = '+Edit2.Text+';
con el resultado en un dbedit obtendras el numero que buscas.
Saludos

tarditir 17-08-2007 18:25:33

Pregunta existencial y tonta!
 
tengo un problema con un ADOtable
Las conecciones estan bien veo los datos en en DBgrid
pero tengo un problema al kerer habrir la tabla nose como invocarla
y cuando kiero hacer algun cambio en la base me da error de q no encuentra el campo ej"nombre" q si tengo en la tabla--

corregime x favor nose si se hace asi

opendatabase("c:\base.mdb")

helpP!


La franja horaria es GMT +2. Ahora son las 19:00:36.

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