búsquedas en dbgrid

[[Fenareth]]

Hola,

Yo hago algo exactamente igual a lo que pide edfz de esta manera:

En el evento OnChange del TEdit tengo el siguiente código:

Código Delphi [-]
 if Edit.Text <> '' then //Edit de Búsqueda
       begin
                Tabla.Locate('Campo',Edit.Text,loPartialKey,loCaseInsensitive]);
                DBGrid.Visible := true;
       end
       else
                DBGrid.Visible := false;

y funciona de perlas...

[jirbert]

hola Fenareth.. bueno con tu codigo me pide que identifique loPartialKey,loCaseInsensitive..
puede que sea nada pero es que no tengo mucha experiencia en delphi .

gracias...

[jandok238]

Empezado por Fenareth

Código Delphi [-]
 if Edit.Text <> '' then //Edit de Búsqueda
        begin
                 Tabla.Locate('Campo',Edit.Text,loPartialKey,loCaseInsensitive]);
                 DBGrid.Visible := true;
        end
        else
                 DBGrid.Visible := false;

y funciona de perlas...

yo tambien lo hago asi ...

Empezado por jirbert

hola Fenareth.. bueno con tu codigo me pide que identifique loPartialKey,loCaseInsensitive..
puede que sea nada pero es que no tengo mucha experiencia en delphi .

gracias...

necesitas agregar en la seccion USES la unidad 'DB' ....

salu2!!!!!!!

[jirbert]

le agregue en uses 'DB' y ahora el error es:

[Error] Unit10.pas(1223):Incompatible types: 'TLocateOptions' and 'TLocateOptions'

[[Delphius]]

Hola,
¿Por casualidad no será de que estás olvidando del corchete de apertura?:

Código Delphi [-]
Locate('que','donde',[]);

Saludos,

[jirbert]

cierto estaba copìando mal

Código Delphi [-]
 if Edit.Text <> '' then //Edit de Búsqueda   
 begin        
 Tabla.Locate('Campo',Edit.Text,loPartialKey,loCaseInsensitive);       
 DBGrid.Visible := true;      
end        
else                 
DBGrid.Visible := false;

y deberia ser

Código Delphi [-]
 if Edit.Text <> '' then //Edit de Búsqueda        
begin                 
Tabla.Locate('Campo',Edit.Text,[loPartialKey,loCaseInsensitive]);  
DBGrid.Visible := true;        
end        
else                 
DBGrid.Visible := false;

Gracias!!!!

[jandok238]

Empezado por Delphius

Hola,
¿Por casualidad no será de que estás olvidando del corchete de apertura?:

Código Delphi [-]
Locate('que','donde',[]);

Saludos,

eso.. eso.. eso...

la 'culpa' la tiene Fenareth ella fue la que puso el codigo mal ...

salu2!!!!!!!

[jirbert]

donde puedo conseguir los comandos para darle funcion a diferentes teclas del teclado por ejemplo enter #13 lei por ahi que salian de los codigos ascII pero lo que consegui es la manera de llamarlo en la forma hex amenos que esa sea..

gracias...

[[Fenareth]]

Empezado por jandok238

eso.. eso.. eso...

la 'culpa' la tiene Fenareth ella fue la que puso el codigo mal ...

salu2!!!!!!!

Es cierto , pero mis intenciones han sido buenas , así lo ayudamos a que aprenda también a depurar errores ... jejeje, es broma, fue un errorcillo de dedo