vb.net从数据库中取数据

vb.net从数据库中取数据1.设置从Model中的SubMain启动2.程序结构3.Model14.FormStudentSysMain.vb5.FormSearchStudent.vb6.运行结果

大家好,又见面了,我是你们的朋友全栈君。

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

<span role="heading" aria-level="2">vb.net从数据库中取数据

2.程序结构

<span role="heading" aria-level="2">vb.net从数据库中取数据

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

<span role="heading" aria-level="2">vb.net从数据库中取数据

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

<span role="heading" aria-level="2">vb.net从数据库中取数据

 

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.运行结果

<span role="heading" aria-level="2">vb.net从数据库中取数据

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/155767.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 父组件向子组件传值步骤

    父组件向子组件传值步骤父组件向子组件传值步骤:在这里先定义一下,相对本案例来说:App.vue是父组件,Second-module.vue是子组件。一、首先,值肯定是定义在父组件中的,供所有子组件共享。所以要在父组件的data中定义值:二、其次,父组件要和子组件有契合点:就是在父组件中调用、注册、引用子组件:调用:注册:引用:三、接下来,就可以在父组件和子组件链接的地方(即引用子组件的标签上),把父组件的值绑定给子组件:这里我绑定了两个值,一个是数组,一个是字符串。2018-03-3010:15:

  • 腾讯云服务器安装宝塔教程_云服务器的安装

    腾讯云服务器安装宝塔教程_云服务器的安装安装SVN服务端1、安装Subversion(Subversion是一个版本控制系统,相对于的RCS、CVS,采用了分支管理系统,它的设计目标就是取代CVS。)yum命令安装SVN:yuminsatll-ysubversion2、创建SVN版本库2.1创建项目版本库:mkdir-p/data/svn/myproject2.2配

    2022年10月17日
  • 百度快照更新周期、百度收录更新时间[通俗易懂]

    百度快照更新周期、百度收录更新时间[通俗易懂]很多做SEO的都不清楚百度快照的更新周期,所以很多时候都不能有针对性的对网站进行操作,错过了很多机会。百度收录的更新日期一般是每个月的11号和26号,特别是26号,更新最大,但K站也是最多的。另外百度也有一个小的更新的日期,即每周四凌晨4点左右,对网站的访问量没有什么效果,只有到了中午的日期,百度对网站关键字的搜索停止重新调整之后,才会有访问量上的大的变化,有升有降。总体上来说是大致为一个

  • Visifire WPF 图表控件 激活成功教程「建议收藏」

    Visifire WPF 图表控件 激活成功教程「建议收藏」可能用WPF生成过图表的开发人员都知道,WPF虽然本身的绘图能力强大,但如果每种图表都自己去实现一次的话可能工作量就大了,尤其是在开发时间比较紧的情况下。这时候有必要借助一种专业的图表工具。Visifire是专为WPF、SliverLight、WP开发人员制定的一套图表控件,实现了一系列的专业图表(如:柱图、点图、雷达、饼图、K线图、以及其组合图等)。它在4….

  • SQL Prompt 激活下载激活成功教程码注册码序列号,内有方法

    SQL Prompt 激活下载激活成功教程码注册码序列号,内有方法1,工具免不要积分的百度盘的方法连接:https://pan.baidu.com/s/1saNRIv6_FdPcjEQV2puWpQ工具连接:https://pan.baidu.com/s/1I4AQss2UKCBq5D7BNCX4PQ2,安装SQLPrompt 3,激活 打开SQLServer在工具栏点击SQLPrompt 打开SQL.Prompt.Keygen….

  • 万能头文件可能产生的副作用_头文件使用std

    万能头文件可能产生的副作用_头文件使用std可能有些大型比赛会禁止使用这个头文件,我个人建议,大家尽量还是熟悉原来的文件比较好哈,要是比赛时实在忘了可以应急使用最近在打一些比赛,翻阅别人的代码时总是会发现一个陌生而奇怪的头文件#include<bits/stdc++.h>奇怪之处就在于基本上所有的代码只要用了这个头文件就不再写其他头文件了。百度过后仿佛打开了新世界的大门,头文件居然还可以这样用!!!#include&lt…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号