FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 Última edición por noe fecha: 04-10-2004 a las 17:58:05. |
|
|
|