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
  #21  
Antiguo 14-09-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Código Delphi [-]
query1.SQL.Clear;
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso =  :uno  and concepto = :dos';
Query1.Params[0].Value:= IntToStr( x );
Query1.Params[1].Value:= dbedit9.text;
query1.Active:=true;
max:= Query1.Fields[0].Value;
Saludos
__________________
Siempre Novato
Responder Con Cita
  #22  
Antiguo 15-09-2010
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 gonza_619 Ver Mensaje
me tira error de capability not suported.
que qiere decir cuando pongo al final .value?
quizas sea algo en la consulta pero el error me lo marca en la asignacion al MAX
no me tira error en la ocnsulta:

Hola gonza.
Ya en otro post que hiciste te conteste que esto:
Código Delphi [-]
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas  where alucurso =IntToStr( x ) and concepto=IntToStr(dbedit9.text)' ;
no va a funcionar.

IntToStr no es una sentencia SQL, tenés que sacar a IntToStr fuera de las comillas...

Saludos.

Última edición por ecfisa fecha: 15-09-2010 a las 00:16:37.
Responder Con Cita
  #23  
Antiguo 15-09-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Poder: 17
gonza_619 Va por buen camino
bueno me da error de type missmatch in expression.
bien es que resulta tengo que hacer un control

tablaxx
cmapo1 campo2 campo3
1 1 1
1 1 2
1 2 1

como veras si en campo 2 cambia , tambien tiene q cambiar campo3
si cambia campo2 entonces cambia campo3 = 1
si campo2 sigue con el mismo valor(1) entonces campo2 sera 2, si campo2 sigue (1), campo3 cambia =3 y asi.
ahora si campo2 cambia a(2) entonce campo3 vuelve a=1

por eso en la consulta referencio los campos campo1 y campo2,

BIEN AHORA PROBE ASI: SEGUN LO ENTENDI ANTERIORMENTE

query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso ='+IntToStr( x ) 'and concepto='+inttostr(dbedit2.text);

DEJANDO AFUERA LOS INTOSTR Y ME DICE MISSING OPERATOR OR SEMICOLON
ANTES DE ESTA PARTE +inttostr(dbedit2.text);

Última edición por gonza_619 fecha: 15-09-2010 a las 00:24:23.
Responder Con Cita
  #24  
Antiguo 15-09-2010
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
Si por que a golpe de ojo veo que te falta un '+' en la concatenación.

gonza, por que no probas así...

Código Delphi [-]
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso = '+ 
                  QuotedStr(IntToStr(x)) + ' and concepto = ' + QuotedStr(IntToStr(dbedit9.text));

Saludos.

Última edición por ecfisa fecha: 15-09-2010 a las 00:31:28.
Responder Con Cita
  #25  
Antiguo 15-09-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
type missmatch in expression es simplemente que la evaluación no es la correcta, osea, el dato que se da al parametro no coincide con el del campo.
Puse los parametros por que es conveniente irse acostumbrando a usarlos, es una buena politica, da orden al codigo etc. etc,.
Lo que te explica el Maestro ecfisa es un cambio en la condicion de los datos usando el QuotedStr, que es en esencia lo que indica el error, un tipo erroneo de dato o expresion.
Saludos
__________________
Siempre Novato
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
volver un TEdit.Text un valor? Ðαяισš Varios 2 02-01-2009 05:06:17
comparar letras de un edit text con un toolbar sultan Varios 3 12-11-2008 00:24:37
TEdit Propiedad Text problema para cambiar alucardo OOP 12 29-05-2006 16:12:08
Guardar lo que tengo en un Edit1.text y edit2.text en una base de datos firebird jorgeluisc Conexión con bases de datos 1 23-04-2006 18:29:28
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera atirado Varios 4 11-09-2004 19:13:48


La franja horaria es GMT +2. Ahora son las 23:26:01.


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