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);
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);
fPeriodosNominaNvo.Close;
end
end
end;