在ADO中如何把VT_DECIMAL类型的数据转化成double。

[Ji秋风]

_variant_t var;
double val;

val = (double)var;

这样直接转换吗？今天我看到有代码不是这样转，不知正确的应该是怎样转换的。

[oyljerry]

直接double类型转换也可以

[bohut]

给你一个函数可以将VARIANT型数据转成CString

CString VariantToCString(VARIANT var)
{
CString strValue;
_variant_t var_t;
_bstr_t bst_t;
time_t cur_time;
CTime time_value;
COleCurrency var_currency;
switch(var.vt)
{
case VT_EMPTY:
strValue=_T("");
break;
case VT_UI1:
strValue.Format("%d",var.bVal);
break;
case VT_I2:
strValue.Format("%d",var.iVal);
break;
case VT_I4:
strValue.Format("%d",var.lVal);
break;
case VT_R4:
strValue.Format("%f",var.fltVal);
break;
case VT_R8:
strValue.Format("%f",var.dblVal);
break;
case VT_CY:
var_currency = var;
strValue = var_currency.Format(0);
break;
case VT_BSTR:
var_t = var;
bst_t = var_t;
strValue.Format ("%s",(const char*)bst_t);
break;
case VT_NULL:
strValue = _T("");
break;
case VT_DATE:
cur_time = (long)var.date;
time_value = cur_time;
strValue = time_value.Format("%A,%B%d,%Y");
break;
case VT_BOOL:
strValue.Format("%d",var.boolVal );
break;
default:
strValue = _T("");
break;
}
return strValue;
}

。。。。。。

[Ji秋风]

怎么没包含VT_DECIMAL转换成string的？

[FlyNesta]

应该是类似VT_R8的转换

[Ji秋风]

VT_DECIMAL 与 VT_R8 是不同的数据类型吧。

[FlyNesta]

case VT_DECIMAL:
strValue.Format("%d",var.decVal );
break;

[Ji秋风]

VT_DECIMAL --> 16 byte fixed point
可以这样转化？