Error al realizar búsqueda: Incorrect sintax near '...'

[davidmedina29]

hola buen dia disculpa ecfisa pense que estaba relacionado con el hilo que ya tenia por eso lo puse ahi

y roman ya lo habia puesto asi con el QuotedStr pero marca este error

conversion failed when converting the varchar value '01 Enero' to data type int

asi lo puse

Código Delphi [-]
with dm do
  begin
   Q_PerNomina.Close;
   Q_PerNomina.DeleteWhere;
   if (cxComboBox1.Text='Ejercicio')and(cxTextEdit1.Text<>'') then
    Q_PerNomina.AddWhere('EJERCICIO='+cxTextEdit1.Text)

   else if (cxComboBox1.Text='Periodo')and(cxTextEdit1.Text<>'') then
    Q_PerNomina.AddWhere('PERIODO='+QuotedStr(cxTextEdit1.EditValue))

if (cxComboBox1.Text='Mes')and (cxComboBox2.Text<>'') then
    Q_PerNomina.AddWhere('MES='+QuotedStr(cxComboBox2.EditValue));
    Q_PerNomina.Open;

el periodo y el ejercicio si funciona bien el detalle es con el mes.

tengo un msQery(Q_PerNomina) y un datasource(DS_PerNomina) en un dm
tengo una bd con los campos mes, periodo y ejercicio los tres son de tipo int
tengo un cxCombobox1 con los items mes, periodo y ejercicio cuando elijo periodo y ejercicio se hace visible el cxTextedit1 y cuando elijo mes se hace visiblo el cxCombobox2 con los sig items:
01 Enero
02 Febrero
03 Marzo
04 Abril
05 Mayo
06 Junio
07 Julio
08 Agosto
09 Septiembre
10 Octubre
11 Noviembre
12 Diciembre

se que el error es porque no puedo insertar str en un campo que es int pero es lo que quiero saber
alguna sugerencia

[[AgustinOrtu]]

Es el mismo problema que veniamos ya tratando antes

Código Delphi [-]
if (cxComboBox1.Text='Mes')and (cxComboBox2.Text<>'') then
    Q_PerNomina.AddWhere('MES='+QuotedStr(cxComboBox2.EditValue));

En tu base tenes un int, le estas mandando 02 Enero, es logico que te de error

[davidmedina29]

hola Agustin gracias por responder, si entiendo pero mi duda es que se puede aplicar ahi para que en ves de enero busque el el numero del mes

[[AgustinOrtu]]

Es que es lo mismo cuando tenias que grabar, creo que quedaba ComboBox.ItemIndex + 1

[davidmedina29]

de hecho ya lo intente asi

Código Delphi [-]
if (cxComboBox1.Text='Mes')and (cxComboBox2.ItemIndex <>'')  then
    Q_PerNomina.AddWhere('MES='+QuotedStr(cxComboBox2.EditValue));

y me marca error no me deja correrlo
me marca
incopatibles type 'String' and 'Integer'

[[AgustinOrtu]]

Porque la funcion QuotedStr solo sirve para strings, no sirve para Integers

[ecfisa]

Hola.

Empezado por davidmedina29

de hecho ya lo intente asi

Código Delphi [-]
  if (cxComboBox1.Text='Mes')and (cxComboBox2.ItemIndex <>'')  then
    Q_PerNomina.AddWhere('MES='+QuotedStr(cxComboBox2.EditValue));

y me marca error no me deja correrlo
me marca
incopatibles type 'String' and 'Integer'

También revisa lo que remarque en color rojo. La propiedad ItemIndex es de tipo Integer, no tiene ningún sentido comparar si su valor es una cadena vacía.

Saludos

[davidmedina29]

si entiendio que mi combobox esta en string y debo guardar un campo int pero ese es el punto no se como solucionar que al buscar busque el numero del 1 al 12 en la bd y no el texto de enero a diciembre.

gracias por responder compañeros