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从数据库中提取数据内容请搜索服务器之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持服务器之家！
