MFC+ADO+ACCESS自动创建数据库

   最近偶然要做一个小型的数据库管理系统，为了方便用户无需自己用access创建数据库，所以，我必须设法让程序能够创建数据库，数据库表以及判断数据库表的存在。下面的程序代码希望能够为遇到这方面困难的朋友提供帮助：(2008/11/5重新编辑)

1. //1.引入ado库
2. #import "c:/Program Files/Common Files/System/ADO/Msadox.dll"  rename_namespace("ADOCG") rename("EOF", "adoXEOF") rename("DataTypeEnum","adoXDataTypeEnum") 
3. #import "C:/Program Files/Common Files/System/ADO/msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF")
4. using namespace ADODB;  
5. using namespace ADOCG;
6. #define TESTHR(x) if FAILED(x) _com_issue_error(x);
7. //2.创建ACCESS数据库 
8. BOOL CDeRenDlg::CreateMdb(CString strDBName)
9. { 
10.     CString strMdbConn = "Provider='Microsoft.JET.OLEDB.4.0';Data source = " + strDBName;
11.  try
12.  {
13.   HRESULT hr = S_OK; 
14.   _CatalogPtr pCatalog = NULL;
15.   _bstr_t cnnstring(strMdbConn);
16.   
17.   TESTHR(hr = pCatalog.CreateInstance(__uuidof (Catalog)));
18.         pCatalog->Create(cnnstring);
19.  }
20.  catch(_com_error e)
21.  {
22.   _bstr_t bstrDescription(e.Description());
23.   CString strErro=CString(_T("创建ACCEESS数据库出错: ")) 
24.                + (LPCSTR)e.Description()
25.       + CString(_T("Create ACCESS DB error: "))
26.       + (LPCSTR)e.Description();
27.   AfxMessageBox(strErro);
28.   return FALSE;
29.  }
30.  return TRUE;
31. }
32. //3.创建数据库表-材料表
33. BOOL CDeRenDlg::CreateTable( CString strTabName)
34. {
35.  HRESULT hr = S_OK;
36.     _CatalogPtr pCatalog = NULL;
37.     _TablePtr pTableNew = NULL;
38.     _IndexPtr pIndexNew = NULL;
39.     _IndexPtr pIndex  = NULL;
40.     _ColumnPtr pColumn  = NULL;
41.  CString strConn,strDBName;
42.  strDBName=this->GetDBName(m_nDBYear);
43.  CFileFind ff;
44.  if(!ff.FindFile(strDBName))
45.  {
46.   AfxMessageBox("数据库不存在，请先在高级设置对话框中创建数据库！");
47.   return FALSE;
48.  }
49.  strConn="Provider='Microsoft.JET.OLEDB.4.0';Data source = " + strDBName;
50.  _bstr_t strcnn(strConn);
51.     try
52.     {
53.         TESTHR(hr = pCatalog.CreateInstance (__uuidof(Catalog)));
54.         TESTHR(hr = pTableNew.CreateInstance(__uuidof(Table)));
55.         TESTHR(hr = pIndexNew.CreateInstance(__uuidof(Index)));
56.         TESTHR(hr = pIndex.CreateInstance   (__uuidof(Index)));
57.         TESTHR(hr = pColumn.CreateInstance  (__uuidof(Column)));
58.   
59.         // 连接
60.         pCatalog->PutActiveConnection(strcnn);
61.         // 表名
62.         pTableNew->Name = _bstr_t(strTabName);
63.   pTableNew->ParentCatalog = pCatalog;
64.   //
65.   //m_pTableNew->Columns->Append("ContactId", ::adInteger,0);          
66.         //m_pTableNew->Columns->GetItem("ContactId")->Properties->GetItem("AutoIncrement")->Value = true;
67.   
68.   // 加入字段
69.   CString str;
70.   str = _T("公司名称");//"公司名称";
71.   pTableNew->Columns->Append(_variant_t(str), ADOCG::adVarWChar, 50);
72.         pTableNew->Columns->GetItem(_variant_t(str))->Properties->GetItem("Jet OLEDB:Allow Zero Length")->Value =false; //将必填字段设置为否
73.   str = _T("产品名称");//"产品名称";
74.   pTableNew->Columns->Append(_variant_t(str), ADOCG::adVarWChar, 50);
75.         pTableNew->Columns->GetItem(_variant_t(str))->Properties->GetItem("Jet OLEDB:Allow Zero Length")->Value =false;
76.   str = _T("产品规格");//"产品名称";
77.   pTableNew->Columns->Append(_variant_t(str), ADOCG::adVarWChar, 50);
78.         pTableNew->Columns->GetItem(_variant_t(str))->Properties->GetItem("Jet OLEDB:Allow Zero Length")->Value =false;
79.      /
80.      
81.   // 加入表中
82.         pCatalog->Tables->Append(_variant_t ((IDispatch*)pTableNew));        
83.         pCatalog->Tables->Refresh();
84.   
85.     }
86.     catch(_com_error &e)
87.     {
88.         _bstr_t bstrSource(e.Source());
89.         _bstr_t bstrDescription(e.Description());
90.   AfxMessageBox(e.Description());
91.   return FALSE;
92.    
93.     }
94.  return TRUE;
95. }
96. //4.判断一个表在数据库中是否存在
97. BOOL CDeRenDlg::IsTalbeExit(CString strTable)
98. {
99.  try 
100.  { 
101.   if(!m_adoConnection.IsOpen()) return FALSE;
102.   
103.   _RecordsetPtr   pRstSchema   =   NULL;
104.   pRstSchema=m_adoConnection.OpenSchema(adSchemaTables);
105.   
106.   while(!pRstSchema->adoEOF) 
107.   { 
108.    _bstr_t table_name = pRstSchema->Fields->GetItem("TABLE_NAME")->Value;
109.    _bstr_t table_type = pRstSchema->Fields->GetItem("TABLE_TYPE")->Value;
110.    if ( strcmp(((LPCSTR)table_type),"TABLE")==0)
111.    {
112.     if(strTable.Compare((LPCSTR)table_name)==0)return  true;
113.    } 
114.   
115.    pRstSchema->MoveNext(); 
116.   }
117.   
118.   if(pRstSchema) pRstSchema->Close(); 
119.  }
120.  catch(_com_error e)// 
121.  { 
122.   ::MessageBox(NULL,e.Description(),"Error",MB_OK);
123.   return FALSE;
124.  }
125.  return false;
126. }

转载于：http://blog.sina.com.cn/s/blog_610c1cad0100yhrr.html