到今天为⽌，终于敲完红⽪书中的第5个例⼦。这个例⼦敲的最长，特对此例⼦进⾏⼀下总结。实例5是“数据查询”。数据查询是⼀般的数据库管理系统的基本功能之⼀，⽤于从数据检索符合条件的数据。 simota⼀、原理分析
本例使⽤ADO Command对象创建参数查询，并⽤MSFlexGrid显⽰查询结果。因为Command对象查询返回的是⾏值⾮记录集。⾏值不⽀持标签，因此不能将其作为数据绑定的数据源。显⽰查询结果常⽤MSFlexGrid控件，通过代码将数据填充⾄控件中进⾏显⽰。 ⼆、技术要领pbs配方
1. Command
1) 创建对象
创建Command对象使⽤？作为Select语句中的查询参数
举例：
CommandText = "SELECT * FROM 系统⽤户 WHERE ⽤户名 LIKE ? AND ⾝份 LIKE ?"
2) 创建参数
使⽤Command对象CreateParameter⽅法创建参数对象，将其添加到Command对象的Parameter集合中
举例：
Dim Parm As New Parameter
Set Parm = objCmd.CreateParameter("⽤户名", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
3）设置参数
设置查询对数的值
举例：
objCmd("⽤户名") = "%" & txtUser & "%"
4) 执⾏查询
低温油墨
执⾏Command对象的Execute⽅法完成查询
举例：
单兵作战系统Set objRs = objCmd.Execute() '执⾏查询，获得查询结果记录集
2. MSFlexGrid
1) 属性
Cols——设置或返回控件的列数
Rows——设置或返回控件的⾏数
TextMatrix——设置和返回控件任意单元格的⽂本内容
举例：把objRs的字段名添加到MSFlexGrid的⾸⾏
代码：
For i = 0 To objRs.Fields.Count - 1
热流道模具MSFlexGrid1.TextMatrix(0, i) = objRs.Fields(i).Name
Next
2）⽅法
AddItem——⽤于向控件添加⼀⾏数据
格式：object.AddItem(string[,index])
说明：String为所要添加数据的字符串
Index为新增加⾏在控件中的位置，第⼀⾏为0、第⼆⾏1、……，如果省略，默认添加在最后 ⼀⾏Clear——⽤于清除所有数据
液压滑环
格式：object.Clear
RemoveItem——⽤来清除指定的⾏
格式：object.RemoveItem（index）
三、窗体设计
四、代码过程
具体代码就不写在此了，只列出思路。
1. Form_Load
建⽴数据库连接
创建Command对象objCmd
为ojbCmd创建参数
2. cmdQuery_Click
设置查询参数
执⾏查询
显⽰结果
列名
⾏值
记录条数
3. Form_Unload
关闭数据库连接
释放对象
五、所遇问题
六、⼼得总结
千⾔万语，总之⼀句话：千淘万漉虽⾟苦，吹尽狂沙始到⾦。话可能过，但理是真的。
