这篇文章主要介绍了浅谈如何使用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。网从数据库中提取数据内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们!
郑重声明:本文由网友发布,不代表盛行IT的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。