VB 数据库交互(二)——经典五实例总结
上一篇讲到了VB与数据库交互的必备知识,这张从经典实例的方向出发,讲述一些经典的代码。
1,在系统登录的例子中:
a,建立数据库连接,和执行查询命令:
'建立数据库连接set objcn=new Connection'实例化Connection对象
objcn.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;" & _"Data Source =" & App.Path & "\实例1.mdb" '连接数据库,包括连接方式和数据源路径
objcn.Open
'执行查询命令,获得用户登录口令
strSQL = "select 口令 from 系统用户 where 用户名='" & UserName & "'"
Set objrs.ActiveConnection = objcn
objrs.Open (strSQL)
b,关闭数据库,释放对象:
objcn.Close
Set objrs = Nothing
Set objcn = Nothing
2.在记录浏览例子中:
a,显示当前记录:
txtUserName = objrs.Fields("用户名").Value
txtPassword = objrs.Fields("口令").Value
txtmsg = objrs.AbsolutePosition & "/" & objrs.RecordCount
b ,向前向后翻记录:
objrs.MovePrevious'使前一记录成为当前记录
'如果记录指针指向第一个记录之前,则使其指向第一个记录集。
Ifobjrs.BOF Then objrs.MoveFirst
objrs.MoveNext'使下一记录成为当前记录
If objrs.EOF Thenobjrs.MoveLast
d.更新保存记录:
objrs.Fields("用户名").Value = txtUserName
objrs.Fields("口令").Value = txtPassword
objrs.Update '执行更新操作
3,在数据绑定浏览记录实例中,主要使用了ADO Data控件
这个例子主要是通过ADD Data控件将数据库和VB控件连接起来了,通过ADDData控件的前后按钮,就可以将数据库中数据浏览的很好!
4,在分页显示记录中,
使用了DataGrid控件来显示数据,中间通过一个新的记录集,将分页的数据传到Data Grid 控件上,这样来实现分页显示数据的。
在这里我想说一下datagrid控件和msflexgrid控件的区别:
在分页显示记录中需要显示当前记录页数据,方法一:使用DataGrid控件;DataGrid控件可显示记录集中的全部数据,所以不能直接将分页的记录集绑定到DataGrid控件,需要先将当前记录页中的记录复制到一个新的记录集中,再将其绑定到DataGrid控件,便可显示当前记录也数据。方法二:使用MSFlexGrid控件;其可在设计时将其绑定到Data控件,在运行时,则可通过设置控件的TextMatrix属性来显示数据。MSFlexGrid控件比较灵活因为其有TextMatrix属性(设置和返回控件任意单元格的文本内容),所以在做显示数据时,直接可通过循环在其中填充数据(数据有灵活性,可填充一部分,也可全部填充,所以分页显示效果较容易实现)。
a,创建一个局部recordset对象保存objrs当前记录页数据:
Dim objdatasource As New Recordset
For intRecord = 0 To objrs.Fields.Count - 1objdatasource.Fields.Append objrs.Fields(intRecord).Name, adVarChar, objrs.Fields(intRecord).DefinedSize
Next
b,将当前页的记录数据写到objDataSource中:
For intRecord = 1 To objrs.PageSize '将当前记录页中数据写入objdatasource中objdatasource.AddNewobjdatasource!用户名 = objrs!用户名objdatasource!口令 = objrs!口令 ' 感叹号“!”常用于当一个控件作为一个特性访问的情况下,'例如如引用Fomr2中Text1文本框文本属性时,可采用response$=Form2!text1.text语法格式。objdatasource!身份 = objrs!身份objrs.MoveNextIf objrs.EOF Then Exit ForNext
5,在数据查询实例中,本例使用了ADO Command对象创建参数查询。
a,创建执行参数查询的Command对象objcmd:
Set objcmd = New Command '创建执行参数查询的command对象objcmd
Set objcmd.ActiveConnection = objcn
With objcmd.CommandText = "select * from 系统用户 where 用户名 like?" & "and 身份 like?".CommandType = adCmdTextEnd With
b,使用command对象 createparameter创建参数对象,然后将其添加到command对象的parameters集合中。
Dim parm As New Parameter
Set parm = objcmd.CreateParameter("用户名", adVarChar, adParamInput, 10)
objcmd.Parameters.Append parm
Set parm = objcmd.CreateParameter("身份", adVarChar, adParamInput, 10)
objcmd.Parameters.Append parm
c,获得查询参数,执行查询结果:
Dim objrs As New Recordset '定义局部记录集对象
objcmd("用户名") = "%" & txtuser & "%" '获得查询参数,%作用是,取只有包含txtuser字符串的即可
objcmd("身份") = "%" & txtstatus & "%"
Set objrs = objcmd.Execute() '执行查询,获得查询结果记录集MSFlexGrid1.Cols = objrs.Fields.Count
d,显示列名,和查询结果:
'显示列名
For i = 0 To objrs.Fields.Count - 1MSFlexGrid1.TextMatrix(0, i) = objrs.Fields(i).Name
Next
'显示查询结果
n = 0
While Not objrs.EOFMSFlexGrid1.AddItem (objrs.Fields(0) & vbTab & objrs.Fields(1) & vbTab & objrs!身份)'在这里objrs.fields(0)和objrs!用户名 的效果是相同的n = n + 1objrs.MoveNext
Wend
这些代码都是一些经典的实现部分,非常有用,为我们后边的学生信息系统会打下很好的基石!就像我们盖房子一样,这些都是砖瓦泥灰,是我们砌成高楼大厦的基础!
VB 数据库交互(二)——经典五实例总结相关推荐
- SQL2K数据库开发二十六之存储过程操作创建存储过程(一)
1.可以使用Transact-SQL中的CREATE PROCEDURE语句创建存储过程,使用该语句的语法为: 2.在查询分析器中执行如下语句创建一个存储过程. 3.在企业管理器中创建存储过程的方法为 ...
- 二十五个软件测试经典面试题,你确定不收藏一波?
二十五个软件测试经典面试题全在这里了,有兴趣的朋友建议收藏一波,或者留言交流! 1.在搜索引擎中输入汉字就可以解析到对应的域名,请问如何用LoadRunner进行测试? 建立测试计划,确定测试标准和测 ...
- objectarx用户交互_AutoCAD2010二次开发实例教程(附光盘ObjectARX)
导语 AutoCAD软件二次开发牵涉的面非常广,不可能在一本书中将其完全论述.王文波和邹清源等编著的<AutoCAD2010二次开发实例教程>把AutoCAD软件二次开发的内容归为实体对象 ...
- go 连接服务器 并存放图片_基于 Go 语言开发在线论坛(二):通过模型类与MySQL数据库交互...
在这篇教程中,我们将在 MySQL 中创建一个 chitchat 数据库作为论坛项目的数据库,然后在 Go 项目中编写模型类与之进行交互.你可以本地安装 MySQL 数据库,也可以基于 Docker ...
- python画鱼_Python经典五人分鱼实例讲解
A.B.C.D.E 五人在某天夜里合伙去捕鱼,到第二天凌晨时都疲惫不堪,于是各自找地方睡觉. 日上三杆,A 第一个醒来,他将鱼分为五份,把多余的一条鱼扔掉,拿走自己的一份. B 第二个醒来,也将鱼分为 ...
- 与mysql数据库的交互实战_基于 Go 语言开发在线论坛(二):通过模型类与MySQL数据库交互...
在这篇教程中,我们将在 MySQL 中创建一个 chitchat 数据库作为论坛项目的数据库,然后在 Go 项目中编写模型类与之进行交互.你可以本地安装 MySQL 数据库,也可以基于 Docker ...
- MySQL数据库教程之十五:MySQL触发器实例
MySQL数据库教程之十五:MySQL触发器实例 准备工作: 先启动Navicat for MySQL,建立数据库 建立两个表:Goods(商品表).Orders(订单表) Goods(商品表) cr ...
- Oracle(11g)数据库教程之十五:Oracle触发器实例
Oracle(11g)数据库教程之十五:Oracle触发器实例 准备工作: 先启动Oracle,连接数据库 建立两个表:Goods(商品表).Orders(订单表) Goods(商品表) create ...
- 五人分鱼python_Python经典五人分鱼代码实例解析
本篇文章小编给大家分享一下Python经典五人分鱼代码实例解析,文章代码介绍的很详细,小编觉得挺不错的,现在分享给大家供大家参考,有需要的小伙伴们可以来看看. A.B.C.D.E 五人在某天夜里合伙去 ...
最新文章
- php 脏数据,使用 PHP Masked Package 屏蔽敏感数据
- 【转】__declspec用法详解
- 实验3 --俄罗斯方块 with 20135335郝爽
- java生成html表格数据_使用Java将表格数据导出成Excel格式
- des java c_这个des加密,到底是用的哪种类型?
- python 提升工作效率_Python那些事——5个提升生产效率的Python开发和配置的小技巧...
- 5中sender方法介绍_【成长】开学第一次自我介绍如何作?5步方法留下好印象受益5年...
- Linux中7个判断文件系统类型的方法
- Linux基础——怎么样从手机 (Android安卓/IOS苹果) 通过 SSH 远程 Linux
- 安装Spark集群(在CentOS上)
- dom4j 基本操作
- SQL Server代理(SQLEXPRESS)无法启动
- html项目答辩策划书,职业生涯规划大赛答辩会策划书
- jQuery实现打地鼠游戏
- 资深程序员给Java初学者的学习路线建议
- 不规则四边形填充平面 - Townscaper 网格生成算法复现
- Python回归预测建模实战-随机梯度下降法预测房价(附源码和实现效果)
- 嵌入式系统和嵌入式操作系统
- JavaEE系统架构师学习路线之基础篇
- E03.03 A ‘Masculinity Crisis’? China Says the Boys Are Not All Right