本网站(662p.com)打包出售,且带程序代码数据,662p.com域名,程序内核采用TP框架开发,需要联系扣扣:2360248666 /wx:lianweikj
精品域名一口价出售:1y1m.com(350元) ,6b7b.com(400元) , 5k5j.com(380元) , yayj.com(1800元), jiongzhun.com(1000元) , niuzen.com(2800元) , zennei.com(5000元)
需要联系扣扣:2360248666 /wx:lianweikj
浅谈如何使用vb.net从数据库中提取数据
ggliuwei · 316浏览 · 发布于2021-06-16 +关注

这篇文章主要介绍了浅谈如何使用vb.net从数据库中提取数据,使用VB提取数据,是先查找,做成数组,再显示到数据里,如果感兴趣可以了解一下

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.Application

Module Module1

 Sub Main()

  'form1 是测试多文档窗口

  'Dim frm1 As New Form1()

  'frm1.Show()

  Dim formStudentSysMain As New FormStudentSysMain()

  formStudentSysMain.Show()

  Do While True

   DoEvents()

  Loop


 End Sub

End 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.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

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.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从数据库中提取数据的文章就介绍到这了,更多相关vb.net从数据库中提取数据内容请搜索脚本之家以前的文章或继续浏览下面的相关文章


相关推荐

使用SELECT语句检索数据

奔跑的男人 · 793浏览 · 2019-06-03 09:33:43
部署MySQL延迟从库的几个好处

吴振华 · 657浏览 · 2019-05-14 21:57:51
MongoDB凭什么跻身数据库排行前五?

iamitnan · 716浏览 · 2019-06-18 10:04:56
Oracle开启和关闭的几种模式

qq2360248666 · 738浏览 · 2019-06-04 10:18:47
加载中

0评论

评论
分类专栏
小鸟云服务器
扫码进入手机网页