水晶报表使用CDO可以在内存中建立一个临时数据库，类似于VB的那个DataSet

来源：互联网发布：大魔术师知乎编辑：程序博客网时间：2024/04/29 16:42

//在水晶报表文件夹1.0下,使用前需要注册

#import "Cdo32.dll" no_namespace

ICrystalDataObjectPtr m_pCDO;

HRESULT hr1;
hr1= m_pCDO.CreateInstance("CrystalDataObject.CrystalComObject");
m_pCDO->AddField("Order ID",VT_BSTR);
m_pCDO->AddField("Company Name",VT_BSTR);
short st= m_pCDO->GetColCount();

USES_CONVERSION;//
SAFEARRAYBOUND pSab[1];
pSab[0].lLbound = 0;
pSab[0].cElements =2;

SAFEARRAY *psa;
psa = SafeArrayCreate(VT_BSTR,1,pSab);
BSTR *pBstr;
SafeArrayAccessData(psa, (void**)&pBstr);
*(pBstr) = SysAllocString(T2OLE("test1"));
*(pBstr+1) = SysAllocString(T2OLE("test2"));

_variant_t var;
VariantInit(&var);
var.vt = VT_ARRAY;
var.parray = psa;
try
{
HRESULT h1= m_pCDO->AddRows(var);
}
catch (_com_error e)
{
CString strComError;
strComError.Format("错误编号: %08lx/n错误信息: %s/n错误源: %s/n错误描述: %s",
  e.Error(),                  // 错误编号
  e.ErrorMessage(),           // 错误信息
  (LPCSTR) e.Source(),        // 错误源
  (LPCSTR) e.Description()); // 错误描述
AfxMessageBox(strComError);
}
SafeArrayUnaccessData(psa);
SafeArrayDestroy(psa);

但是在运行AddRow()时始终出错类型不匹配，找了很长时间，没找到原因。网上例子一般是VB或者Web的。但是它们是可以的啊，晕啊。以后再找