[davidmedina29]

ok lo que pasa es que mi base de datos guarda en el campo MES solamente INT osea del 1 al 12

en el combobox tengo los meses de enero a diciembre y cuando los quiero guardar pues obiamente me marca ese error ya que la base de datos espera valores de tipo int y no string

intente poniendo el aporte del compañero ecfisa pero no soluciono el error que me seguia apareciendo

Código Delphi [-]
procedure TfPeriodosNominaNvo.cxComboBox2PropertiesChange(Sender: TObject);
begin
  if cxComboBox2.ItemIndex <> -1  then
  MSQuery1.FieldByName('MES').Value := cxComboBox2.ItemIndex +1;
end;

lo que en si quiero es que no me guarde el texto del combobox si no el entero osea, si selecciono 'Enero' que me guarde el '1', si selecciono 'Abril' que me guarde el '4' .. etc

te comparto mi boton guardar.

Código Delphi [-]
procedure TfPeriodosNominaNvo.cxButton1Click(Sender: TObject);
begin
      if cxComboBox2.Text='' then
       MessageDlg('Falta Ingrsar el Mes', mtError, [mbOK], 0)
       else
  begin
   if DM.Q_PerNomina.State=dsInsert  then
    begin
     DM.Q_PerNomina.FieldByName('PERIODO').AsString := cxTextEdit1.Text;
     DM.Q_PerNomina.FieldByName('MES').AsString := cxComboBox2.Text;
     DM.Q_PerNomina.FieldByName('EJERCICIO').AsString := cxComboBox1.Text;
     DM.Q_PerNomina.Post;
     application.MessageBox('Datos Guardados Con Exito','Informacion',MB_OK);
      //MessageDlg('Dato Guardado', mtInformation, [mbOK], 0);
      fPeriodosNominaNvo.Close;
     end
    else
   begin
    if DM.Q_PerNomina.State=dsEdit then
     DM.Q_PerNomina.FieldByName('PERIODO').AsString := cxTextEdit1.Text;
     DM.Q_PerNomina.FieldByName('MES').AsString := cxComboBox2.Text;
     DM.Q_PerNomina.FieldByName('EJERCICIO').AsString := cxComboBox1.Text;
     DM.Q_PerNomina.Post;
     application.MessageBox('Datos Modificados Con Exito','Informacion',MB_OK);
     //MessageDlg('Ingreso Guardado', mtInformation, [mbOK], 0);
      fPeriodosNominaNvo.Close;
    end
   end
  end;