vb.net 操作数据库

======在窗体中添加DataGrid==========
 
Sub classquery()
        Dim str As String
        Dim ds As New DataSet
        Dim da As SqlDataAdapter

        str = "Data Source=localhost;Initial Catalog = Student;integrated Security=true"
        Dim con As New SqlConnection(str)
        con.Open()
        Dim sql As String = "select * from student_Info where 教室代码 = '" & TextBox1.Text.ToString().Trim() & "' "
        da = New SqlDataAdapter(sql, con)
        da.Fill(ds)
        DataGrid1.DataSource = ds.Tables(0)
    End Sub
======此方法是检验数据是否已存在============
 Sub singleYanzheng()
        Dim str As String
        str = "Data Source=localhost;Initial Catalog = Student;integrated Security=true"
        Dim con As New SqlConnection(str)
        con.Open()
        Dim sql As String = "select * from depart_Info where 系部ID='" & TextBox1.Text.ToString().Trim() & "' "
        Dim cmd As New SqlCommand(sql, con)
        Dim reader As SqlDataReader
        reader = cmd.ExecuteReader
        If reader.Read() = True Then
            MsgBox("该部门号已存在")
        Else
            addDepartInfo()
            MsgBox("success")
            clear()
        End If
    End Sub
========执行插入动作===========
 Sub addDepartInfo()
        Dim str As String
        str = "Data Source=localhost;Initial Catalog = Student;integrated Security=true"
        Dim con As New SqlConnection(str)
        con.Open()
        Dim sql As String = "insert into depart_Info(系部ID,系部名称,系主任) values('" & TextBox1.Text.ToString().Trim() & "','" & TextBox2.Text.ToString().Trim() & " ','" & TextBox3.Text.ToString().Trim() & "') "
        Dim cmd As New SqlCommand(sql, con)
        Try
            cmd.ExecuteNonQuery()  '执行SQL语句
        Catch e As Exception
            Console.WriteLine(e.Message) '无法执行时提示出错信息
        End Try
        Console.WriteLine("Record Added")
    End Sub