《VC语言6.0程序设计从入门到精通》第134章

//根据连接字符串开启数据连接
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　＋　〃＇〃；
//将变量值保存到控件中