Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Mostrar Registros Mayor que (https://www.clubdelphi.com/foros/showthread.php?t=56950)

lKinGl 01-06-2008 20:31:34

Tengan en cuenta que:
1) se abre el formulario
2) selecciono el radiobutton3(Cantidad)=Stkart
3) deberia msotrar los resultados

enecumene 01-06-2008 20:33:24

Hola, intenta así:

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= +QuotedStr(Edit1.text)+';

ó

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=  '+QuotedStr(Edit1.text)+'';
Saludos.

enecumene 01-06-2008 20:35:34

Cita:

Empezado por lKinGl (Mensaje 290593)
Tengan en cuenta que:
1) se abre el formulario
2) selecciono el radiobutton3(Cantidad)=Stkart
3) deberia msotrar los resultados

Una Pregunta lKinGl, ¿llegaste a leer el post #13 de este hilo?.

Saludos.

Caral 01-06-2008 20:38:07

Hola
Cita:

Empezado por enecumene (Mensaje 290594)
Hola, intenta así:

Código Delphi [-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= +QuotedStr(Edit1.text)+';


ó

Código Delphi [-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= '+QuotedStr(Edit1.text)+'';

Saludos.

En realidad el primero no funcionaria y al segundo le sobra una comilla.
Amigo creo que te falta algo de descanso.:D:D
Código Delphi [-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= '+QuotedStr(Edit1.text);

Saludos

lKinGl 01-06-2008 20:38:25

si sirviooooooooooooooooooooooooooooo

enecumene tu 2do codigo sirvió
funciona asi:
se abre el form
luego selecciono el radiobutton 3(Cantidad)=STkart
luego escribo en edit1 la cantidad 10 y me salen los productos el cual su existencia es igual o menor a 10

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=  '+QuotedStr(Edit1.text)+'';

Caral 01-06-2008 20:41:10

Hola
Eso indica que no estabamos equivocados, el dato es un string y no debería serlo.
Saludos

lKinGl 01-06-2008 20:44:00

Hmmm me acabo de dar cuenta de que funciona pero no correctamente
fijense

tengo 2 articulos agregados uno tiene en existencia 1 y otro tiene 10

cuando corro el programa y pongo en edit1 8 no deberia salir el segundo articulo que tiene 10

por que la instruccion deberia dar como resultado los menores o iguales a edit1.text

ya es mas pequeño el problema supongo :D

enecumene 01-06-2008 20:44:27

Cita:

Empezado por Caral (Mensaje 290599)
Hola
Eso indica que no estabamos equivocados, el dato es un string y no debería serlo.
Saludos

Así es amigo Caral, por eso le reitero al amigo lKinGl que revise los campos persistentes que estoy seguro que el problema viene de ahí, tal como lo comenté en el post #13.

Saludos.

lKinGl 01-06-2008 20:45:21

Hmmm me acabo de dar cuenta de que funciona pero no correctamente
fijense

tengo 2 articulos agregados uno tiene en existencia 1 y otro tiene 10

cuando corro el programa y pongo en edit1 8 no deberia salir el segundo articulo que tiene 10

y salen los 2 el de 1 y el de 10 cuando deberia salir solo 1 el que tiene 1 existencia

por que la instruccion deberia dar como resultado los menores o iguales a edit1.text

ya es mas pequeño el problema supongo :D

Caral 01-06-2008 20:46:14

Hola
Como dice reiteradamente enecumene, revisa el post 13
Por ahi esta el problema
Saludos

enecumene 01-06-2008 20:47:10

Cita:

Empezado por lKinGl (Mensaje 290600)
Hmmm me acabo de dar cuenta de que funciona pero no correctamente
fijense

tengo 2 articulos agregados uno tiene en existencia 1 y otro tiene 10

cuando corro el programa y pongo en edit1 8 no deberia salir el segundo articulo que tiene 10

por que la instruccion deberia dar como resultado los menores o iguales a edit1.text

ya es mas pequeño el problema supongo :D

Pues nos explicaste mal el asunto, dijiste menor que 10, no igual a Edit1, sería así:

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart =  '+QuotedStr(Edit1.text)+'';

Saludos.

lKinGl 01-06-2008 20:53:22

Sigue funcionando erradamente

me explico mejor

lo que quiero obtener de esta funcion es saber cuales de los articulos tiene menos de edit1.text de existencia

y que esos artículos se reflejen en mi dbgrid1
saludos!

Caral 01-06-2008 20:56:51

Hola
Para mi te as explicado bien.
El dato busca un string y deberia ser un integer.
<= menor O igual que
< menor que
= igual que.
Por aqui puede estar la diferencia, pero insisto el dato no deberia ser un string.
Saludos

lKinGl 01-06-2008 21:01:13

Caral tienes razón por que cuando escirbo en el edit1 la cantidad:

1 el resultado es: aparece el articulo que tiene 1 de existencia
10 el resultado es: aparecen los 2 el de 1 y el de 10 de existencia
8 el resultado es: aparecen los 2 el de 1 y el de 10 de existencia

aunque no se que es QuotedStr creo que esta transformando de Quoted a String

y deberia ser de Quoted a Integer

Salu2

Caral 01-06-2008 21:05:57

Hola
1. Revisa el campo, asegurate que sea integer.
2. Desconecta el query y quitale todo el contenido si lo tiene.
3. corre el programa, sin presionar nada, asi se limpiara.
4. conecta el query nuevamente.
5. ya deberia estar el dato como un integer.
6. coloca tu primer codigo, ya que este ultimo no servira.
saludos

lKinGl 01-06-2008 21:10:29

Grave Error de mi parte y grandesa de su parte xD

El STkart estaba de tipo A

Lo cambié a I y funcionó correctamente....

Cuando escribo en edit1 la cantidad:

2 el resultado es que muestra solo el articulo que tiene 1 de existencia no muestra el que tiene 10

y si aumento el rango a 10,11,12 muestra los 2 como deberia ser!!!

Muchisimas Gracias a los 2 por ayudarme con mi código y tenerme paciencia xD


La franja horaria es GMT +2. Ahora son las 06:29:26.

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