提交资料的代码

老卫-COZE开发

于 2005-11-26 16:39:00 发布

阅读量761

点赞数

CC 4.0 BY-SA版权

文章标签： exception sql insert string 电话工作

本文链接：https://blog.youkuaiyun.com/ihwren/article/details/537296

博客展示了一段VB.NET代码，用于向TONGXUE表插入数据。代码定义SQL插入语句，尝试打开数据库连接并执行插入操作，若成功则提示数据提交成功，若出现异常则提示未成功提交，最后关闭数据库连接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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