Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-05-2008
martinc5 martinc5 is offline
Miembro
 
Registrado: abr 2006
Posts: 17
Poder: 0
martinc5 Va por buen camino
Problemas con Filter y ADOQuery

Hola gente... saben q tengo problemas con el filter cuando utilizo el componente ADO cuando usaba el BDE no lo tenia tal vez me falte habilitar alguna opción en el componente...
Estoy trabajando con ADOQuery y SQLServer
Les muestro el código, la consulta está bien xq la muestro en un dbgrid.

Código Delphi [-]
 with Qclientes do
    begin
      if Ebusca.Text<> '' then
      begin Filtered:=false;
           if buscarpor=1 then  Filter:='apenomc ='+Quotedstr(Ebusca.Text+'*');
           if buscarpor=2 then  Filter:='dom ='+Quotedstr(Ebusca.Text+'*');
           if buscarpor=3 then  Filter:='idempc ='+Quotedstr(Ebusca.Text);
           if buscarpor=4 then  Filter:='codzona ='+Quotedstr(Ebusca.Text);
           if buscarpor=5 then  Filter:='cuit ='+Quotedstr(Ebusca.Text+'*');
             Filtered:=true;
      end else
        begin  Filtered:=false; Filter:=''; Filtered:=true;  end;
    end;

Esta misma sintáxis use con BDE y funcionaba muy bien pero con ADO no.

Desde ya, muchas gracias este foro siempre me ha ayudado bastante.

Saludos
Responder Con Cita
  #2  
Antiguo 13-05-2008
martinc5 martinc5 is offline
Miembro
 
Registrado: abr 2006
Posts: 17
Poder: 0
martinc5 Va por buen camino
Hola de nuevo voy a proceder a corregirme... La verdad que era un detalle insignificante y que hace perder mucho tiempo jejeje
esta sería la forma correcta de hacerlo:
Código Delphi [-]
with Qclientes do
    begin
      if Ebusca.Text<> '' then
      begin Filtered:=false;
           if buscarpor=1 then  Filter:='apenomc LIKE '+Quotedstr(Ebusca.Text+'*');
           if buscarpor=2 then  Filter:='dom LIKE '+Quotedstr(Ebusca.Text+'*');
           if buscarpor=3 then  Filter:='idempc ='+Ebusca.Text;
           if buscarpor=4 then  Filter:='codzona ='+Ebusca.Text;
           if buscarpor=5 then  Filter:='cuit LIKE '+Quotedstr(Ebusca.Text+'*');
             Filtered:=true;
      end else
        begin  Filtered:=false; Filter:=''; Filtered:=true;  end;
    end;

El problemita era el LIKE, toma como si fuera una consulta SQL.

Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con AdoQuery / Parametros mateamargo SQL 4 18-04-2008 21:50:55
Problemas con Filter RoyTan Conexión con bases de datos 6 06-01-2008 12:26:23
Problemas con filter vroa74 Conexión con bases de datos 15 27-06-2007 05:55:08
Problemas FILTER javiermorales SQL 2 08-09-2003 09:26:09
Problemas con Adoquery sergio_015 Conexión con bases de datos 4 04-07-2003 22:34:17


La franja horaria es GMT +2. Ahora son las 01:30:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi