Club Delphi  
    Paypal   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 Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-08-2015
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
No es necesario tomar medidas tan drasticas como formatear, reinstalar delphi, es un error de compilacion nada mas

Segundo, porque no usar parametros? En realidad deberias tratar de usar siempre parametros, ya las ventajas las enumeramos miles de veces por el foro

Y por ultimo de que tipo es la variable "fecini"?

Tenes que tener en cuenta que QuotedStr recibe como parametro un string. Es decir, esto no te va a compilar:

Código Delphi [-]
var
  i: Integer;
begin
  ShowMessage(QuotedStr(i));
end;
Responder Con Cita
  #2  
Antiguo 17-08-2015
alexglez1255 alexglez1255 is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 86
Poder: 14
alexglez1255 Va por buen camino
este es el proceso tratando de usar parameters, no me da error me pero no me arroja ningun resultado la consulta
los parameters FDESDE y FHASTA son de tipo fecha y el cod_cobrador es entero...


Código Delphi [-]
procedure TFrmRepdeCobr.BtHacereporteClick(Sender: TObject);
 var
  fecfin,fecini:TDate;
  codcobstr:String;
begin
 With logicanegocio do
  begin
  CDSREpxCobYrango.Close;

    fecini:=strtodate(formatdatetime('mm/dd/yy',TPFechini.Date));
    Fecfin:=strtodate(FormatDateTime('mm/dd/yy',TPFechfinal.Date));
   codcobstr:=IntToStr(Coddecobr);
   ShowMessage('datos a buscar en inicial:'+DateToStr(fecini)+' final:'+datetostr(fecfin)+' cobrador :'+IntToStr(Coddecobr));
      case Tpickrepcobr.ItemIndex of
      0:begin

        If Coddecobr=0 then
          begin
            ShowMessage('No ha escogido el cobrador ');
            EdCodCobr.SetFocus;
          end;
        CDSREpxCobYrango.Params.ParamByName('Cod_cobrador').Value := Coddecobr;
        CDSREpxCobYrango.Params.ParamByName('FDESDE').Value := fecini;
        CDSREpxCobYrango.Params.ParamByName('FHASTA').Value := fecfin;
        CDSREpxCobYrango.Open;

//         modulodatos.TAbonConsultar.SelectSQL.Text:='Select * From Abonos '+
//        +'where (fecha_cap>='+QuotedStr(fecini)+') and (fecha_cap<='+QuotedStr(fecfin)+') and (cod_cobrador='+QuotedStr(codcobstr)+
//       ') order by fecha_cap';
//      modulodatos.TAbonConsultar.ExecSQL;
//      CDSAbonoConsulta.open;
         end;

    end;
  end;
end;
Responder Con Cita
  #3  
Antiguo 17-08-2015
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
No mandes los parametros como string; manda directamente las fechas y "que se las arregle" el motor sql. Eso es justamente lo bueno de los parametros, seteas el valor y a cobrar
Responder Con Cita
  #4  
Antiguo 17-08-2015
alexglez1255 alexglez1255 is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 86
Poder: 14
alexglez1255 Va por buen camino
si ves AGUSTINORTU es lo que hago extraigo la fecha (un string) y la convierto a date (strtodate) y asigno directamente las fechas
a los parametros pero no me sale nada...algo no estoy haciendo bien...gracias de antemano
Responder Con Cita
  #5  
Antiguo 17-08-2015
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
Hola alexglez1255.

Por favor no abras otro hilo con la misma consulta, de ese modo evitamos los resultados redundantes en las búsquedas.
Si lo que buscas es destacar nuevamente la consulta, basta con que agregues un nuevo mensaje al final del hilo inicial y este pasa automáticamente a encabezar la lista de nuevos mensajes.

Combiné ambos mensajes, con idéntico título y mismo contenido, en el primero.

Saludos y gracias por tu colaboración
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 19-08-2015
alexglez1255 alexglez1255 is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 86
Poder: 14
alexglez1255 Va por buen camino
quiero agradecer sinceramente a TODOS especialmente a mi Dios JEHOVA...pero tambien a todos ustedes...ecfisa, AgustinOrtu,Lepe, jafera, por todas sus aportaciones y ideas y con gran gusto les dire que ya logramos hacerlo funcionar y la sugerencia que al final logro hacerlo fue la de ECFISA...

Código Delphi [-]
var
  cds: TClientDataSet;
begin
  // (La línea siguiente es configurable desde el Object Inspector)
  DataSetProvider1.Options := DataSetProvider1.Options + [poAllowCommandText]; 

  cds := CDSREpxCobYrango;
  cds.Close;
  cds.CommandText:= 'SELECT * FROM ABONOS WHERE COD_COBRADOR = :CODCOB' + ' ' +
     'FECHA >= :FDESDE AND FECHA <= :FHASTA';
  cds.Params.ParamByName('CODCOB').Value := Coddecobr;
  cds.Params.ParamByName('FDESDE').Value := DateToStr(DateTimePickerDesde.Date);
  cds.Params.ParamByName('FHASTA').Value := DateToStr(DateTimePickerHasta.Date);
  cds.Open;
end;
ME HACE LA CONSULTA DE LAS FECHAS...Y NO ME DA NINGUN ERROR...PERO SI FUE UN DOLOR DE CABEZA..GRACIAS A TODOS ESPCIALMENTE A MI CREADOR JEHOVA...
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
[Error] Missing operator or semicolon delphi wolfran_hack Varios 12 02-05-2013 15:23:28
Operacion Not applicable Yun-i Varios 5 25-04-2012 22:58:05
Operation Not Applicable koalko84 Conexión con bases de datos 2 29-03-2011 17:45:14
Could not convert variant of type (Null) into type (Integer) Alejo15x Varios 2 30-11-2010 17:35:50
Mensaje Operation no applicable zugazua2001 Varios 5 05-04-2006 10:01:30


La franja horaria es GMT +2. Ahora son las 05:58:29.


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