CSDN博客

img jianlinlong

在C++Builder中创建Access odbc数据源

发表于2003/7/2 16:09:00  871人阅读

想用BDE导Access数据库,要创建ODBC 数据源。找了半天也没见着BCB写的代码,所以我改写了一个。如有不足处,请指正。 ========jianlinlong@163.net

/*
函数功能:创建Access ODBC数据源
输入参数:DSN--------所要创建的 Access ODBC数据源的名称
          strMDBFile-----------Access 库文件的完整路径
          strDesc---------这个数据源的描述
          strLoginUser---------登录strMDBFile所指的文件的用户名
          strPassword----------登录strMDBFile所指的文件的密码
返回值  :成功返回true, 否则会抛出Exception (这样写会不会有问题呀?)
用    法:
         (1)CreateAccessDSN("jll_access", "c://windows//desktop//starso.mdb");
         (2)CreateAccessDSN("jll_access2", "c://windows//desktop//starso.mdb", " ", "Admin", "ok_pwd");
注    意:
         #include <Registry.hpp>
         #include <memory>

         using namespace std;
*/
bool __fastcall CreateAccessDSN(const AnsiString& DSN,
                                const AnsiString& strMDBFile,
                                const AnsiString& strDesc = "no descript",
                                const AnsiString& strLoginUser = "",
                                const AnsiString& strPassword = "")
{
   auto_ptr<TRegistry> spReg(new TRegistry());
   spReg->RootKey = HKEY_LOCAL_MACHINE;  //设置根键值为HKEY_LOCAL_MACHINE
    //找到Software/ODBC/ODBC.INI/ODBC Data Sources
   if (spReg->OpenKey("Software//ODBC//ODBC.INI//ODBC Data Sources", true))
   {//注册一个DSN名称
       spReg->WriteString(DSN, "Microsoft Access Driver (*.mdb)" );
       spReg->CloseKey();
   }else{
    //创建键值失败
       throw Exception("增加ODBC数据源失败");
   }
   到或创建Software/ODBC/ODBC.INI/MyAccess,写入DSN配置信息
   if (spReg->OpenKey("Software//ODBC//ODBC.INI//" + DSN, true))
   {
      spReg->WriteString("DBQ", strMDBFile);//数据库目录,连接您的数据库
      spReg->WriteString("Description",  strDesc);//数据源描述
      char buf[MAX_PATH];
      ::GetSystemDirectory(buf, MAX_PATH);
      spReg->WriteString("Driver", AnsiString(buf) + "//odbcjt32.dll" );//驱动程序DLL文件
      spReg->WriteInteger("DriverId", 25 );     //驱动程序标识
      spReg->WriteString("FIL", "Ms Access;" );    //Filter依据
      spReg->WriteInteger("SafeTransaction", 0 );  //支持的事务操作数目
      spReg->WriteString("UID", strLoginUser);//用户名称
      spReg->WriteString("PWD", strPassword);//用户密码
      BYTE bData = 0;
      spReg->WriteBinaryData("Exclusive", &bData, 1);      //非独占方式
      spReg->WriteBinaryData("ReadOnly", &bData, 1 );       //非只读方式
      spReg->CloseKey();
   }else{
      throw("增加ODBC数据源失败");
   };
   //找到或创建Software/ODBC/ODBC.INI/MyAccess/Engines/Jet
  //写入DSN数据库引擎配置信息
    if (spReg->OpenKey("Software//ODBC//ODBC.INI//" + DSN + "//Engines//Jet", true))
    {
      spReg->WriteString( "ImplicitCommitSync", "Yes");
      spReg->WriteInteger("MaxBufferSize", 2048 );//缓冲区大小
      spReg->WriteInteger("PageTimeout", 10 );//页超时
      spReg->WriteInteger("Threads", 3 );//支持的线程数目
      spReg->WriteString("UserCommitSync", "Yes");
      spReg->CloseKey();
    }else{
      throw("增加ODBC数据源失败");
    }
    return true;
}

0 0

相关博文

我的热门文章

img
取 消
img