Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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 15-11-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
amigo lo resolvi agregandole parametro aqui el codigo

Código Delphi [-]
begin
 with Enlace.Consulta_Registro do
    begin
           Close;
           SQL.Clear;
           SQL.Add('Select sum(Deposito) from Depositos_Retiros where Nombre='+txt_nombre.Text+' and Apellido ='+ txt_apellido.Text);
           Parameters.ParamByName(txt_nombre.Text).Value:=txt_nombre.Text;
           Parameters.ParamByName(txt_apellido.Text).Value:=txt_apellido.Text;
          open;
       end;
end;


muchas gracias por la ayuda
Responder Con Cita
  #2  
Antiguo 15-11-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 688
Poder: 21
olbeup Va camino a la fama
Cita:
Empezado por kurono Ver Mensaje
amigo lo resolvi agregandole parametro aqui el codigo

Código Delphi [-]
begin
 with Enlace.Consulta_Registro do
    begin
           Close;
           SQL.Clear;
           SQL.Add('Select sum(Deposito) from Depositos_Retiros where Nombre='+txt_nombre.Text+' and Apellido ='+ txt_apellido.Text);
           Parameters.ParamByName(txt_nombre.Text).Value:=txt_nombre.Text;
           Parameters.ParamByName(txt_apellido.Text).Value:=txt_apellido.Text;
          open;
       end;
end;


muchas gracias por la ayuda
Son mas líneas pero es más claro y sin parametros
Código Delphi [-]
with Enlace.Consulta_Registro do
begin
  Close;

  SQL.Clear
  SQL.Add('SELECT');
  SQL.Add('    SUM(DEPOSITO) AS TOTALDEPOSITO');
  SQL.Add('  FROM Depositos_Retiros');
  SQL.Add('  WHERE NOMBRE = ' + QuotedStr(txt_nombre.Text));
  SQL.Add('        AND APELLIDO = ' + QuotedStr(txt_apellido.Text));

  Open;
end;
Un saludo.
Responder Con Cita
  #3  
Antiguo 16-11-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
ok lo copiare y luego lo probare ya que estoy en otra parte del sistema
Responder Con Cita
  #4  
Antiguo 16-11-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
hola de nuevo ahora me surgio el siguiente problema tengo una busqueda por nombre y apellido todo el codigo me funciona bien sin ningun error pero a la hora de tener dos nombre con el mismo apellido surge el problema ya que no me localiza el cliente que busco simpre me busca el primer registro con ese apellido

uso Locate para la busqueda
Responder Con Cita
  #5  
Antiguo 17-11-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 688
Poder: 21
olbeup Va camino a la fama
Si tienes dos nombre y el mismo apellido, el resultado son dos registros.
Lo que pasa es que tu capturas el primero, a menos que añadas otra condición de buscar en la SQL como el código de socio del cliente, el CIF, NIF, CAMPOx

Un saludo
Responder Con Cita
  #6  
Antiguo 17-11-2011
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Poder: 21
ElDioni Va por buen camino
Puedes poner un DBGrid con un DataSource para que el usuario vea todas las coincidencias y pueda seleccionar la que desea, también puedes poner un label que indique el número de registros devueltos con adoquery1.recordcount y poner botones para moverte al primer registro, al anterior, al siguiente y al último. adoquery1.First, adoquery1.prior, adoquery1.next, adoquery1.last.

Saludos.
Responder Con Cita
  #7  
Antiguo 17-11-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Poder: 20
kurono Va por buen camino
se me olvido decirle que esta busqueda no lo estoy haciendo por codigo Sql sino con ADOTable con la propiedad locate y los dbedit
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Consulta delphi llopez88 Varios 6 03-11-2011 10:24:25
consulta en Delphi corvarod OOP 2 09-03-2009 22:28:22
Consulta SQL+DELPHI 7 Gbyte SQL 8 28-07-2008 10:28:42
Consulta Delphi 6, Delphi 2005 y Delphi 2006 Leviatan Varios 6 18-08-2007 16:02:08
Consulta con delphi zvf OOP 11 27-07-2006 00:57:49


La franja horaria es GMT +2. Ahora son las 05:22:15.


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