浅谈如何使用vb.net从数据库中提取数据
更新时间:2020年07月14日 17:31:49 作者:sxjljj
这篇文章主要介绍了浅谈如何使用vb.net从数据库中提取数据,使用VB提取数据,是先查找,做成数组,再显示到数据里,如果感兴趣可以了解一下
1.设置从Model中的Sub Main 启动
2.程序结构
3.Model1
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
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
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从数据库中提取数据内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!
您可能感兴趣的文章:
- Asp.Net Core中创建多DbContext并迁移到数据库的步骤
- 在.NetCore(C#)中使用ODP.NET Core+Dapper操作Oracle数据库
- asp.net实现存储和读取数据库图片
- .NET Core Dapper操作mysql数据库的实现方法
- C# Ado.net实现读取SQLServer数据库存储过程列表及参数信息示例
- ASP.NET Core2读写InfluxDB时序数据库的方法教程
- ASP.NET WebAPI连接数据库的方法
- .net core利用orm如何操作mysql数据库详解
- .net core下配置访问数据库操作
- .net数据库操作框架SqlSugar的简单入门
相关文章
-
VB判断地址是否存在的XMLHTTP方法2008-07-07
-
这篇文章主要介绍了VB实现屏蔽文本框右键菜单的复制、粘贴等功能,是非常实用的一个功能,需要的朋友可以参考下2014-07-07
-
这篇文章主要介绍了浅谈如何使用vb.net从数据库中提取数据,使用VB提取数据,是先查找,做成数组,再显示到数据里,如果感兴趣可以了解一下2020-07-07
-
VB编程基础课教程...2007-03-03
-
这篇文章主要介绍了VBA数组用法案例详解,本篇文章通过简要的案例,讲解了该项技术的了解与使用,以下就是详细内容,需要的朋友可以参考下2021-08-08
-
这篇文章主要介绍了Windows 10 x64 安装 Visual Basic 6.0 SP6注意事项,需要的朋友可以参考下2023-06-06
-
这篇文章主要介绍了VB十七种可用一行代码完成判断的技巧代码,需要的朋友可以参考下2022-12-12
-
VB编程的八个优良习惯...2007-03-03
-
这篇文章主要介绍了VBA中连接SQLSERVER数据库例子,VBA是指Visual Basic for Applications,是Visual Basic的一种宏语言,需要的朋友可以参考下2014-07-07
-
VB简易记事本实现代码,需要的朋友可以参考下2012-10-10
最新评论