vb.net从数据库中取数据

4.FormStudentSysMain.vb

<span style="color: #000000;">Imports System.Data.SqlClient
Public Class FormStudentSysMain
    Public DBConnstr As String </span>= <span style="color: #800000;">"</span><span style="color: #800000;">Data Source=LJJ-FF\LJJ;Initial Catalog=TestMvc;User ID=sa;Password=111111</span><span style="color: #800000;">"</span><span style="color: #000000;">
    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 </span>=<span style="color: #000000;"> Me
        formSearchStudent.WindowState </span>=<span style="color: #000000;"> 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 </span>=<span style="color: #000000;"> Me
        FormSearchStudent.WindowState </span>=<span style="color: #000000;"> 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 </span>=<span style="color: #000000;"> Me
        FormSearchStudent.WindowState </span>=<span style="color: #000000;"> 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</span>

5.FormSearchStudent.vb

<span style="color: #000000;">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 </span>=<span style="color: #000000;"> My.Forms.FormStudentSysMain.DBConnstr
        Dim sqlStr As String </span>= <span style="color: #800000;">"</span><span style="color: #800000;">select * from student </span><span style="color: #800000;">"</span><span style="color: #000000;">
        Dim sqlDataAdapter As New SqlDataAdapter
        Dim dataSet As New DataSet
        Dim sqlConnection As New SqlConnection(sqlConStr)
        If Trim(txtName.Text) </span><> <span style="color: #800000;">""</span><span style="color: #000000;"> Then
            sqlStr </span>= sqlStr & <span style="color: #800000;">"</span><span style="color: #800000;">where name like ‘%</span><span style="color: #800000;">"</span> & Trim(txtName.Text) & <span style="color: #800000;">"</span><span style="color: #800000;">%‘</span><span style="color: #800000;">"</span><span style="color: #000000;">
        End If
        sqlDataAdapter.SelectCommand </span>=<span style="color: #000000;"> New SqlCommand(sqlStr, sqlConnection)
        sqlConnection.Open()
        sqlDataAdapter.Fill(dataSet)
        sqlConnection.Close()
        DataGridView1.DataSource </span>= dataSet.Tables(<span style="color: #800080;">0</span><span style="color: #000000;">)
    End Sub
    Private Sub FormSearchStudent_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
End Class</span>

6.运行结果

vb.net从数据库中取数据

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