Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Busqueda por indice (https://www.clubdelphi.com/foros/showthread.php?t=14891)

noe 04-10-2004 17:55:41

Busqueda por indice
 
Tengo una tabla llamada alumnos en donde he creado un indice con el IBexpert llamado xMatricula.
Mi pregunta es como puedo buscar por indices como lo hacia en paradox o de que otra forma puedo hacerlo. Es una base de datos con extension gdb, y utilizo el firebird 1.5. y uso los componentes IBDatabase,IBTransaction y IBTable.
Yo hacia en paradox lo siguiente:

procedure TFrm_Alumnos.Matricula1Click(Sender: TObject);
var
matricula:string;
Encontrado:Boolean;
begin
try
matricula:=inputbox('Busqueda por matrícula de alumno','Introduzca la matrícula','');
DM_SICEC.Tbl_Alumnos.IndexName:='xMatricula';
Encontrado:=DM_SICEC.Tbl_Alumnos.Findkey([matricula]);
if not Encontrado then
ShowMessage('El numero de matrícula introducido no se encuentra registrado');
except
on EConvertError do
ShowMessage('Introduzca los caracteres en forma correcta');
end;
end;


gracias :)

El_Perrito 04-10-2004 18:06:05

Hola:
 
si utilizas el Componente Table puedes usar el proc. "Locate"
quedaria de la siguiente manera
Código:

  Encontrado:=Table1.Locate('Clave',Edit1.Text,[]);
prueba con esto funciona muy bien

noe 04-10-2004 18:41:44

Gracias
 
Me podrias decir por favor para que sirven los conchetes [] en el codigo que me pusiste.
gracias
Ah y si sirvio lo que me mandaste ¡Muchas gracias!
:)

marcoszorrilla 04-10-2004 18:45:22

Son obligatorios y puede ir vacios como en el ejemplo que te pone "El_Perrito"

o:
loCaseInsensitive, loPartialKey

Puedes mirarte también la ayuda sobre Locate, donde te viene documentado.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 04:52:32.

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