Filtro

[eaguila7]

Hola!

quiero realizar un filtro de la tabla "busemple" cuando cambie el valor de un Edit1; el cual me regrese el valor de los campos: clave_empleado y nombre donde la clave_empleado contenga el valor del Edit1 y por ultimo muestre el resultado en un StringGrid.

Estoy realizando el siguiente codigo:

 
mod->busemple->Open();
 mod->busemple->Active = True;
 StringGrid1->Cells[0][0] = "CLAVE";
 StringGrid1->Cells[1][0] = "NOMBRE";
 mod->busemple->First();
 while(!(mod->busemple->Eof))
 {
  if(mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString == "%" + Edit1->Text + "%")
  {
   StringGrid1->Cells[0][x] = mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString;
   StringGrid1->Cells[1][x] = mod->busemple->FieldByName("NOMBRE")->AsString;
   x++;
  }
  mod->busemple->Next();
 }
 mod->busemple->Active = False;
 mod->busemple->Close();

pero no realiza lo que quiero

Espero y me puedan ayudar

Gracias

[[Caral]]

Hola
Yo no se c++, bueno tampoco delphi, pero a ver que hago aqui.

 mod->busemple->Active = True;
 StringGrid1->Cells[0][0] = "CLAVE";
 StringGrid1->Cells[1][0] = "NOMBRE";
 {
  if(mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString == "%" + Edit1->Text + "%")
  {
   StringGrid1->Cells[0][x] = mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString;
   StringGrid1->Cells[1][x] = mod->busemple->FieldByName("NOMBRE")->AsString;
   x++;
  }
  
 }

Los parentesis no se como iran
Saludos

[[coso]]

Hola. Los caracteres '%' sirven para hacer un filtro, pero desde SQL. En el codigo que estas poniendo te esta comparando exactamente la cadena '%VALOR%'. Tendrias, o bien hacer una busqueda con el 'where' en una sentencia select

Código Delphi [-]
query1->Active = False;
query1->SQL->Text = "select * from tabla where campo like " + QuotedStr("%" + Edit1->Text + "%");
query1->Active = True;

o bien, segun tu codigo actual, en vez de comparar, usar el Pos(...), que te busca una cadena dentro de otra. Saludos.

[[Lepe]]

Si quieres seguir haciéndolo como hasta ahora, solo cambia esto:

Código Delphi [-]
 if(mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString == "%" + Edit1->Text + "%")
  {

por... más o menos esto:

Código Delphi [-]
if pos(Edit1->Text->lowercase, mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString->lowercase) <> 0 then

Básicamente pasar a minúsuculas y usar la función Pos.

Saludos