|
By 闲鸟归来 , Posted in 死亡笔记
01 /*linkAccess.mdb里有字段coderType*/
02 /*在对应头文件+入一句：*/
03 #import "c:Program FilesCommon FilesSystemadomsado15.dll" no_namespace rename("EOF", "adoEOF")
04
05 /*如下为具体ADO连接Access与查询语句执行*/
06 // 建立连接对象、记录集、Command对象
07 _ConnectionPtr cnn; // _ConnectionPtr cnn(__uuidof(Connection));
08 _RecordsetPtr rst; // _RecordsetPtr rst(__uuidof(Recordset));
09 _CommandPtr cmd; // _CommandPtr cmd(__uuidof(Command));
10
11 CoInitialize(NULL); // 初始化COM环境; AfxOleInit(); 也一样效果
12 cnn.CreateInstance(__uuidof(Connection)); // 建立连接对象
13 try
14 {
15 // 打开本地Access库linkAccess.mdb
16 cnn->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=linkAccess.mdb","","",adModeUnknown);
17 }
18 catch(_com_error e)
19 {
20 AfxMessageBox("
数据库连接失败，确认数据库linkAccess.mdb是否在当前路径下!");
21 return FALSE;
22 }
23
24 rst.CreateInstance(__uuidof(Recordset)); // 建立记录集
25 _variant_t var;
26 CString str;
27
28 rst->Open("select * from codeInfo", cnn.GetInterfacePtr(), /*获取库接库的IDispatch指针*/, adOpenDynamic, adLockOptimistic, adCmdText);
29
30 while ( !rst->adoEOF )
31 {
32 var = rst->GetCollect("coderType");
33 if ( var.vt != VT_NULL )
34 str = (LPCSTR)_bstr_t(var);
35 m_AccessList.AddString(str); // 插入记录
36 rst->MoveNext(); // 下一记录
37 }
38
39 CoUninitialize(); // 卸载COM环境库
|