如何使用Ado访问PARADOX数据库？
前面接手一个项目，需要用VC访问已经存在的PARADOX数据库。在接手这个项目前，对于PARADOX的理解少之又少，只知道有这么一种数据库，并不了解它的结构是什么。真正对它进行操作的时候，才发现是如此之难。有几次差点都放弃了，但最后一咬牙，总算坚持过来了。在这期间，我走了不少的弯路，也有了一些心得，下面写下来，做为一个总结，也为其他同道少走一点弯路起一点提示作用吧。
1、PARADOX数据库结构 PARADOX数据库是Boland以前在DELPHI下利用BDE进行操作的桌面数据库，目前已经很少使用，以致ADO都不提供它的引擎了（也害得我吃了不少苦头）。PARADOX数据库本身以独立的表存在的，一个表就可以看成是一个库，或者也可以说是一个文件夹就是一个库，文件夹里的PARADOX数据表就是该库的各个表。PARADOX数据表的扩展名是db，此外还有一些其他的文件类型，作为数据表的辅助，但用ADO对其进行处理时，使用*.DB的文件就已经足够。 2、连接到PARADOX数据库 前面已经提到过，ADO没有PARADOX数据库的引擎，要用ADO访问PARADOX数据库，我试过三种方式来进行操作：用Microsoft.Jet.OLEDB.4.0来替代PARADOX数据库引擎；用仿ODBC的连接语句操作；建立ODBC数据源，然后用ADO来访问ODBC。还有一种是用VC来封装BDE API，在ww.codeproject.com上可以找到相关的内容。对于最后一种方法，用他的例子却实效果不错，但真正移直到我的程序上时却费了很大劲，并且效果不好，主要是我对于BDE操作方式太不理解了，花了好多时间，最终以放弃告终。 下面我就说明用前三种方式来进行连接到数据库的操作。其实这三种方式都没有太大的差别，只是连接语句不同而已。 （1）用Microsoft.Jet.OLEDB.4.0引擎。这种方式访问时跟连接到其他数据库没什么差别： _ConnectionPtr m_pDb; CStringconnectsource; connectsource.Format(L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s//shared;Extended Properties=Paradox 5.x;Persist Security Info=False",strCTRSRoute); try//检查数据库连接是否正常 { m_pDb.CreateInstance(__uuidof(Connection)); m_pDb->ConnectionTimeout=10; m_pDb->CommandTimeout=20; if(m_pDb->State!=adStateClosed) { m_pDb->Close(); m_pDb->Open((_bstr_t)connectsource,"","",adModeUnknown); } else { hr=m_pDb->Open((_bstr_t)connectsource,"","",adModeUnknown); } } catch(_com_error e) //捕捉异常 { LogAdoErrorImport(m_pDb); } 说明：connectsource变量保存了连接信息，由此我们可以看到，所谓数据库的数据源，仅指是连接到PARADOX数据表放的位置Data Source=%s//shared，“shared”为一文件夹名，在该文件夹下面有PARADOX数据表，而不是具体指向哪一个数据表。同理，在下面的两种方式中，数据源也仅指向包含PARADOX数据表的文件夹。除了异常处理外在后面要详细说明外，其他的操作与其他ADO操作没有差别，在此不再冗续。 （2）用仿ODBC连接操作。ODBC还提供了PARADOX数据引擎，因此，我们可以通过ODBC来访问PARADOX数据表。本方法就是把建立DSN的连接信息在ADO的连接语句中完全地写出来。 connectsource.Format(L"CollatingSequence=ASCII;DBQ=%s//shared;" / L"DefaultDir=%s//shared;Driver={Microsoft Paradox Driver (*.db )};" / L"DriverId=538;FIL=Paradox 5.X;" / L"MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;" / L"ParadoxNetPath=%s//shared;ParadoxNetStyle=4.x;ParadoxUserName=admin;" / L"SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;",strCTRSRoute,strCTRSRoute,strCTRSRoute); 说明：上面所有信息均可在注册表中的ODBC对应的键下面或都文件DSN中直接找到。我们现在操作的PARADOX数据表，一般是Paradox 4.X或Paradox 5.X。对于Paradox 7.X好像也无能为力。好在我用的数据库的版本也没那么高，呵呵。其他操作同第一种方式。 （3）建立ODBC数据源，用ADO访问ODBC数据源。这种方式是第二种的翻版，但需要动态地或手工添加ODBC数据源。 CString connectsource="Provider=MSDASQL.1;Persist Security Info=False;Data Source=Projdir"; 其中Data Source=Projdir，就指出了数据源为一个ODBC的DSN。 为了实现动态地添加数据源，下面提供一个添加PARADOX 系统DSN的函数： BOOL LoadDbSource(CString strSourceName, CString strSourceDb, CString strDescription) { //存放打开的注册表键 HKEY hKey; DWORD dw; //存放注册表API函数执行的返回值 LONG lReturn; //存放要打开的子键 CString strSubKey; //检测是否安装了MS Access ODBC driver:odbcjt32.dll //获得 Windows系统目录 WCHAR sysDir[MAX_PATH]; WCHAR drvName[]=L"//odbcjt32.dll"; ::GetSystemDirectory(sysDir, MAX_PATH); wcscat(sysDir,drvName); CFileFind findFile; if(!findFile.FindFile(sysDir)) { AfxMessageBox(L"没有安装Paradox 5.X的ODBC驱动程序odbcjt32.dll,/n无法加载该类数据源!" ,MB_OK | MB_ICONSTOP); return false; } strSubKey=L"SOFTWARE//ODBC//ODBC.INI//" + strSourceName; //创建 ODBC数据源在注册表中的子键 lReturn=::RegCreateKeyEx(HKEY_LOCAL_MACHINE, (LPCTSTR)strSubKey, 0, NULL, REG_OPTION_NON_VOLATILE,KEY_WRITE,NULL,&hKey,&dw); if(lReturn != ERROR_SUCCESS) return FALSE; //设置数据源的各项参数 CString strDbq = strSourceDb; CString strDriver = sysDir; DWORD dwDriverId = 538; CString strFil = "Paradox 5.X;"; //CString strPwd = strSourceName; DWORD dwSafeTransactions = 0; CString strUid =L"admin"; ::RegSetValueEx(hKey, L"DefaultDir", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strDbq), 2*strDbq.GetLength()); ::RegSetValueEx(hKey, L"Description", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strDescription), 2*strDescription.GetLength()); ::RegSetValueEx(hKey, L"Driver", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strDriver), 2*strDriver.GetLength()); ::RegSetValueEx(hKey, L"DriverId", 0L, REG_DWORD, (CONST BYTE*)(&dwDriverId), sizeof(dw)); ::RegSetValueEx(hKey, L"FIL", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strFil),2*strFil.GetLength ()); ::RegSetValueEx(hKey, L"UID", 0L, REG_SZ, (CONST BYTE*)((LPCTSTR)strUid),2*strUid.GetLength ()); ::RegSetValueEx(hKey, L"SafeTransactions", 0L, REG_DWORD, (CONST BYTE*)(&dwSafeTransactions), sizeof(dw)); ::RegCloseKey(hKey); //创建 ODBC数据源的Jet子键 strSubKey += "//Engines//Paradox"; lReturn=::RegCreateKeyEx(HKEY_LOCAL_MACHINE, (LPCWSTR)strSubKey, 0, NULL, REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, &hKey, &dw); if(lReturn != ERROR_SUCCESS) return FALSE; //设置该子键下的各项参数 CString strImplict=""; CString strUserCommit="Yes"; DWORD dwPageTimeout=5; DWORD dwThreads=3; DWORD dwMaxBufferSize=2048; CString strCollSeq=L"ASCII"; CString strParadoxNetStyle=L"4.x"; ::RegSetValueEx(hKey, L"ImplicitCommitSync", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strImplict), 2*strImplict.GetLength()+1); //::RegSetValueEx(hKey, L"MaxBufferSize", 0L, REG_DWORD, (CONST BYTE*)(&dwMaxBufferSize), sizeof(dw)); ::RegSetValueEx(hKey, L"PageTimeout", 0L, REG_DWORD, (CONST BYTE*)(&dwPageTimeout), sizeof(dw)); ::RegSetValueEx(hKey, L"Threads", 0L, REG_DWORD, (CONST BYTE*)(&dwThreads), sizeof(dw)); ::RegSetValueEx(hKey, L"UserCommitSync", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strUserCommit), 2*strUserCommit.GetLength()); ::RegSetValueEx(hKey, L"CollatingSequence", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strCollSeq), 2*strCollSeq.GetLength()); ::RegSetValueEx(hKey, L"ParadoxNetPath", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strDbq), 2*strDbq.GetLength()); ::RegSetValueEx(hKey, L"ParadoxNetStyle", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strParadoxNetStyle), 2*strParadoxNetStyle.GetLength()); ::RegSetValueEx(hKey, L"ParadoxUserName", 0L, REG_SZ, (CONST BYTE*)((LPCWSTR)strUid), 2*strUid.GetLength()); ::RegCloseKey(hKey); //设置ODBC数据库引擎名称 lReturn=::RegOpenKeyEx(HKEY_LOCAL_MACHINE, L"SOFTWARE//ODBC//ODBC.INI//ODBC Data Sources", 0L, KEY_WRITE, &hKey); if(lReturn != ERROR_SUCCESS) return false; CString strDbType=L"Microsoft Paradox Driver (*.db )"; ::RegSetValueEx(hKey, strSourceName, 0L, REG_SZ, (CONST BYTE*)((LPCTSTR)strDbType), 2*strDbType.GetLength()); return true; } 说明：该函数是在网上一个写ODBC注册表的例子上加工而成的，在此表示感谢！在建立系统DSN的时候，一个项是ParadoxUserName。在利用ODBC管理器添加数据源的时候，会默认为当前用户的登录名。并且此项是必须的。为了减少去获得当前系统用户的麻烦，将它的值赋为：“amdin”，在实际的运行过程中，没有产生任何负面影响。 以上是连接到数据库的操作。所有上述的操作没有多大的差别。 3、对数据表操作， 本来当连接到数据库后，对于数据表的操作就是一件很容易的事了。但我却在这个环节上花费了大量的时间和精力，以致开发时间一加再加。对于表的操作我不想说太多，但这里面一个问题却不得不说。 我没有真正地却研究PARADOX底层原理是什么，但在实际操作时，却发现它对BDE有很强的依赖性。由于我的计算机上曾经装过用BDE开发的数据库产品，因此，所有操作一切正常。但当该系统拿到其他计算机上就出现了很多问题，其中最主要的就是出现“[ODBC PARADOX]外部数据表不是预期格式”的错误。后来经过多台计算机上总结，比较得出可能是BDE引起的。后来在有问题的计算机上安装BDE后，一切问题都没有了。 4、错误处理 本来，对ADO进行操作时，进行错误处理是必要的步骤，但如何进行错误处理的方式也能影响程序的健壮与稳定。一般情况下，我们都是利用_com_error对象提供错误信息，在这个过程中，我发觉并不能得到错误的真正信息，而是一些模棱两可的信息如：3092，Dispatch error等等，对于我们解决问题没有多少效果。错误的信息获得最好方法就是利用ADO本身的ERROR对象。它能捕捉所有CONNECTION，COMMAND和RECODSET的信息，下面这个函数也是从www.codeproject.com上得到的。在此对该函数作者表示感谢！ HRESULT LogAdoErrorImport(_ConnectionPtr pConn) { ErrorsPtr pErrors; ErrorPtr pError; CString strTmp; HRESULT hr = (HRESULT) 0L; long nCount; // Don't have an un-handled exception in the handler that // handles exceptions! try { pErrors = pConn->GetErrors(); nCount = pErrors->GetCount(); for( long i = 0; (!FAILED(hr)) && (i < nCount); i++ ) { TRACE( L"/t Dumping ADO Error %d of %d", i+1, nCount ); hr = pErrors->get_Item((_variant_t)((long)i), &pError ); _bstr_t bstrSource ( pError->GetSource() ); _bstr_t bstrDescription( pError->GetDescription() ); _bstr_t bstrHelpFile ( pError->GetHelpFile() ); _bstr_t bstrSQLState ( pError->GetSQLState() ); TRACE( L"/n Number = %ld", pError->GetNumber() ); TRACE( L"/n Source = %s", (LPCTSTR) bstrSource ); CString strDes; strDes.Format(L"%s/n", (LPCTSTR) bstrDescription ); AfxMessageBox(strDes,MB_OK | MB_ICONERROR); TRACE( L"/n HelpFile = %s", (LPCTSTR) bstrHelpFile ); TRACE( L"/n HelpContext = %ld", pError->GetHelpContext() ); TRACE( L"/n SQLState = %s", (LPCTSTR) bstrSQLState ); TRACE( L"/n HelpContext = %ld", pError->GetHelpContext() ); TRACE( L"/n NativeError = %ld", pError->GetNativeError() ); } } catch( CException *e ) { TRACE( L"*** UNABLE TO LOG EXCEPTION ***" ); e->Delete(); } catch(...) { TRACE( L"*** UNABLE TO LOG EXCEPTION ***" ); } pErrors->Release(); pError->Release(); return hr; } 要调用此函数，也只需在CATCH中调用即可，函数参数为_ConnectionPtr型。 catch(_com_error e) //捕捉异常 { LogAdoErrorImport(m_pDb); } 5、其他 在我所接手的这个项目中，要对局域网内服务器上不同文件夹下的多个PARADOX数据表进行操作，也就是对多个数据库进行操作。现在的处理方式就是共享这些文件夹，并在本机建立网络映射。这样的操作，如果网络比较好的话还可以接受，当网络不太好的时候，操作起来就很困难，原因是对频繁对数据库进行连接操作占用了大量的时间。因此，我想到利用C/S模式，在服务器上安装处理这些数据库操作的服务，客户端把所有的请求发到服务器端，当服务器端处理好后直接传回数据。这样就减少了通过ADO连接非本机数据库的时间。这仅是一个设想，在下一步的系统升级时希望能实现，也恳请计算机高手们提出意见和建议。