按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
//根据连接字符串开启数据连接
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 ＋ 〃＇〃；
//将变量值保存到控件中