vb.net从数据库中取数据

4.FormStudentSysMain.vb

Imports System.Data.SqlClient
Public Class FormStudentSysMain
    Public DBConnstr As String = "Data Source=LJJ-FF\LJJ;Initial Catalog=TestMvc;User ID=sa;Password=111111"
    Private Sub quitMenuItem_Click(sender As Object, e As EventArgs) Handles quitMenuItem.Click
        End
    End Sub

    Private Sub selectinfoMenuItem_Click(sender As Object, e As EventArgs) Handles selectinfoMenuItem.Click
        Dim formSearchStudent As New FormSearchStudent
        formSearchStudent.MdiParent = Me
        formSearchStudent.WindowState = FormWindowState.Normal
        formSearchStudent.Show()
    End Sub

    Private Sub updateinfoMenuItem1_Click(sender As Object, e As EventArgs) Handles updateinfoMenuItem1.Click
        Dim formStudentInfo As New FormStudentInfo
        FormSearchStudent.MdiParent = Me
        FormSearchStudent.WindowState = FormWindowState.Normal
        formStudentInfo.Show()
    End Sub

    Private Sub importscoreMenuItem_Click(sender As Object, e As EventArgs) Handles importscoreMenuItem.Click
        Dim formStudentCourse As New FormStudentCourse
        FormSearchStudent.MdiParent = Me
        FormSearchStudent.WindowState = FormWindowState.Normal
        formStudentCourse.Show()
    End Sub

    Private Sub cascadeMenuItem_Click(sender As Object, e As EventArgs) Handles cascadeMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub horizonMenuItem_Click(sender As Object, e As EventArgs) Handles horizonMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub verticalMenuItem_Click(sender As Object, e As EventArgs) Handles verticalMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub FormStudentSysMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

5.FormSearchStudent.vb

Imports System.Data.SqlClient
Public Class FormSearchStudent

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sqlConStr As String = My.Forms.FormStudentSysMain.DBConnstr
        Dim sqlStr As String = "select * from student "
        Dim sqlDataAdapter As New SqlDataAdapter
        Dim dataSet As New DataSet
        Dim sqlConnection As New SqlConnection(sqlConStr)
        If Trim(txtName.Text) <> "" Then
            sqlStr = sqlStr & "where name like ‘%" & Trim(txtName.Text) & "%‘"
        End If
        sqlDataAdapter.SelectCommand = New SqlCommand(sqlStr, sqlConnection)
        sqlConnection.Open()
        sqlDataAdapter.Fill(dataSet)
        sqlConnection.Close()

        DataGridView1.DataSource = dataSet.Tables(0)



    End Sub

    Private Sub FormSearchStudent_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

6.运行结果

vb.net从数据库中取数据

标签：结构   do while   rms   height   mybase   sel   多文档   cat   ada