VB 2010从字符串“”到“Double”的转换无效

时间:2016-12-12 18:30:13

标签: vb.net

请帮帮我。这是一个uni项目,我不断收到错误“从字符串转换”“到'Double'类型无效。”即使我确保一切都是正确的类型,一切都有价值......等等。

我想在我的访问数据库中插入一些新行,这是我试图插入的表的图片 enter image description here

这是代码 错误出现在子w()

中的select语句中
Dim c As Integer
    Dim b As Double
    Dim a, d, z As String
    a = "'" + TextBox1.Text + "'"
    b = CInt(TextBox2.Text)
    c = CInt(TextBox3.Text)
    d = "'" + TextBox4.Text + "'"
    z = "'" + ComboBox1.SelectedItem + "'"


    If ComboBox1.SelectedItem = "الجبيل" Then
        w("insert into employees (em_id,em_name,m_id,city,phone,salary,password)" & " values (" + 32111 + "," + a + "," + 12303 + "," + z + "," + c + "," + b + "," + d + ")")
    ElseIf ComboBox1.SelectedItem = "جدة" Then
        w("insert into employees (em_id,em_name,m_id,city,phone,salary,password)" & " values (" + 32111 + "," + a + "," + 12302 + "," + z + "," + c + "," + b + "," + d + ")")
    ElseIf ComboBox1.SelectedItem = "الرياض" Then
        w("insert into employees (em_id, em_name,m_id,city,phone,salary,password)" & " values (" + 32111 + "," + a + "," + 12301 + "," + z + "," + c + "," + b + "," + d + ")")
    End If
    MsgBox("تم إضافة السجل بنجاح")
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
子w(“”)是:

 Public Sub w(ByVal s As String)
    Dim cum As New OleDbCommand(s, con)
    cum.ExecuteNonQuery()
End Sub

问题是它适用于不同的形式(对于不同的表和东西),但不在这里......

我该怎么办?

0 个答案:

没有答案