这篇文章主要介绍了浅谈如何使用VB。网从数据库中提取数据，使用动词提取数据，是先查找，做成数组，再显示到数据里，如果感兴趣可以了解一下
1.设置从Model中的Sub Main 启动
2.程序结构
3.Model1
进口系统窗户。窗体。应用程序
模块模块一
副总管()
表格一是测试多文档窗口
将frm1作为新表单一标注()
frm1 .显示()
dim formstudentysmain As New formstudentysmain()
formStudentSysMain .显示()
当真实时做
DoEvents()
环
末端接头
末端模块
4.FormStudentSysMain.vb
进口系统数据。SqlClient
公共类表单学生系统主
public DBConnstr As String= Data Source=LJJ-FF LJJ；初始目录=TestMvc用户ID=sa密码=111111
private Sub quitMenuItem _ Click(发送方作为对象，e作为EventArgs)处理退出菜单项.点击
结束
末端接头
私有Sub selectinfoMenuItem _ Click(发件人作为对象，e作为EventArgs)处理选择infoMenuItem .点击
将表单搜索学生调暗为新表单搜索学生
formSearchStudent .MdiParent=我
formSearchStudent .WindowState=FormWindowState .常态
formSearchStudent .显示()
末端接头
私有Sub updateinfoMenuItem1 _ Click(发送方作为对象，e作为EventArgs)处理updateinfomenuitem 1 .点击
Dim表单学生信息作为新的formStudentInfo
FormSearchStudent .MdiParent=我
FormSearchStudent .WindowState=FormWindowState .常态
formStudentInfo .显示()
末端接头
私有子importscoreMenuItem _ Click(发件人作为对象，e作为EventArgs)处理importscoreMenuItem .点击
将表单学生课程修改为新表单学生课程
FormSearchStudent .MdiParent=我
FormSearchStudent .WindowState=FormWindowState .常态
表单学生课程.显示()
末端接头
private Sub cascade menuitem _ Click(sender作为对象，e作为EventArgs)处理级联菜单项.点击
我LayoutMdi(MdiLayout .级联)
末端接头
private Sub horizon menuitem _ Click(发件人作为对象，e作为EventArgs)处理地平线菜单项.点击
我LayoutMdi(MdiLayout .TileHorizontal)
末端接头
private Sub vertical menuitem _ Click(发件人作为对象，e作为EventArgs)处理垂直菜单项.点击
我LayoutMdi(MdiLayout .TileVertical)
末端接头
私有子窗体studentysmain _ Load(发送方作为对象，e作为EventArgs)处理我的基地.负荷
末端接头
结束类
5.FormSearchStudent.vb
进口系统数据。SqlClient
公共类表单搜索学生
私有子标签1 _单击(发送者作为对象，例如EventArgs)处理标签1。点击
末端接头
私有子按钮1 _ Click(发件人作为对象，例如作为EventArgs)处理按钮1 .点击
Dim sqlConStr As String=My .表格。formstudentysmain。dbconnstr
dim sqlStr As String= select * from student
将sqlDataAdapter dim作为新的sqldata适配器
将数据集标注为新数据集
将sqlConnection维度作为新的SqlConnection(sqlConStr)
If Trim(txtName .文本)""然后
sqlStr=sqlStr 其中名称类似“%”Trim(txt name .文本)"%"
如果…就会结束
sqlDataAdapter .select command=New SqlCommand(sqlStr，sqlConnection)
sqlConnection .打开()
sqlDataAdapter .填充（数据集)
sqlConnection .关闭()
DataGridView1 .数据源=数据集。表格(0)
末端接头
私有子窗体search student _ Load(发件人作为对象，e作为EventArgs)处理我的基地.负荷
末端接头
结束类
6.运行结果
到此这篇关于浅谈如何使用VB。网从数据库中提取数据的文章就介绍到这了，更多相关VB。网从数据库中提取数据内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们！
