Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-09-2003
kwan kwan is offline
Miembro
 
Registrado: jul 2003
Ubicación: Ceuta(España)
Posts: 68
Poder: 21
kwan Va por buen camino
Dos datos iguales en Busqueda.

Hola hace poco postee una pregunta sobre Busqueda en una base de datos y la verdad me soluciono bastante las respuesta.
ahora me surge una pregunta relacionada con una busqueda, resulta que tengo un form con varios dbEdit, y un Edit donde pongo el numero de la matricula de un vehiculo y me sale, pero es una base de datos donde se repite esa matricula porque ese vehiculo entro mas veces pero me sale solo la primera vez k entro, tiene mas entradas con el mismo numero de matricula pero no me sale posteo el codigo relacionado en la busqueda.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
cadena: Integer;

Begin
If Key = #13 Then
Begin
Table1.First;

try
cadena := StrToInt(Edit1.Text);
except
ShowMessage(' Debe introducir solo números.');
Exit;
end;
Table1.Filter:'N_MATRICULA = '+QuotedStr(Edit1.Text);
Table1.Filtered:=True;


If Not Table1.Locate('N_MATRICULA',Edit1.Text,[])Then
ShowMessage(' Ese Nº Matricula no existe.');
end
else
Table1.Filtered:=false;
end;




Saludos.

Última edición por kwan fecha: 13-09-2003 a las 15:13:11.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:55:11.


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
Copyright 1996-2007 Club Delphi