服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - vb.net - 浅谈如何使用vb.net从数据库中提取数据

浅谈如何使用vb.net从数据库中提取数据

2021-10-16 14:54sxjljj vb.net

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

1.设置从Model中的Sub Main 启动

浅谈如何使用vb.net从数据库中提取数据

2.程序结构

浅谈如何使用vb.net从数据库中提取数据

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

浅谈如何使用vb.net从数据库中提取数据

?
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

浅谈如何使用vb.net从数据库中提取数据

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

延伸 · 阅读

精彩推荐