HRESULT hresult;

    CLSID clsid;

    //初始化COM接口

    CoInitialize(NULL);

    //得到组件的CLSID

    hresult=CLSIDFromProgID(OLESTR("PQView.PQView23"), &clsid);

    //这就是我们在BioxSend.DLL中定义的类

    _PQView23 *p;

    hresult=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(_PQView23),(LPVOID *) &p);

    //如果初始化失败，弹出提示对话框后退出程序

    if(FAILED(hresult))

    {

        AfxMessageBox("call bioxsend.dll failed");

        return;

    }

    //调用函数

    p->Connect();

    if (p->Connected)
    {
        printf("连接成功！");
    }
    else
    {
        printf("连接失败！");

    }

    //释放接口指针

    p->Release();

    // 关闭COM库的联接

    CoUninitialize();

    return 0;
}

connect连接不上

提示有    函数 _IPQDARecordset 继承GetFields 没有空值的构造函数 造成编译不通过

不懂，帮顶了。。。

VB没办法别编译标准的dll，网上有大神经过修改后可以完成……