Mostrar Registros Mayor que

[lKinGl]

Caral ese es exactamente el código que tenia pero sigue dando el error type mismatch

creo que el error puede estar en que la variable buscar es tipo string y stkart en integer

intenté declarar una variable buscar2:integer; pero nisiquiera corrió el programa

si ese es el error no tengo idea como solucionarlo

[[Caral]]

Hola
Ese no es el problema
Buscar tiene que ser string.
El problema esta en que el dato 10 no coincide con el campo, por lo menos es lo que imagino.
Tienes que probar con otro dato.
Ejemplo, pon en vez de 10 el edit y en este pones el numero 10.
Si funciona el dato busca un string.
Saludos

[lKinGl]

intenté con este código pero nada!

Código Delphi [-]
var
buscar,valor:string;
begin
valor:=inttostr(10);
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart<=valor "';
end;

[[Caral]]

Hola
Asi:

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

Saludos

[lKinGl]

Ahora intente con el código de caral

Código Delphi [-]
case RadioGroup1.ItemIndex of  
0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';  
1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';  
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

pero ahora da un error distinto que dice invalid use of keyword token: <= creo que ya casi va a funcionar jejeje

[[Caral]]

Hola
Probemos esto:

Código Delphi [-]
case RadioGroup1.ItemIndex of  
0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';  
1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';  
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart = ' + (Edit1.text);

Quitando el signo de menor que.
A ver que pasa.
Saludos

[lKinGl]

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

[[enecumene]]

Empezado por lKinGl

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.

[lKinGl]

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)+'';

[[enecumene]]

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.

[[Caral]]

Hola

Empezado por enecumene

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

Saludos