友情提示：如果本网页打开太慢或显示不完整，请尝试鼠标右键“刷新”本网页！
VC语言6.0程序设计从入门到精通-第54部分
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！
m_strConnection。Format（〃％s〃； （char*）m_Conn…》ConnectionString）；
//将变量中的值保存到控件中
UpdateData（FALSE）；
｝
｝
编写好设置数据源的代码，接下来该为“连接”按钮编写响应函数了。在编写此函数之
前，先要编写数据库表名的函数。因为当连接成功时，在 List Box 控件中会显示出数据库中
所有表的名称。为类 CAdoTestView 添加一个函数 void getTables（） ，它是 public 的，用来显
示表名。代码如下：
void CAdoTestView：：getTables（）
｛
_bstr_t tablesNames；
CString kooky；
//先将 List Box 清空
m_ListBox。ResetContent（）；
//将控件中的值保存到变量中
UpdateData（ TRUE）；
try
｛
//创建实例
m_Recordset。CreateInstance（__uuidof（Recordset））；
// 以只读方式打开结果集，得到表名信息
m_Recordset = m_Connection…》OpenSchema （adSchemaTables；vtMissing；vtMissing）；
//如果结果集没有结束
while （！m_Recordset…》adoEOF）
｛
//得到表项的名字
tablesNames = m_Recordset…》GetCollect（〃TABLE_NAME〃）；
kooky = （char*） tablesNames；
//如果是表项，则加到 ListBox 中
if （kooky。Left（4） ！= 〃MSys〃）
m_ListBox。AddString（ kooky ）；
//移到下一个表项
·361 ·
…………………………………………………………Page 373……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
m_Recordset…》MoveNext（）；
｝
｝
//捕获例外__error
catch （__error &e）
｛
GenerateError（e。Error（）； e。Description（））；
｝
//捕捉其他例外
catch（。。。） ｛｝
//将变量中的值保存到控件中
UpdateData（ FALSE ）；
//最后将结果集置为空
m_Recordset = NULL；
｝
现在为“连接”按钮编写响应函数 。具体步骤与为“数据源”按钮添加响应函数的一致，
只是 Object IDs 下拉列表中选择 Connect 按钮的 ID ：IDC_CONNECT ，代码如下：
void CAdoTestView：：OnConnect（）
｛
// TODO： Add your control notification handler code here
//更新变量值
UpdateData（TRUE）；
try
｛
//创建实例
m_Connection。CreateInstance（__uuidof（Connection））；
//根据连接字符串开启数据连接
m_Connection…》Open（ _bstr_t（ m_strConnection。GetBuffer（0） ）； 〃〃； 〃〃； …1）；
｝
//捕获例外__error
catch （__error &e）
｛
GenerateError（e。Error（）； e。Description（））；
｝
//捕捉其他例外
catch（。。。） ｛｝
//将变量中的值保存到控件中
UpdateData（ FALSE ）；
//显示表项名
getTables（）；
·362 ·
…………………………………………………………Page 374……………………………………………………………
第 12 章 数据库开发
｝
按照顺序，为“操作”按钮编写响应函数。代码如下：
void CAdoTestView：：OnExecute（）
｛
// TODO： Add your control notification handler code here
try
｛
//创建实例
m_Recordset。CreateInstance（__uuidof（Recordset））；
//将控件中的值保存到变量中，主要是保存 SQL 语句
UpdateData（TRUE）；
//设定光标服务
m_Connection…》CursorLocation = adUseClient；
//根据连接字符串开启数据连接，得到结果集
m_Recordset…》Open（m_strSQL。GetBuffer（0）； m_Connection。GetInterfacePtr（）； adOpenDynamic；
adLockOptimistic； adCmdText）；
｝
//捕获例外__error
catch （__error &e）
｛
GenerateError（e。Error（）； e。Description（））；
｝
//捕获其他例外
catch （。。。） ｛｝
//将结果集中的内容在 datagrid 中显示出来
m_DataGrid。SetRefDataSource（（LPUNKNOWN）m_Recordset）；
//刷新 DataGrid
m_DataGrid。Refresh（）；
//将变量中的值保存到控件中
UpdateData（FALSE）；
//将结果集置空
m_Recordset = NULL；
｝
在这段代码中，完成了执行 SQL 语句。这是因为记录集转化成 LPUNKNOWN 类型，然
后当做参数传给 DataGrid 控件的方法 SetRefDataSource 即可。
至此，程序已经可以完成对数据库的操作了，但是为了让程序更加完善，当操作结束时，
应该关闭记录集和连接，然后退出。最后还需要为“断开”和“退出”按钮编写响应函数。
“断开”按钮的响应函数如下：
void CAdoTestView：：OnDisconnect（）
｛
·363 ·
…………………………………………………………Page 375……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
// TODO： Add your control notification handler code here
try
｛
//关闭连接
m_Connection…》Close（）；
｝
//捕获__error 例外
catch （__error &e）
｛
GenerateError（e。Error（）； e。Description（））；
｝
//捕获其他例外
catch（。。。） ｛｝
//清空 List Box 控件
m_ListBox。ResetContent（）；
//将 DataGrid 控件置空
m_DataGrid。SetRefDataSource（NULL）；
//将 DataGrid 控件设置成默认状态
m_DataGrid。ClearFields（）；
//刷新 DataGrid
m_DataGrid。Refresh（）；
//将 SQL 语句清空
//这里不清空连接语句，是为了断开连接以后如果重新连接不需要重新设定数据源
m_strSQL = 〃〃；
//将变量值保存到控件中
UpdateData（FALSE）；
｝
为“退出”按钮编写如下响应函数：
void CAdoTestView：：OnQuit（）
｛
// TODO： Add your control notification handler code here
try
｛
//关闭记录集
if （m_Recordset ！= NULL）
m_Recordset…》Close（）；
//关闭连接
if （m_Connection ！=NULL）
m_Connection…》Close（）；
｝
·364 ·
…………………………………………………………Page 376……………………………………………………………
第 12 章 数据库开发
//捕获例外
catch（。。。）｛｝
//退出
PostMessage（WM_QUIT）；
｝
至此，基本功能已经全部完成 。为了让用户操作起来更加方便，下面介绍为添加的辅助
功能编写代码。
（3 ）为附加功能编写代码
首先，当用户单击 List Box 控件中的某一表项时，在 DataGrid 控件中会相应地出现此表
中所有的记录。当用户在 List Box 中单击一项时，会激发 LBN_SELCHANGE 消息，下面为
此消息添加处理函数。打开“ClassWizard ”对话框，在“Class name ”下拉菜单中选择
CAdoTestView，在“Object Ids ”下拉列表中选择 IDC_LISTBOX，在“Messages ”下拉列表
中选择 LBN_SELCHANGE ，单击“Add Function ”，采用默认的函数名，然后依次单击“OK ”
和“Edit Code ”按钮，定位到函数 CAdoTestView：：OnSelchangeListbox（），代码如下：
void CAdoTestView：：OnSelchangeListbox（）
｛
// TODO： Add your control notification handler code here
//得到鼠标单击项在 List Box 中的索引值
int index = m_ListBox。GetCurSel（）；
//根据索引值得到表项的名字
m_ListBox。GetText（index； m_strTableName）；
//构造 SQL 查询语句
m_strSQL = 〃select * from ＇〃 ＋ m_strTableName ＋ 〃＇〃；
//将变量值保存到控件中
UpdateData（FALSE）；
//进行查询
OnExecute（）；
｝
接下来实现单击某列进行排序的功能 。在程序中要用到两个类：CColumn 和 CColumns 。
在 CAdoTestView。cpp 的开头，需要加入语句#include 〃column。h〃 和 #include 〃columns。h〃 ，将
头文件包含进来。
当在 DataGrid 中单击某列时，会激发 HeadClick 消息。下面为此消息添加响应函数：打
开“ClassWizard ”对话框，在“Class name ”下拉菜单中选择 CAdoTestView，在“Object Ids ”
下拉列表中选择 IDC_DATAGRID，在“Messages ”下拉列表中选择 HeadClick ，单击“Add
Function ”，采用默认的函数名，然后依次单击“OK ”和“Edit Code ”按钮，定位到函数 void
CAdoTestView：：OnHeadClickDatagrid（short ColIndex），代码如下：
void CAdoTestView：：OnHeadClickDatagrid（short ColIndex）
｛
// TODO： Add your control notification handler code here
·365 ·
…………………………………………………………Page 377……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
//得到 DataGrid 中表示各列信息的类
CColumns cols = m_DataGrid。GetColumns（）；
//此参数用来得到具体某一列
VARIANT index；
//值为 index
index。intVal = ColIndex；
//类型为整型
index。vt = VT_I4；
//得到单击列
CColumn col = cols。GetItem（index）；
//得到此列的名字
m_strTableName = col。GetCaption（）；
//排序必须是在已经建立连接的情况下
if（m_Connection ！= NULL）
｛
//排序还必须在表名存在的情况下
if（m_strTableName。GetLength（） ！= 0）
｛
//得到查询语句的长度，后面会用到
int nOriginalLength = m_strSQL。GetLength（）；
//构造新的查询语句
CString strTmp = 〃 order by ＇〃 ＋ m_strTableName ＋ 〃＇〃；
if（isDesc）
｛
strTmp = strTmp ＋ 〃 desc〃；
isDesc = FALSE；
｝
else
isDesc = TRUE；
m_strSQL ＋= strTmp；
//将变量值保存到控件中
UpdateData（FALSE）；
//对新的查询语句进行查询
OnExecute（）；
//恢复原查询语句，这样做是为了再单击别的列，可以对别的列进行排序
m_strSQL。Delete（nOriginalLength； strTmp。GetLength（））；
｝
｝
｝
至此，所有的代码均已编写完毕 。这段代码已经实现了对数据库的基本操作。可见，用
·366 ·
…………………………………………………………Page 378……………………………………………………………
第 12 章 数据库开发
ADO 技术进行数据库开发非常方便，且简单易学。同时，DataGrid 控件的使用可以使得程序
员不再为数据的显示做很多繁琐的事情，从而大大简化了代码的编写。
（4 ）运行程序
对程序编译、链接，然后运行（这里要注意，在编译的时候会出现如下的警告：
msado15。tlh（403） ： warning C4146： unary minus operator applied to unsigned type； result still
unsigned 。对此微软在 MSDN 中作了说明，并建议不要理会这个警告），可以看到运行界面如
图 12…26 所示。
图 12…26 程序运行界面
单击“数据源”按钮，打开如图 12…27 所示的“数据链接属性 ”对话框。单击“提供者”
选项卡。
图 12…27 “数据源链接属性”对话框 图 12…28 连接 Access 数据
本例中，用来测试的数据库是在 Access 2002 下建立的，在这里要选择“Microsoft Jet 4。0
OLE DB Provider ”，如果是在 Access 97 下建立的，则要选择“Microsoft Jet 3。51 OLE DB
·367 ·
…………………………………………………………Page 379……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
Provider ”，如果是其他类型数据库，也有相应的 Provider 可以选择。然后单击“下一步”按
钮，对话框如图 12…28 所示。在这里数据库选择第 2 节建好的数据库 Info。mdb ，单击“确定”
按钮，数据源设置完成 。可见，利用 组件 DataSourceLocator 设置数据源是非常方便的，
而在编写程序的时候，也只需要一个 PromptNew（） 函数即可。
设好数据源后回到原运行界面，会发现在第一个 Edit 控件栏中已经填好了连接语句 。单
击“连接”按钮，在左侧的 List Box 控件栏中会出现 Info。mdb 数据库中的“Contact ”和“Personal ”
两个表的名字，如图 12…29 所示。
图 12…29 刚连接时的界面
如果想看表 Personal 的内容，只需要用鼠标左键单击 List Box 控件栏中的“Personal ”项，
则在 DataGrid 控件中便会显示出表 Personal 中的所有记录，如图 12…30 所示。
图 12…30 显示表 Personal 中的所有记录
如果需要记录中的详细资料，如王明的联系方式，可利用第 3 节介绍的 SQL 语句，只需
要在第 2 个 Edit 控件栏中填写 select * from Contact where Name = ’王明’，然后单击“操作”
·368 ·
…………………………………………………………Page 380……………………………………………………………
第 12 章 数据库开发
按�
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示： 温看小说的同时发表评论，说出自己的看法和其它小伙伴们分享也不错哦！发表书评还可以获得积分和经验奖励，认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦！