vc连接ado！！！！

jin987 2003-10-01 05:35:43

为什么在我用ado来编写数据库程序。编译时提示找不到接口？怎样设计这个接口？

...全文

128 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

a341869094 2010-05-30

打赏
举报

www.hk5.cc

Skt32 2003-10-03

打赏
举报

使用ADO封装类的数据库程序开发实例[第二版] 详细信息 < ADO >

作者对ADO进行封装并演示了它的使用

[代码性质] VC完整应用程序代码
[代码作者] 成真
[文件大小] 390K
[更新日期] 2003-5-12 19:42:00
[下载次数] 5880

http://www.vckbase.com/code/relateddoc.asp?id=1926

Skt32 2003-10-03

打赏
举报

xsc2001 2003-10-03

打赏
举报

_ConnectionPtr pConn;
if(FAILED(pConn.CreateInstance("ADODB.Connection")))
{
AfxMessageBox("create error!");
return false;
}
_RecordsetPtr pPtr;
if (FAILED(pPtr.CreateInstance("ADODB.Recordset")))
{
AfxMessageBox("Create Instance failed!");
return FALSE;
}

crystal_heart 2003-10-02

打赏
举报

不会吧！

yunzhongjian 2003-10-02

打赏
举报

http://www.vckbase.com/code/listcode.asp?mclsid=11&sclsid=1105这里有ADO封装的类直接就可以用。

chanet 2003-10-02

打赏
举报

参考一下：
http://www.vckbase.com/document/viewdoc.asp?id=496

Onega 2003-10-01

打赏
举报

use #import directive

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
int main(int argc, char* argv[])
{
printf("This sample shows you how to access BLOB via ADO and store it as file"
"The second field of the database is BLOB\n"
"If it works, it is writen by masterz,\n"
"otherwise I don't know who write it\n");
CoInitialize(NULL);
try
{
_ConnectionPtr pConn("ADODB.Connection");
_RecordsetPtr pRst("ADODB.Recordset");
_variant_t varBLOB;
pConn->Open(_bstr_t("Driver={Microsoft Access Driver (*.mdb)};DBQ=GetChunk.mdb"),"","",adConnectUnspecified);
pRst->Open(_bstr_t("BlobTable"),_variant_t((IDispatch *) pConn, true),
adOpenKeyset, adLockOptimistic, adCmdTable);
pRst->MoveFirst();
//long lDataLength = pRst->Fields->Item[1L]->ActualSize;
//varBLOB = pRst->Fields->Item[1L]->GetChunk(lDataLength);
_StreamPtr stream;
stream.CreateInstance("ADODB.Stream");
_variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);
stream->raw_Open(varOptional, adModeUnknown, adOpenStreamUnspecified,NULL,NULL);
stream->put_Type(adTypeBinary);
stream->Write(pRst->GetFields()->GetItem(_variant_t((long)1))->GetValue());
stream->SaveToFile("test.txt",adSaveCreateOverWrite);
printf("save stream to file finished\n");
stream->Close();
pRst->Close();
pConn->Close();
}
catch (_com_error &e)
{
printf("Description = '%s'\n", (char*) e.Description());
}
::CoUninitialize();
return 0;
}