上位机通过ADO动态创建数据源mdb文件与连接数据库

使用微软ADO开发数据库步骤

一．引入ADO库。

ADO库收入的代码在后续编程中不常更改，可以放在stdafx.h预编译头文件中

代码如下：

#import "C:\\Program Files\\CommonFiles\\System\\ado\\msado15.dll"no_namespace \

rename("EOF","adoEOF")rename("BOF","adoBOF")

#importo为预处理指令 ，让程序在编译过程中引入 ADO动态库msado15.dll,此文件随系统安装在C:\\Program Files\\Common Files\\System\\ado\\。

no_namespace表示不使用命名空间。

rename("EOF","adoEOF")表示把ADO库中用到的EOF改成adoEOF,防止在我们编写程序中，命名冲突；

rename("BOF","adoBOF")与rename("EOF","adoEOF")同样的功能.

斜杠\表示换行输入，让全部代码在编程软件上可见；

二．初始化与连接ADO库

程序初始化时调用函数::CoInitialize(NULL);初始化ADO所需的COM环境。

程序退出时调用函数::CoUninitialize();清除COM环境资源；

定义Connection对象的智能指针变量_ConnectionPtrm_pConnect;再调用4.CreateInstance实例化对象m_pConnect.CreateInstance(__uuidof(Connection));

__uuidof关键字用于将Connection转换为其对应的CLSID;

调用Connection的成员函数open连接数据库。

try   {

_bstr_t strConnect ="rovider=Microsoft Access Driver(*.mdc)assword=123;UserID=456;DataSource=789.mdb; ";

m_pConnect->Open(strConnect,"","",-1);

}

catch (_com_error e){

AfxMessageBox(e.ErrorMessage());

}

Open的具体介绍可以MSDN搜索Open Method (Connection - ADO)；

上面代码中strConnect是连接字符串，通过MSDN可找到具体使用介绍；

Password=123;UserID=456;是访问数据库的用户名与密码；

Open函数原形connection.Open ConnectionString, UserID, Password, Options；

ConnectionString   可选，字符串，包含连接信息。参阅 连接字符串属性可获得有效设置的详细信息。

UserID   可选，字符串，包含建立连接时所使用用户名。
Password   可选，字符串，包含建立连接时所使用密码。

Options   可选，ConnectOptionEnum 值。决定该方法是在连接建立之后（异步）还是连接建立之前（同步）返回。可以是如下某个常量;

Sourceoo为数据库。这里使用try,catch,来处理异常，如果不处理，ADO的异常可能会使程序崩溃。

其中数据源DataSource，在这里可以是mdb文件。这种数据文件可以事先由外部程序创建，也可以通过代码动态创建

   strcpy(cPath,sPath);

   sPath.Format("rovider='Microsoft.JET.OLEDB.4.0';DataSource='%s'",cPath);

   _bstr_t strcnn = sPath;

   ADOX::_CatalogPtr pCat;

   pCat.CreateInstance(__uuidof(ADOX::Catalog));

   pCat->Create(strcnn);

下面为例程关键代码：

1. #import "C:\\Program Files\\Common Files\\System\\ado\\msadox.dll" \
   
2. rename("EOF","adoEOF") rename("BOF","adoBOF")
   
3. #import "C:\\Program Files\\Common Files\\System\\ado\\msado15.dll"no_namespace \
   
4. rename("EOF","adoEOF") rename("BOF","adoBOF")
   
5. #include <io.h>

复制代码

1. 
   
2. void CADO::CreateMDB()
   
3. {
   
4.         char cPath[MAX_PATH];
   
5.         GetModuleFileName(NULL,cPath,MAX_PATH);
   
6.         CString sPath(cPath);
   
7.         sPath=sPath.Left(sPath.ReverseFind('\\'));
   
8.         sPath +="\\data\\Test.mdb";
   
9.         if(!_access(sPath,0))
   
10.                 return;//文件已存在
    
11. ////创建MDB文件
    
12.         strcpy(cPath,sPath);
    
13.         sPath.Format("Provider='Microsoft.JET.OLEDB.4.0';Data Source='%s'",cPath);
    
14.         _bstr_t strcnn = sPath;
    
15.         ADOX::_CatalogPtr pCat;
    
16.         pCat.CreateInstance(__uuidof(ADOX::Catalog));
    
17.         pCat->Create(strcnn);
    
18. //在MDB文件内创建用户与密码
    
19. /*        ADOX::_UserPtr pUser;
    
20.         pUser.CreateInstance(__uuidof(ADOX::User));  
    
21.         pUser->PutName("gkbc8");  
    
22.         pUser->ChangePassword("", "gkbc8Password");  
    
23.         pCat->Users->Append(_variant_t((IDispatch *)pUser), "");  
    
24.         pCat->Groups->Append("Accounting"); //创建用户组
    
25.         pUser->Groups->Append("Accounting"); //归属到用户组*/
    
26. ////在MDB文件内创建表格
    
27.         ADOX::_TablePtr pTable;
    
28.         pTable.CreateInstance(__uuidof(ADOX::Table));
    
29.         pTable->PutName("NewTable");
    
30.     pTable->Columns->Append("Column1",ADOX::adInteger,0);
    
31.     pTable->Columns->Append("Column2",ADOX::adInteger,0);
    
32.     pTable->Columns->Append("Column3",ADOX::adVarWChar,50);
    
33.         pCat->Tables->Append( pTable.GetInterfacePtr() );
    
34. 
    
35.         pTable =NULL;
    
36.         pCat   =NULL;
    
37. }
    
38. CADO::CADO()
    
39. {
    
40.         ::CoInitialize(NULL);
    
41.         m_pConnect.CreateInstance(__uuidof(Connection));
    
42.         try        {
    
43.                 CreateMDB();
    
44.                 m_pConnect->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= data\\Test.mdb","","",adModeUnknown);
    
45.         }
    
46.         catch (_com_error e){
    
47.                 AfxMessageBox(e.ErrorMessage());
    
48.         }
    
49. }
    
50. CADO::~CADO()
    
51. {
    
52.         if(m_pConnect->State)
    
53.                 m_pConnect->Close();
    
54.         m_pConnect= NULL;
    
55.         ::CoUninitialize();
    
56. }
    

复制代码

请点击此处下载

查看状态：已购买或有权限

您的用户组是：游客

文件名称:上位机通过ADO动态创建数据源mdb文件与连接数据库.rar 
文件大小:104.54 KB 
下载权限: 不限 以上或 VIP会员   [购买捐助会员]   [充值积分]