请问如何解决此错误 [英] How Do I Solve This Error Please

问题描述

我有一个从数据库中检索值的代码，但是当我运行时会出现一个错误，上面写着指定的转换无效请求我如何解决它的帮助,,,,下面是代码。

i have a a code that retrieves values from database but when i run there is an error that says "Specified Cast Not Valid" please i need help on how to solve it ,,,, below is the code.

Private Sub employeenamecmbbx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles employeenamecmbbx.SelectedIndexChanged
       Try
           con = New OleDbConnection(cs)
           con.Open()
           Dim ct As String = "select BasicSalary,CashBenefits,Allowances,VehicleFuelDriver,VehicleFuel,vehicleOnly,FuelOnly,AccomodationFurnishing,AccomodationOnly,SharedAccomodation from EmployeeRegistration where EmployeeName=@find"

           cmd = New OleDbCommand(ct)
           cmd.Connection = con
           cmd.Parameters.Add(New OleDbParameter("@find", OleDbType.VarChar, 30, "EmployeeName"))
           cmd.Parameters("@find").Value = Trim(employeenamecmbbx.Text)
           rdr = cmd.ExecuteReader()
           If rdr.Read Then
               Allowances.Text = Trim(rdr.GetString(0))
               BasicSalary.Text = Trim(rdr.GetInt32(1))
               CashBenefits.Text = Trim(rdr.GetString(2))
               Vehicle_Fuel_DriverCheckBox.CheckState = Trim(rdr.GetString(3))
               Vehicle_FuelCheckBox.CheckState = Trim(rdr.GetString(4))
               VehicleOnlyCheckBox.CheckState = Trim(rdr.GetString(5))
               FuelOnlyCheckBox.CheckState = Trim(rdr.GetString(6))
               AccomodationOnlyCheckBox.CheckState = Trim(rdr.GetString(7))
               AccomodationWithFurnishingCheckBox.CheckState = Trim(rdr.GetString(8))
               Shared_AccomodationCheckBox.CheckState = Trim(rdr.GetString(9))
               MarriageReponsibilityCheckBox.CheckState = Trim(rdr.GetString(10))
               DisabledCheckBox.CheckState = Trim(rdr.GetString(11))
               OldAgeCheckBox.CheckState = Trim(rdr.GetString(12))
               ChildEducationCheckBox.CheckState = Trim(rdr.GetString(13))
               AgeDependantCheckBox.CheckState = Trim(rdr.GetString(14))
               TrainingCostCheckBox.CheckState = Trim(rdr.GetString(15))
               Tier3ContributionCheckBox.CheckState = Trim(rdr.GetString(16))

           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

       If Not rdr Is Nothing Then
           rdr.Close()
       End If
   End Sub

推荐答案

据推测它发生在：

Presumably it happens at:

BasicSalary.Text = Trim(rdr.GetInt32(1))

您不能将文本字段设置为整数值。

You cannot set a text field to an integer value.

这篇关于请问如何解决此错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！