人事公司成员管理系统课设报告

"数据库连接有错误!")Р End IfР conn.Close()Р End SubР5.3成员信息的添加Р核心代码如下:?РPublic Class Form3Р Public Sub open()Р End SubР Dim Conn As SqlConnectionР Dim Data As SqlDataAdapterР Dim Ds As DataSetР Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickР Me.Close()Р End SubР Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickР Conn = New SqlConnection()Р Conn.ConnectionString = "Data Source=localhost;Initial Catalog=RSDAGLXT;Integrated Security=SSPI"Р Conn.Open()Р If ConnectionState.Open ThenР Dim StrSQL As StringР StrSQL = "insert into 部门信息表(部门编号,部门名称,部门级别)" & " values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "Р m As New mand(StrSQL, Conn)Р Comm.ExecuteNonQuery()