Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-07-2005
Avatar de alcides
alcides alcides is offline
Miembro
 
Registrado: dic 2003
Ubicación: Republica Dominicana
Posts: 204
Poder: 21
alcides Va por buen camino
Este qry no me funciona, porque?

hola a todos,
Amigos: quiero modificar un campo de una tabla llamada Catalogo con el resultado de una variable en mi reporte y tengo lo siguiente:
en el on print de mi variable tengo esto.
Código PHP:
procedure TFrm_Sumar_Balance.ppVariable2Print(SenderTObject);
begin
qry_DetalleDetalleNumero_Transacion
.Value;
if (
qry_detalleOrigen.Value 'AC') or
   (
qry_detalleOrigen.Value 'GO'then begin
    ppVariable2
.Value := (ppVariable1.Value ppDBCalc2.Value) -  ppDBCalc3.Value;
end;
if (
qry_detalleOrigen.Value 'PA') or
   (
qry_detalleOrigen.Value 'PT') or
   (
qry_detalleOrigen.Value 'IN'then begin
    ppVariable2
.Value := (ppVariable1.Value ppDBCalc3.Value) - ppDBCalc2.Value;
end;

with Qry_Catalogo do
Begin
qry_catalogo
.close;
Qry_Catalogo.sql.Clear;
qry_catalogo.SQL.add('update Tbl_Catalogo');  
qry_catalogo.SQL.Add('set balance := ppVariable.Value');
qry_catalogo.SQL.add('Where Cuenta = Detalle.Cuenta');
qry_catalogo.ExecSQL;
end;
end
gracias mil, por la ayuda que me puedan brindar

Alcides
Rep.Dom.
Responder Con Cita
  #2  
Antiguo 22-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Supongo que no funciona significa que te da un error, posiblemente en el ExecSQL, por estas líneas:
Cita:
Empezado por alcides
qry_catalogo.SQL.add('update Tbl_Catalogo');
qry_catalogo.SQL.Add('set balance := ppVariable.Value');
qry_catalogo.SQL.add('Where Cuenta = Detalle.Cuenta');
Lo que le llegará al motor es: "update Tbl_Catalogo set balance := ppVariable.Value Where Cuenta = Detalle.Cuenta" y el motor no tiene idea de que es ppVariable.Value y Detalle.Cuenta. Donde ppVariable.Value es un control de tu formulario y Detalle.Cuenta no se si te refieres a un campo de otra tabla o a que?

Fíjate de armar algo con este formato:
Código Delphi [-]
DataSet.Sql := 'UPDATE TABLA ' + ;
                  'SET CAMPO = :Param0 ' +
                'WHERE ID = :Param1';
DataSet.Params[0].Value := MiValor;
DataSet.Params[1].Value := MiId;
DataSet.ExecuteSql;


http://www.clubdelphi.com/foros/show...ht=shared+pool
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 22-07-2005
Avatar de alcides
alcides alcides is offline
Miembro
 
Registrado: dic 2003
Ubicación: Republica Dominicana
Posts: 204
Poder: 21
alcides Va por buen camino
Gracias delphi.com.ar
por tu ayuda y orientación





Gracias mil,


Alcides
Rep.Dom.
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 18:47:28.


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