1.設置從Model中的Sub Main 啟動
2.程序結構
3.Model1
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Imports System.Windows.Forms.ApplicationModule Module1 Sub Main() 'form1 是測試多文檔窗口 'Dim frm1 As New Form1() 'frm1.Show() Dim formStudentSysMain As New FormStudentSysMain() formStudentSysMain.Show() Do While True DoEvents() Loop End SubEnd Module |
4.FormStudentSysMain.vb
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
Imports System.Data.SqlClientPublic 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 SubEnd Class |
5.FormSearchStudent.vb
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Imports System.Data.SqlClientPublic 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 SubEnd Class |
6.運行結果
到此這篇關于淺談如何使用vb.net從數據庫中提取數據的文章就介紹到這了,更多相關vb.net從數據庫中提取數據內容請搜索服務器之家以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持服務器之家！
