设计分析
一般是先数据库查询有三种方法
方法一:使用查询参数构造SQL Select语句,然后使用ADO Command 对象或
RecordSet 执行查询语句
方法二:使用ADOCommand对象创建参数查询。
方法三:先执行Select语句获取数据库数据,将其存放到RecordSet对象
中,然后执行Recordset对象的Find方法查找符合条件的记录 ,或
者设置Recordset对象的Filter属性筛选符合条件的记录
技术要领
MSFlexGrid控件的AddItem 方法用于向控件添加一行数据。
语法:object.AddItem (string,index)
其中,object为MSFlexGrid控件名称,string为包含数据的字符串。如果需要同时添加行中的多列数据,可使用制表符(vbTab)分隔字符串。index为新增加行在控件中的位置,第一行的index为0,如果省略index,则新增行成为控件最后一行
清除MSFlexGrid控件中的数据可使用clear方法,如:MSFlexGrid1.clear也可以使用RemoveItem方法来删除指定的行,如删除第2行
MSFlexGrid1.RemoveItem(2)
使用command对象创建参数查询
步骤:
(1)创建command对象,使用?作为select语句中的查询参数。如:
Objcmd.commandtext="select*from 系统用户 where 用户名 like?"
(2)使用command对象CreatParameter方法创建参数对象,然后将其添加到command对象的Parameters集合中
如:创建一个名为“用户名”的参数对象,然后将其添加到command对象objcmd的Parameters集合中
dim Parm as new parameter
set parm =objcmd.createparameter("用户名",advarchar,adparaminput,10)
objcmd.parameters.append parm
(3)设置查询参数的值。例如
objcmd("用户名")=“admin”
(4)执行command对象的execute方法完成查询
注:如果查询参数在创建时没有指定默认值,则在执行Execute方法前必须设置查询参数的值,否则将产生错误
设计程序界面
编写代码
Dim objCn As Connection, objCmd As Command
Private Sub cmdQuery_Click()
Dim objRs As New Recordset '定义局部记录集对象
objCmd("用户名") = "%" & TxtUser & "%" '获得查询参数
objCmd("身份") = "%" & TxtStatus & "%"
Set objRs = objCmd.Execute()
MSFlexGrid1.Cols = objRs.Fields.Count
'显示列明
For i = 0 To objRs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = objRs.Fields(i).Name
Next
'显示查询结果
Dim n As Integer
n = 0
While Not objRs.EOF
MSFlexGrid1.AddItem (objRs!用户名 & vbTab & objRs!口令 _
& vbTab & objRs!身份)
n = n + 1
objRs.MoveNext
Wend
'显示记录的条数
Label4 = "共获得" & n & "条查询结果"
End Sub
'窗体加载时创建数据库的连接和command对象,并建立参数查询。
Private Sub Form_Load()
Set objCn = New Connection '实例化connection对象objcn
strcn = "provider=microsoft.jet.oledb.4.0;persist security info=false;" & _
"data source=" & "D:\VB98\数据查询\实例5.mdb"
objCn.ConnectionString = strcn '创建数据库连接
objCn.Open
'创建执行参数查询的command对象objcmd
Set objCmd = New Command
Set objCmd.ActiveConnection = objCn
With objCmd
.CommandText = "select * from 系统用户 where 用户名 like ?" & _
"and 身份 like ?"
.CommandType = adCmdText
End With
'为command对象objcmd 创建参数
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
Label4 = "" '清除标签4
End Sub
Private Sub form_unload(cancel As Integer)
Set objCmd = Nothing
objCn.Close
Set objCn = Nothing
End Sub
运行结果
分享到:
相关推荐
初识数据库和Access.doc
用户通过DBMS访问数据库中的数据,数据库管理员也通过DBMS进行数据库的维护工作。它可以支持多个应用程序和用户用不同的方法在同时或不同时刻去建立,修改和询问数据库。大部分DBMS提供数据定义语言DDL(Data ...
初识数据库和Access.pdf
第1章初识数据库和Access.pdf
初识ORACLE数据库的审计功能.doc
初识ORACLE数据库的审计功能.docx
第一章:初第一章:初识数据数据库本章主要讲解数据库安装和数据库基本介绍,考虑易用性及普及度,本课程采取mysql进行教学。1.1 初初识数据数据库数据库是将大量
步入VB开发之门——初识Visual Basic 6.0.ppt
VB-关于CS VB-关于CS VB-关于CS VB-关于CS VB-关于CS VB-关于CS
初识数据库管理系统.pdf
掌握数据库事务处理、并发控制与恢复的基本技术、初步掌握数据库查询处理和优化的概念。并能够在某一个数据库管理系统上进行实验验证。 通过数据库系统概论(新技术篇)的学习,学员可以系统地掌握传统数据库技术的...
为了方便数据的存储和管理,他将数据按照特定的规律存储在硬盘上,通过数据库管理系统,可以有效的组织和管理存储再数据库中的数据。 我们也可以说数据库是由一批数据库的有序集合,这些数据被存放在结构化的数据...
第1章 初识数据库和access
#资源达人分享计划#
2020—2021学年浙教版(2020)七年级下册教案-第13课初识数据结构.pdf
Task01:初识数据库与 SQL.pdf