vb.net mysql 记录数_vb.net从数据库中取数据

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