如何能改成BCB语句？？

[Persistent8813]

就是建立一个原生ADO Connection

这是PASCAL的
adoc := CreateOleObject('ADODB.Connection');
adoc.Open(str);

在BCB中应该怎么写呢？谢谢～

[Persistent8813]

编译是通过了，但与PASCAL中实现的方法好象不太一样了
只知其然不知其所以然，高手们有空给讲讲吧。这部分没有资料可查～

[lurel]

看一下COM编程，VCL对它进行了封装，如果你想从底层看起，就要好好的学习怎么创建调用等等，这个VC往往都是从底层实现的。

[BlueDeepOcean]

#include <Db.hpp>

TADOConnection *ac = new TADOConnection(this);
ac->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\A001GD\bin\release\NewDG100.mdb;Persist Security Info=False";
ac->Open();

[lurel]

按VC的方法来
首先导入msado15.dll
CString strConn = "server=localhost;database=";
strConn += strDBName;
strConn +=";Integrated Security=SSPI";

_ConnectionPtr m_Connection;
_CommandPtr m_Command;
HRESULT hr;
hr = m_Connection.CreateInstance("ADODB.Connection");
if(!SUCCEEDED(hr))
{
return FALSE;
}

m_Connection->Open((_bstr_t)strConn,"","",adModeUnknown);
m_Command.CreateInstance(__uuidof(Command));
m_Command->ActiveConnection=m_Connection;
m_Command->CommandText=_bstr_t(str);
m_Command->Execute(NULL,NULL,adCmdText);

m_Connection->Close();

return TRUE;

[CACACACACA]

CreateOleObject("CLASS_Connection")

[CACACACACA]

_Connection adoc = CreateOleObject("CLASS_Connection");
adoc.Open(str);

[Persistent8813]

我想用 CreateOleObject，但jjwwang((空园歌独酌，春日赋闲居)) 的编译通不过啊，能将码写全一下吗？

[CACACACACA]

#include "ADOInt.hpp"
#include "ComObj.hpp"

_di__Connection adoc = CreateOleObject("CLASS_Connection");
adoc->Open(str);