主题:调试了好久,老是报错!请大家来帮帮忙
小弟在做一个vb.net的专周实习.关于一个企业人事管理系统的.登陆界面已经做好了!在登陆控件上加了一段代码,能成功登陆.然后能成功转到添加新记录的界面.但是就是不能提交成功.总是报错!
下面是提交按钮的代码!
Dim tmptable As New System.data.DataTable
tmptable = DataSet21.Tables("user")
Dim row As System.data.DataRow
Dim reader As SqlClient.SqlDataReader
Me.SqlConnection1.Open()
Dim tmpcommand As New System.Data.SqlClient.SqlCommand("insert into user (id,username,password,department,salary) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", SqlConnection1)
reader = tmpcommand.ExecuteReader
reader.Read()
If reader.GetValue(0) <> 0 Then
MsgBox("档案建立成功!")
Dim a As New Form2
a.Show()
Else
MsgBox("档案建立失败!")
End If
Me.SqlConnection1.Close()
按理说都不应该有错的.找了好久也不明白!
系统提示:
未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。
其他信息: 系统错误。
下面是提交按钮的代码!
Dim tmptable As New System.data.DataTable
tmptable = DataSet21.Tables("user")
Dim row As System.data.DataRow
Dim reader As SqlClient.SqlDataReader
Me.SqlConnection1.Open()
Dim tmpcommand As New System.Data.SqlClient.SqlCommand("insert into user (id,username,password,department,salary) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", SqlConnection1)
reader = tmpcommand.ExecuteReader
reader.Read()
If reader.GetValue(0) <> 0 Then
MsgBox("档案建立成功!")
Dim a As New Form2
a.Show()
Else
MsgBox("档案建立失败!")
End If
Me.SqlConnection1.Close()
按理说都不应该有错的.找了好久也不明白!
系统提示:
未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。
其他信息: 系统错误。