在Access数据中导入和导出一般文件.docVIP

在Access数据库中导入和导出一般文件 ●创建MFC基于对话框程序项目filetomdb 插入一个List Box控件IDC_LISTFILENAME（显示数据库中文件名字段内容），一个编辑控件IDC_EDITFILENAME（显示在列表框中选择的文件名，以后可以用来修改文件名），两个按钮控件导入IDC_BUTTONIN和导出IDC_BUTTONOUT。 使用类向导为列表框绑定一个控件型变量m_list。 在工作区文件夹准备数据库文件db1.mdb，包含filemdb表，包含三个字段filename(文本),filedata(ole对象), pr_info(备注) 在CFiletomdbDlg类加入下面两个成员变量 _RecordsetPtr pRstPubInfo; _ConnectionPtr pConnection; ●在stdafx.h文件加入下面命令： #import c:\Program Files\Common Files\System\ADO\msado15.dll no_namespace rename(EOF, EndOfFile) #define ChunkSize 100 inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);}; ●在CFiletomdbDlg类初始化OnInitDialog()函数加入下面代码： if(FAILED(::CoInitialize(NULL))) return 0; _bstr_t strCnn(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;User ID=Admin;Jet OLEDB:Database Password=1234); try { HRESULT hr; pConnection.CreateInstance(ADODB.Connection); hr = pConnection-Open(strCnn,,,adConnectUnspecified); } catch(_com_error e) { CString errormessage; errormessage.Format(连接数据库失败:%s,e.ErrorMessage()); AfxMessageBox(errormessage); } try { pRstPubInfo.CreateInstance(__uuidof(Recordset)); pRstPubInfo-Open(SELECT * FROM filemdb,pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText); } catch(_com_error e) { CString errormessage; errormessage.Format(打开数据表失败 %s,e.ErrorMessage()); AfxMessageBox(errormessage); } while(!pRstPubInfo-EndOfFile) { _variant_t theValue; CString fname; theValue=pRstPubInfo-GetCollect(filename); if(theValue.vt!=VT_NULL) fname=(char*)_bstr_t(theValue); m_list.AddString(fname); pRstPubInfo-MoveNext(); } ●使用类向导在CFiletomdbDlg处理WM_DESTROY消息（销毁窗口对象） void CFiletomdbDlg::OnDestroy() { CDialog::OnDestroy(); pRstPubInfo-Close(); pConnection-Close(); ::CoUninitialize(); } ●使用类向导在CFiletomdbDlg类处理LBN_SELCHANGE消息，代码如下： void CFiletomdbDlg::OnSelchangeListfilename() { CString t; int i=m_list.GetCurSel(); m_list.GetText(i,t); SetDlgItemText(IDC_EDITFILENAME,t); } ●处理导入按钮消息，代码如下