Private Sub btn_tj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl es btn_tj.Click
Dim sql As String
sql = "INSERT INTO TONGXUE(姓名, 出生年月, 性别, 工作单位, 移动电话, 邮件地址, QQ号码, 从事行业) VALUES ('" & tbxm.Text & "','" & tbcs.Text & "','" & cbxb.Text & "','" & tbdh.Text & "','" & tbyj.Text & "','" & tbtx.Text & "','" & tbgz.Text & "','" & cbhy.Text & "')"
Try
Me.SqlConn.Open()
Me.SqlComm.CommandText = sql
Me.SqlComm.ExecuteNonQuery()
MsgBox("您的数据成功提交!", MsgBoxStyle.YesNoCancel, "提示")
Catch ex As Exception
MessageBox.Show("您的数据没有成功提交!", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Stop)
End Try
Me.SqlConn.Close()
End Sub