Dos datos iguales en Busqueda.

[kwan]

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.

[marcoszorrilla]

Para lo que quieres hacer, tendrás que utilizar o un Filtro, mírate las propiedades Filter y Filtered del Ttable.

MiTabla.Filter:'Matricula = '+QuotedStr(Edit1.Text);
MiTabla.Filtered:=True;

Y bajarte una rejilla y vincularla a la tabla, o también obtendrías resultados similares con una consulta SQL.

Un Saludo.

[kwan]

Hola Marcos gracias de nuevo, mira en lo k tu me dices, no se puede hacer sin Rejilla(DBGrid)????? ya que lo k tengo es un form con DBEdit y cada vez k la pulsara intro me llevara a todas las veces k entro ese vehiculo con las reparaciones k se le hiciera especie de inventario o seguimiento del vehiculo tambien en el codigo k me pones donde iria en realidad?? y si valdria para los DBEdit???.

Saludos.

[kwan]

Bueno lo acabo de probar y si k funciona con un DBNavigator gracias Marcos un saludo.

Bueno lo he puesto en la primera pregunta con la respuesta de Marcos x si alguien le interesa el codigo.

chao.

[kwan]

Hola solo decir k modifique el codigo que puse en la primera pregunta por tener fallos, ya que lo k me dijo Marcos lo puse x error en otro sitio y ademas le he añadido el "Table1.Filterd:=False;" para retomar el control del form una vez encontrado la busqueda.

saludos.