高分求助，分不够再加

Question

在Vb中有一个函数CreateObject()可以用来创建一个组件对象，因此它可以直接创建基于中间件的对象，比如在服务器上有一个Java编的Jar文件（Com1），其中有一个类Sys,在客户端有一个Com1.idl文件记录了这些信息，而且已经注册，在Vb端可以这样写：
Set obj=CreateObject("Com1.Sys")就可以创建这个对象。
请问在VC中有什么方法可以实现这个结果。（高分求救，在线等待，分不够再加）

Answer 1

看一下这篇文章VB和VC下面的ADO编程应用比较
http://cpc.3322.net/technology/vc166.htm

Answer 2

＃include <windows.h> ＃import <msado15.dll> rename(“EOF”, “adoEOF”) void main() { HRESULT hr = S_OK; //因为没有在＃import中指定no_namespace,所以必须采用ADODB：：这样的形式来定义变量类型 ADODB::_RecordsetPtr Rs1 = NULL; //通过ODBC建立ADO连接 _bstr_t Connect( “DSN=AdoDemo;UID=sa;PWD=;” ); _bstr_t Source ( “SELECT ＊ FROM Authors” ); CoInitialize(); //初始化Rs1对象 hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) ); //省略对返回值hr的判断 Rs1－>Open( Source,     Aonnect,     ADODB::adOpenForwardOnly,     ADODB::adLockReadOnly,    －1 ); //此处可以添加对记录集Rs1进行操作的代码 Rs1－>Close(); Rs1 = NULL; ::MessageBox( NULL,“Success!”,“”,MB_OK ); CoUninitialize(); } 

Answer 3

CoCreateInstance
CoCreateInstanceEx
CoGetClassObject