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 03-08-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 14
giulichajari Va por buen camino
Cita:
Empezado por ozsWizzard Ver Mensaje
De primeras, en tu código hay algo que veo raro, primero asignas los parámetros y luego la SQL. ¿No debería ser al revés? No estarás añadiendo código sql dos veces, ¿no?
Pues podria probar pero me parece que en el momento de "ExecSQL" los parametros ya deben estar asignados,para que la consulta se ejecute.Si la consulta SQL es antes o despues es lo mismo.
Responder Con Cita
  #2  
Antiguo 03-08-2014
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Cita:
Empezado por giulichajari Ver Mensaje
Si la consulta SQL es antes o despues es lo mismo.
No es lo mismo.
Responder Con Cita
  #3  
Antiguo 03-08-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 14
giulichajari Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
No es lo mismo.
Pues acabo de probar en el servidor con:

Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');
          ExecSQL();
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;


        end;
    end;
Pero sigo teniendo el mismo problema.
Saludos
Responder Con Cita
  #4  
Antiguo 03-08-2014
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
¡ Pero cómo es que le das los parámetros después de ejecutarlo !
Responder Con Cita
  #5  
Antiguo 03-08-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 14
giulichajari Va por buen camino
Bueno me equivoque...
Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (:numero,:importe,:fechae,:horae,:idsucursal);');

          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;

          ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
          ParamByName('numero').AsInteger:=ticket.numero;
          ParamByName('importe').AsFloat:=ticket.importe;
           ExecSQL();

        end;
    end;
Igualmente sigue el problema.
Lo que lei en foros es que el mensaje implica un dato de mayor tamaño que el definido para el campo, pero es un numero 5?

Disculpen mi ignorancia..
Responder Con Cita
  #6  
Antiguo 03-08-2014
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Nadie nace sabiendo

¿De qué tipo es el campo en la base de datos?, ¿seguro que es un entero?
¿Qué valor le llega a la hora de asignarlo?, ¿seguro que es un 5? ¿lo has mirado con el depurador?
Responder Con Cita
  #7  
Antiguo 03-08-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 14
giulichajari Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Nadie nace sabiendo

¿De qué tipo es el campo en la base de datos?, ¿seguro que es un entero?
¿Qué valor le llega a la hora de asignarlo?, ¿seguro que es un 5? ¿lo has mirado con el depurador?
Tambien intente poner los parametros en orden:
Código Delphi [-]
    procedure Tsucursales.hacerticket(ticket:Tticket);

    begin
      consultas:=Tsucursallaferretera.Create(nil);
      with consultas.queryticket do
        begin
          SQL.Add('insert into ticket(idticket,numero,importe,fechae,horae,idsucursal)');
          SQL.Add('values (null,:numero,:importe,:fechae,:horae,:idsucursal);');
               ParamByName('numero').AsInteger:=ticket.numero;

          ParamByName('importe').AsFloat:=ticket.importe;
          ParamByName('fechae').AsString:=ticket.fechae;
          ParamByName('horae').AsString:=ticket.horae;
                ParamByName('idsucursal').AsInteger:=ticket.idsucursal;
           ExecSQL();

        end;
    end;

Intente con F7 pero me pide unas librerias .dcu porque estoy usando zeoslib, la verdad no se muy bien como comprobar el valor que llega al servidor.
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!! nob_blob column Ledwin_v Varios 2 16-08-2011 16:28:13
Error Column does not belong noe Firebird e Interbase 4 26-02-2010 10:22:01
Column unknown elcolo83 Conexión con bases de datos 5 04-04-2008 23:16:48
Error Delphi 3 Standard al crear Informe con + d una column jealousy Impresión 2 10-01-2005 18:58:36
Hide Column en un TListView DJ VMan OOP 0 05-12-2003 13:40:57


La franja horaria es GMT +2. Ahora son las 01:11:40.


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