Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-12-2005
jdangosto jdangosto is offline
Miembro
 
Registrado: jun 2004
Posts: 82
Poder: 22
jdangosto Va por buen camino
Si es cierto, manejo varios parámetros.

Cada opción case llama a consultas totalmente distintas.
La sentencia sql utilizada para las consultas es la siguiente:
Código SQL [-]
size="1">
SELECT Nombre, Apellidos, Direccion, Ciudad, Contactos."Tlf.Trabajo", Contactos."Tlf.movil", Mail, Notas, Contactos."Tlf.casa"

FROM "contactos.DB" Contactos

where (Nombre LIKE :nom);


Según la consulta que se ejecute, el parámetro cambia, es decir, para buscar_nombre el parametro sería nom; para buscar_apellidos el parametro sería ap, etc...
__________________
Lo que los Ojos ven y los Oidos Oyen la Mente se lo Cree (H.Houdini)
Responder Con Cita
  #2  
Antiguo 02-12-2005
Avatar de rastafarey
rastafarey rastafarey is offline
Miembro
 
Registrado: nov 2003
Posts: 927
Poder: 23
rastafarey Va por buen camino
Resp

haber si esto te sirve
Código Delphi [-]
procedure ElNombreQueSea;
Const
  csSql = 'SELECT Nombre, Apellidos, Direccion, Ciudad, Contactos."Tlf.Trabajo",'+
  ' Contactos."Tlf.movil", Mail, Notas, Contactos."Tlf.casa" FROM "contactos.DB" '+
  'Contactos where (%s LIKE ''%s'')';
  csCampos: Array[0..3] Of String = ('Nombre', 'Apellidos', 'Ciudad', 'Notas');
begin
  If Edit1.Text = '' Then
    MessageDlg('¡¡ Debe Introducir una Cadena a Buscar !!', mtInformation,[mbOk], 0)
  Else Begin
    If ElMismoQuery.Active Then
      ElMismoQuery.Close;
    ElMismoQuery.SQL.Text := Format(csSql, [csCAmpos[RadioGroup1.ItemIndex], '%'+Edit1.Text+'%']);
    ElMismoQuery.Open;
  End;
end;
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Responder Con Cita
  #3  
Antiguo 02-12-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¿Qué tal si haces una traza de tu aplicación ponienedo un punto de ruptura al comienzo del IF? Ya que la hagas regresas y nos aclaras si no entra en cada opción, o sí entra pero no ejecuta la consulta como esperas.

// Saludos
Responder Con Cita
  #4  
Antiguo 13-12-2005
jdangosto jdangosto is offline
Miembro
 
Registrado: jun 2004
Posts: 82
Poder: 22
jdangosto Va por buen camino
Question

Hola de nuevo.


Ante todo perdonad la tardanza por contestar pero he estado unos días de vacaciones, y me ha resultado imposible el conectar.

En cuanto a lo que indicabas Roman, he probado a poner un Break en cada parte del if. Y se puede observar lo siguiente.

- Cuando lo pones al comienzo del IF si entra.
- Cuando lo pones en la opción 0 del case si entra
- En el momento que pongas el punto de ruptura en otra opción, no entra (el break se pone en verde), y además si reiteras la opción que falla el resultado es que el parámetro que se le pasa a la primera opción del case es el que intenta ejecutar en las siguientes.

A ver si se ocurre algo.

Saludos
__________________
Lo que los Ojos ven y los Oidos Oyen la Mente se lo Cree (H.Houdini)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 13:29:50.


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