原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vc做动态数据库
vc+ado动态创建access数据库
作者：佚名 来源：不详 发布时间：2008年03月06日 点击数： 17
[简 介]：
ado技术目前已经成为连接数据库的主流技术，下面我来介绍如何使用ado来动态创建access数据库。
为了使用ado，必须引入微软的两个动态连接库msadox.dll和msado15.dll：
#pragma warning (disable: 4146) #import c:\Program Files\Common Files\system\ado\msadox.dll #import c:\Program Files\Common Files\system\ado\msado15.dll no_namespace rename(EOF, EndOfFile) #pragma warning (default: 4146)
将上述代码加入到stdafx.h文件中，由于ado是com组件，因此使用ado之前还要初始化com环境：
CoInitialize(NULL);
?
下面是一个在access数据库中创建表的sql语句的例子：
create table test ( nametext(20) WITH COMPRESSION not null,
scoredecimal(12,4) not null default 0,
ID smallint not null default 0,
birthday date,
sex char(1),
CONSTRAINT CK_CH_SEX Check(SEX in (N,V)),
CONSTRAINT PK_ID Primary Key (ID)
);
?
使用ADOX::CatalogPtr来创建mdb文件：
HRESULT hr = S_OK;
//Set ActiveConnection of Catalog to this string CString strcnn(_T(Provider=Microsoft.JET.OLEDB.4.0;Data source = d:\\test.mdb));
try { ADOX::_CatalogPtr m_pCatalog = NULL; hr = m_pCatalog.CreateInstance(__uuidof (ADOX::Catalog));
if(FAILED(hr))
{
_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:\\test.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 = -) { BOOL bRet = FALSE; CFileFind finder; CString ErrLong; if (finder.FindFile(SqlScriptFile) == TRUE) { CFile fSql; TCHAR *buffer, *pSQL, *p; fSql.Open(SqlScriptFile,Cfile::mode
文档评论（0）