在线等~~~~有答案立马给分~~~~

Question

有一个十六进制的数组
sbuf（0）=&H13 
sbuf（1）=&H8 
sbuf（2）=&H97 
sbuf（3）=&H51 
sbuf（4）=&H21 
sbuf（5）=&H1B 
sbuf（6）=&H8E 
我现在要把以上的数据存入到 ACCESS数据库中 应该怎么把数据给存进去?还有就是怎么才能读取到正确的数值哪 
也就是读取的数据和存入前的数据时一致？？

Answer 1

Option Explicit
    Dim sbuf(6) As Byte
    Dim strSj As String
    Dim i As Long
    Dim sbuf1() As BytePrivate Sub Command1_Click() '转换为16进制字符串做文本保存
    sbuf(0) = &H13
    sbuf(1) = &H8
    sbuf(2) = &H97
    sbuf(3) = &H51
    sbuf(4) = &H21
    sbuf(5) = &H1B
    sbuf(6) = &H8E
    For i = 0 To UBound(sbuf)
        strSj = strSj & Right("0" & Hex(sbuf(i)), 2)
    Next
    Text1 = strSj
End SubPrivate Sub Command2_Click() '取出储存的文本转换为Byte数据
    ReDim sbuf1(Len(strSj) / 2 - 1)
    For i = 1 To Len(strSj) Step 2
        sbuf1((i - 1) / 2) = Val("&H" & Mid(strSj, i, 2))
    Next
    For i = 0 To UBound(sbuf1)
        Print Hex(sbuf1(i))
    Next
End Sub具体的数据库操作代码LZ自己完成.

Answer 2

表中的记录：fp   OLE 对象  要把以上的数据存入到fp中 ，fp的长度也是数组的长度，例如：数组8个，则fp.length =8
读取的时候是SQl直接查询的，查询到的数据也是存入前的数据
不需要转换的