用adodc从数据库中获得一个二进制数组,怎么获取其中的值
用adodc从数据库中获得一个二进制数组,如何获取其中的值?
用adodc从数据库中获得一个二进制数组,长度为1,其可能的值是0x00,0x01,0x02,0x04和0x08,现在想要根据不同的值作不同的操作,但是不知道如何获得这个数组的值。
试过1。adodc.recorderset(0)赋给byte,byte数组,但是报类型不匹配的错误。
2。又试过以下方法,又报 实时错误3219,在此环境中不允许操作
Dim byteData() As Variant '定义数据块数组
Dim Fld As ADODB.Field
Set Fld = Form1.Adodc3.Recordset( "COLOPTIONS ")
ReDim byteData(Fld.ActualSize)
byteData = Fld.GetChunk(Fld.ActualSize)
3。将adodc.recorderset(0)赋给string或者varinat,可以赋值,但是还是无法从string和varinat中获得值,用Cint等转换函数,还是报类型不匹配的错误。
有什么办法可以解决吗?
------解决方案--------------------
可能没看明白你的意图。不明白你的意思。
有数据库表中有字段cc类型为binary
利用数据集合打开该表后,取其字段值即可。
a=Recordset.Fields( "cc ").Value
操作后变量a中存放的即是cc的值。
用adodc从数据库中获得一个二进制数组,长度为1,其可能的值是0x00,0x01,0x02,0x04和0x08,现在想要根据不同的值作不同的操作,但是不知道如何获得这个数组的值。
试过1。adodc.recorderset(0)赋给byte,byte数组,但是报类型不匹配的错误。
2。又试过以下方法,又报 实时错误3219,在此环境中不允许操作
Dim byteData() As Variant '定义数据块数组
Dim Fld As ADODB.Field
Set Fld = Form1.Adodc3.Recordset( "COLOPTIONS ")
ReDim byteData(Fld.ActualSize)
byteData = Fld.GetChunk(Fld.ActualSize)
3。将adodc.recorderset(0)赋给string或者varinat,可以赋值,但是还是无法从string和varinat中获得值,用Cint等转换函数,还是报类型不匹配的错误。
有什么办法可以解决吗?
------解决方案--------------------
可能没看明白你的意图。不明白你的意思。
有数据库表中有字段cc类型为binary
利用数据集合打开该表后,取其字段值即可。
a=Recordset.Fields( "cc ").Value
操作后变量a中存放的即是cc的值。