问题描述
我运行代码然后它说 System.NullReferenceException: '未将对象引用设置为对象的实例。'有任何错误。我该怎么办?
Imports MysqL.Data.MysqLClient
Public Class Form1
Dim gender As String
Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
openCon()
MsgBox("Connected!")
con.Close()
End Sub
Private Sub rbMale_CheckedChanged(sender As Object,e As EventArgs) Handles rbMale.CheckedChanged
gender = "Male"
End Sub
Private Sub rbFemale_CheckedChanged(sender As Object,e As EventArgs) Handles rbFemale.CheckedChanged
gender = "Female"
End Sub
Private Sub bntOkay_Click(sender As Object,e As EventArgs) Handles bntOkay.Click
openCon()
Try
cmd.Connection = con
cmd.CommandText = "INSERT INTO tbl_signup (`Full Name`,`Age`,`Gender`,`Birthday`,`Program`) Value('" & txtFullName.Text & "','" & txtAge.Text & "','" & gender & "','" & dtpBirthday.Value.Date & "','" & cbProgram.Selectedindex & "') "
cmd.ExecuteNonQuery()
MsgBox("Registered Successfully!")
con.Close()
txtFullName.Clear()
txtAge.Clear()
rbMale.Checked = False
rbFemale.Checked = False
cbProgram.Text = " "
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)