VC+ADO动态创建Access数据库(2)

{_com_issue_error(hr);

}else

{m_pCatalog->Create(_bstr_t(strcnn)); //Create MDB

}
}

catch(_com_error &e)

{

// Notify the user of errors if any.

AfxMessageBox(_T(“error“));

}

创建一个连接对象打开刚刚建立的mdb文件：

_ConnectionPtr g_pConn;

g_pConn.CreateInstance(__uuidof(Connection));

g_pConn->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d: est.mdb;",

"", "", adConnectUnspecified);

下面函数用来执行sql文件中的sql语句：

// Function name : RunSqlScript

// Description: 执行SQL脚本, peckermen@163.com, 2003-09-15

// Return type: BOOL 成功返回TRUE

// Argument : LPCSTR SqlScriptFile SQL脚本文件名

// Argument : char separator SQL 分割符号, 缺省';'

// Argument : char RemarkSQL 注释符号, 缺省'-'

BOOL RunSqlScript(LPCSTR SqlScriptFile, char separator = ';', char Remark = '-')

{