2012年2月21日火曜日

adVarBinary To String In VBA with ADO

In vba.I got data from MySQL with ADO.

ADO judged one text field as "adVarBinary" and return the array of binary code.

But I wanted "string" value. So I converted this data to string with the below way.


 - code ----------------------

 If ADODB.adVarBinary = objField.Type Then
      vValue = StrConv(objField.value, vbUnicode)
 Else 
       vValue = tmpObjField.value
 End If


---------------------

 I got wanted value.

0 件のコメント: