Busquedas utilizando ADO

[tenporal]

Saludos a tod@s, mi pregunta es la siguiente:

¿Habra otra opcion diferente a LOCATE para busquedas utilizando un ADOTABLE?


Código Delphi [-]
if Adotable1.Locate('cvemateria',mcvemateria,[]) = false then


begin

ShowMessage('La clave de la materia no existe')

end else


begin

Adotable1.edit;

end;










He estado buscando ejemplos pero no los he encontrado, se agradeceria la ayuda a esta pregunta.

[tenporal]

Saludos a tod@s, mi pregunta es la siguiente:

¿Habra otra opcion diferente a LOCATE para busquedas utilizando un ADOTABLE?

Código Delphi [-]
if Adotable1.Locate('cvemateria',mcvemateria,[]) = false then
begin
 
ShowMessage('La clave de la materia no existe') 
end else
begin

Adotable1.edit; 
end;

He estado buscando ejemplos pero no los he encontrado, se agradeceria la ayuda a esta pregunta.

[[Caral]]

Hola
Yo lo hago por filtro asi:

Código Delphi [-]
procedure TFBuscaArticulo.Edit1Change(Sender: TObject);
var   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Adotable1.Filtered := False;
      Filtro := 'cvemateria Like '''+Edit1.Text + '*'''
      Adotable1.Filter := Filtro;
      Adotable1.Filtered := True
   end
   else
  ShowMessage('La clave de la materia no existe')  
  Adotable1.Filtered := False;
end;

O tambien por sql, hay muchas formas de hacerlo.
Saludos

[saldanaluis]

Caral,
Disculpa pero no entendí tu código... ¿Como es que con el Filter se puede saber si se tiene al menos un registro ó no se tiene ningun registro de respuesta, como para poner el mensaje de que no existe la clave de la materia?
En un .locate, al menos la respuesta es un true ó false, y con eso sabes si el locate fue exitoso o no, pero no veo como hacerlo con el filter.
Gracias por tu explicación.

[vtdeleon]

Saludos

Cual es el inconveniente de usar Locate? Existen otras maneras de busqueda FindKey u otras con sentencias Sql.

[[Caral]]

Hola saldanaluis
Tienes razon en cuestionarme, eso pasa por tratar de parecer un programador.
Con un filter, una sentencia sql, un locate, etc y una simple sentencia if o case, se puede hacer casi cualquier cosa, bueno, si eres programador, algo que no soy.
Por eso, tienes razon en cuestionar.
Saludos

[[egostar]]

Empezado por saldanaluis

Caral,
Disculpa pero no entendí tu código... ¿Como es que con el Filter se puede saber si se tiene al menos un registro ó no se tiene ningun registro de respuesta, como para poner el mensaje de que no existe la clave de la materia?
En un .locate, al menos la respuesta es un true ó false, y con eso sabes si el locate fue exitoso o no, pero no veo como hacerlo con el filter.
Gracias por tu explicación.

Solo para responder a tu cuestionamiento, usando filter como te lo decia nuestro amigo Carlos, puedes validar de esta forma:

Código Delphi [-]
ADOTable1.Filter = 'campo = algo';
if ADOTable1.RecordCout > 0 then begin
  //Hay al menos un registro
end
else begin
         //NO hay registros con ese filtro
end;

Con eso puedes saber si fué exitoso o no.

Salud OS.

[tenporal]

Gracias por responder a este hilo, mas que nada el codigo que coloque al inicio del hilo, era para conocer si habia mas formas de validar cuando se esta insertando en una tabla que tiene un indice primario y que muestra la informacion en un campo dbedit, ya que si se trata de agregar una clave que ya existe en la tabla, manda un mensaje de error.

Caral, a lo mejor no me explique bien cuando puse codigo, se supone que tienes un boton para agregar un nuevo registro, pero antes de darle el

Código Delphi [-]
 adotable1.insert

Ya que inserta un registro en blanco y luego manda el error de excepcion, por eso debo verificar antes en la tabla si no existe una clave igual que la que se quiere introducir en ese momento, lo que se dice validar la insercion.

En alguna parte vi que se podia utilizar la funcion SEEK, pero no se como se utiliza en delphi con los ADOTABLE.

De antemano gracias por su ayuda.

[kaeltas]

Empezado por Caral

Hola
Yo lo hago por filtro asi:
Código Delphi [-]procedure TFBuscaArticulo.Edit1Change(Sender: TObject); var Filtro : String; begin If (Edit1.Text <> '') then begin Adotable1.Filtered := False; Filtro := 'cvemateria Like '''+Edit1.Text + '*''' Adotable1.Filter := Filtro; Adotable1.Filtered := True end else ShowMessage('La clave de la materia no existe') Adotable1.Filtered := False; end;

O tambien por sql, hay muchas formas de hacerlo.
Saludos

Mil Mil Mil Mil Gracias este pedazo de codigo me ayudo muchisisimo, gracias gracias gracias gracias, enserio gracias por esta pagina y gracias a esta comunidad, gracias a todos los que aportan su granito de arena enserio mil gracias.

aqui les pongo un cacho de mi codigo que hice usando esto:

procedure TForm1.Label18Click(Sender: TObject);
var   Filtro : String;
begin
Filtro := 'Descripcion=''Short'' and Estilo Like '''+'22mn'+ '*''';
AdoTable1.Filter := Filtro;
Adotable1.Filtered := True;
end;

Como pueden ver, pueden hacer lo que quieran con las sentencias, en mi caso es una BD en mysql y esto me deja filtrar las tablas a placer :P

Gracias!