como hacer una busqueda de un campo en una BD

[vanesa007]

HOLA AMIGOS, GRACIAS POR SUS PRONTAS RESPUESTAS....

para MartinS:
Estoy utilizando acces 2003

para Northern:
Voy a ller sobre TDataModule, por que de eso no tengo ni idea, vere que peudo hacer, pero si me dices que es mejor hacerlo asi, lo estudiare como se hace, mi programita seria sencillo, algo chico, no comercial, solo para alivianarme trabajo, claro que mas adelante agregaria algunos datos, corregiria errores de escritura en apellidos nombres o cosas asi.. pero gracias igual

saludos

[MartinS]

Vanesa:
Como bien dijo Northern existen muchas maneras de hacerlo. Aqui te voy a poner solo una para que vallas viendo mas o menos como seria el procedimiento:

Código Delphi [-]
procedure TPBuscarGral.Edit1Change(Sender: TObject);
begin
   If Edit1.Text <> '' then
   Begin
     With Dm.Internos do
     Begin
      Case ComboBox1.ItemIndex of
       0: Locate('Apellidos',Edit1.Text,[loCaseInsensitive, loPartialKey]);
       1: Locate('Nombres',Edit1.Text,[loCaseInsensitive, loPartialKey]);
       2: Locate('Domicilio',Edit1.Text,[loCaseInsensitive, loPartialKey]);
      end; // Case
     end; // With
   end;
end;

Si bien no sabemos el nivel que tienes en el desarrollo de programas usando delphi voy a tratar de explicarte algo de que es lo que hace el procedimiento de arriba:
El procedimiento se ejecuta cada vez que cambia el contenido del Edit (evento onChange) y verifica que mientras exista algun caracter hace la localizacion del registro de acuerdo al campo que estoy buscando (por medio de un combobox que tengo cargado apellidos, nombres y domicilio (el numero indica el indice del combo)) y las opciones loCaseInsensitive (no deferencia mayusculas y minusculas y el lopartialkey para que busque un parcial (creo que es esa la definicion).

Northern expuso lo del TDatamodule. Siempre se utiliza (Al menos yo) para colocar todos los componentes de acceso a datos y funciona como una unidad adicional del proyecto. Se crea a partir de menu - nuevo - DataModule y lo guardas con el nombre que desees y luego al form1, por ejemplo, le decis que use la unidad recien creada, en el ejemplo se llama DM. (por eso que para la busqueda uso DM.Internos) donde dm es el datamodule e internos seria tu AdoTable.-
El uso del Datamodule es importante porque si quieres hace doble clik en el apellido y lo levante otro formulario ese otro formulario tambien deberas indicarle que use el mismo Datamodule creado y al estar seleccionado el registro correspondiente te lo llevara sin mas preambulo.-

Bueno, Mas o menos esto podrias hacer, pero todo se hace suponiendo que el uso de mas de un formulario lo sabes hacer y tambien recomiendo que leas la cara oculta de delphi 4 que expuso aqui el compañero que de seguro te va a ayudar y mucho.

Saludos y aquí estamos para lo que necesites

Sugerencia: Mira el tutorial de Caral para aprender sobre bases de datos mas robustas en este caso Firebird (ya que quieres aprender, empeza por lo bueno )

PD: y a no desanimarse y preguntar sin miedo porque todos hemos pasado por esto en algún momento y aun seguimos preguntando para continuar aprendiendo.-

[ecfisa]

Hola vanesa007.

Según entiendo queres hacer una búsqueda incremental, te pongo otra alternativa que hace lo que solicitas usando un TADOQuery :

Código Delphi [-]
procedure TForm1.EditChange(Sender: TObject);
begin
 with ADOQuery do
  begin
    Close;
    SQL.Text:='SELECT * FROM TU_TABLA WHERE APELLIDO LIKE :VALUE';
    Parameters.ParamByName('VALUE').Value:= Edit1.Text + '%';
    Open;
  end;
end;

En el caso de presentarse igualdades, supongo que lo indicado será dejar librada la elección al usuario aprovechando el evento OnClick u OnDblClick del TDBGrid.

Lo que también te comento que este tipo de búsquedas no son muy eficientes, sobre todo cuando se realizan en red ya que provocan mucho tráfico.

Saludos.

[vanesa007]

gracias por responder, estoy estudiando los códigos que me pasaron, me andan bien

gracias