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.net从数据库中提取数据
转载请保留出处和原文链接:https://www.cnhackhy.com/11882.htm