![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
||||
|
||||
![]() 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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|