Convertir valores int de un campo a varchar

[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;

[roman]

Te estás haciendo líos tú sólo. Ya Agustín lo explicó muy bien: es imposible ese mensaje de error con el código que ponías. Ese mensaje sale por el código que ahora pones, que es distinto. Así que, las líneas:

Código Delphi [-]
DM.Q_PerNomina.FieldByName('MES').AsString := cxComboBox2.Text;

cámbialas por

Código Delphi [-]
DM.Q_PerNomina.FieldByName('MES').AsInteger := cxComboBox2.ItemIndex + 1;

LineComment Saludos

[roman]

Por otro lado, si la única diferencia entre el insert y el update es el texto del mensaje, no vale la pena distinguir los dos casos. Déjalo así:

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

LineComment Saludos