13 respuestas en este tema

[edgar_prospero]

que hay camaradas aqui con un problemita, quiero mostrar registros en un db grid pero solo los que contengan por asi decirlo jornada1 y torneo 3, con el codigo que intento no respeta el rango y me muestra todo lo de la jornada 1 el codigo es el siguiente

 datos.queryrol.SQL.Clear;
  datos.queryrol.SQL.Text :=  'SELECT * FROM roles WHERE jornada =:jornada and torneo =:torneo  ORDER BY folio ASC';
  datos.queryrol.ParamByName('jornada').Asinteger := StrToIntDef(jornada.Text, 0);
  datos.queryrol.ParamByName('torneo').Asinteger := StrToIntDef(torneo.Text, 0);

   datos.queryrol.Open;

tengo el dbgrid conectado a un datasource, el datasource esta ligado a un query

[Rolphy Reyes]

Saludos.

No veo el problema que indicas, debido a que le pasas el valor por parámetros que esta correcto según el código.

¿Has probado averiguar el valor de jornada.Text y torneo.Text, para luego ejecutar la sentencia SQL con tu herramienta CASE?

Una pequeña sugerencia, por lo que muestras en el código no estas cerrando el TDataSet antes de la llamada del método Clear así que sería bueno ejecutar el método Close antes.

[TiammatMX]

Dos sugerencias:

• Limpia los parámetros de tu query.
• Limpia el SQL antes de ingresarle un nuevo código.

Y personalmente, prefiero generar un query sin parámetros, siento que es un poco más controlable.

[Fenareth]

Amigo edgar_prospero, si ya construyes tu sentencia de manera dinámica, porqué no hacerlo sin parámetros, como dice TiammatMX ?

Algo así ?

delphi

  jornada := StrToIntDef(jornada.Text, 0);  // variable de tipo entero
  torneo := StrToIntDef(torneo.Text, 0);  // variable de tipo entero
 
  datos.queryrol.Close;
  datos.queryrol.SQL.Text := 'SELECT * FROM roles WHERE jornada = '+IntToStr(jornada)+' and torneo = '+IntToStr(torneo)+' ORDER BY folio ASC';
  datos.queryrol.Open;

Saludox !

[edgar_prospero]

gracias por sus respuestas, segui el ejemplo que me dio fenareth pero me marca el siguiente error, para ver si me pueden orientar:

[DCC Error] Unit6.pas(267): E2010 Incompatible types: 'TsEdit' and 'Integer'

[Fenareth]

Pon tu código aqui porfas amigo...

Saludox !

[edgar_prospero]

pues primero puse tu codigo asi tal cual como me lo pasaste y me marco lo que puse anteriormente y tambien lo intente de esta manera y nada:

delphi

datos.queryrol.Close;
  datos.queryrol.SQL.Text := 'SELECT * FROM roles WHERE jornada ='+(jornada.text)+' and torneo = '+(torneo.text)+' ORDER BY folio ASC';
  datos.queryrol.Open;

[edgar_prospero]

en encontrado un detalle en los campos que son int no hay problema para hacer la consulta, cuando son varchar es cuando me esta dando problemas, que puedo hacer para solucionar esto

[Fenareth]

Yo tuve un error, a ver intenta de ésta manera:

  iVarjornada := StrToIntDef(jornada.Text, 0);  // variable de tipo entero
  iVartorneo := StrToIntDef(torneo.Text, 0);  // variable de tipo entero
 
  datos.queryrol.Close;
  datos.queryrol.SQL.Text := 'SELECT * FROM roles WHERE jornada = '+IntToStr(iVarjornada)+' and torneo = '+IntToStr(iVartorneo)+' ORDER BY folio ASC';
  datos.queryrol.Open;

Cambié el nombre de las variables para que no tenga problema con el nombre del componente

Saludox !

[Fenareth]

Ahhhhhh, uno de tus campos es varchar ???

Entonces tienes que "entrecomillarlo" (esa palabra existe ?  ), cuál de tus campos es Varchar ???

Saludox !

[edgar_prospero]

torneo es varchar, jornada es el que es int no se si mepuedas decir como es eso de entrecomillarlo

[edgar_prospero]

cuando es varchar se maneja diferente??? me acabo de dar cuenta que habia utilizado antes puro int

[Fenareth]

Ok amigo, quedaría así...

  iVarjornada := StrToIntDef(jornada.Text, 0);  // variable de tipo entero
  sVartorneo := QuotedStr(torneo.Text);  // variable de tipo string
 
  datos.queryrol.Close;
  datos.queryrol.SQL.Text := 'SELECT * FROM roles WHERE jornada = '+IntToStr(iVarjornada)+' and torneo = '+sVarTorneo+' ORDER BY folio ASC';
  datos.queryrol.OPEN;

Si te fijas amigo, usé la funcion QuotedStr para el entrecomillado, que es el tratamiento que se le debe de hacer a los campos varchar

Saludox !

[edgar_prospero]

ahi estaba el detalle, muchas gracias por la ayuda hoy e aprendido algo nuevo fenareth