Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-12-2016
Avatar de darkbits
darkbits darkbits is offline
Miembro
 
Registrado: may 2006
Posts: 280
Poder: 21
darkbits Va por buen camino
probe con parametros y me sigue tirando el mismo error

Código SQL [-]
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
 _DM.consulta1.ParamByName('miid').value:=QuotedStr(edit11.text);
       _DM.consulta1.open;
__________________
Gracias por su coloración club delphi

darkbits ;)
Responder Con Cita
  #2  
Antiguo 09-12-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 17
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Intenta de esta manera:

Código Delphi [-]
var
  IdCliente: Integer;
begin
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
  if TryStrToInt(edit11.text, IdCliente) then
   _DM.consulta1.ParamByName('miid').value:= IdCliente
  else
   _DM.consulta1.ParamByName('miid').value:= Null; // debes incluir la unidad Variants en el uses

   // segun los componentes, tambien es posible que este definido el metodo Clear;
   _DM.consulta1.ParamByName('miid').Clear; // equivale a asignar Null
 _DM.consulta1.open;
end;
Responder Con Cita
  #3  
Antiguo 11-12-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por darkbits Ver Mensaje
probe con parametros y me sigue tirando el mismo error
...
No has comentado con que componentes estas trabajando, pero de este modo en Firebird no tendría por que darte error:
Código Delphi [-]
  _DM.consulta1.SQL.Text := 'SELECT * FROM CLIENTES WHERE ID_CLIENTE = :MIID';
  _DM.consulta1.ParamByName('MIID').AsString := Edit11.Text; // (1)
  _DM.consulta1.open;
(1) Pero, si el ingreso no es un entero (vg. 'hola') lanzará un error de conversión, que se podría evitar de este modo:
Código Delphi [-]
  _DM.consulta1.Close;
  _DM.consulta1.SQL.Text := 'SELECT * FROM CLIENTES WHERE ID_CLIENTE = :MIID';
  _DM.consulta1.ParamByName('MIID').AsInteger := StrToIntDef(Edit11.Text, 1); // (*)
  _DM.consulta1.Open;
(*) Uno o el valor que desees por defecto.

Otra opción es interpretar el ingreso de cadena vacía como la intención de mostrar todas las filas:
Código Delphi [-]
  _DM.consulta1.Close;
  _DM.consulta1.SQL.Clear;
  _DM.consulta1.SQL.Add('SELECT * FROM CLIENTES');
  if Edit1.Text <> '' then
  begin
    _DM.consulta1.Add('WHERE ID_CLIENTE = :MIID');
    _DM.consulta1.ParamByName('MIID').AsInteger := StrToIntDef(Edit11.Text, 1);
  end;
  _DM.consulta1.Open;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
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
problema con el IDE de delphi x5 kurono Varios 5 26-08-2014 12:53:16
Delphi 2010: Problema con los colores al escanear con Delphi TWAIN davidrgh Gráficos 0 23-08-2012 14:00:55
Problema en Delphi 4.01 Pro THc Varios 3 04-01-2009 22:27:12
Problema con delphi 7 psypersky Varios 6 26-08-2007 05:09:11
Hola problema de migración delphi 5 a delphi 7 davidgaldo Conexión con bases de datos 1 03-03-2004 14:13:28


La franja horaria es GMT +2. Ahora son las 04:09:37.


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