数据写入到数据库的长二进制度字段

jok22

怎么样才能使excel 单元格中的字符写入到数据库的长二进制度字段


前贴问题，在这里做个结束吧。
一开始没思路偏了，用16进制编辑器读出的数据，以为是16进制字符串，后边在本版大神的指导下，知道了数据库其实是二进制数据，所以改变了数据类型与存取方式，最终解决了，今天贴上解决代码

1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
2. Sub cs()
   
3.     Dim s As String
   
4.     Dim b() As Byte
   
5.     Dim v As Single
   
6.     Dim i As Integer
   
7.     Dim n As Integer   
   
8.     s = "4354E598"
   
9.     ReDim b(Len(s) \ 2 - 1)
   
10.     For i = UBound(b) To 0 Step -1
    
11.         b(n) = Val("&H" & Mid(s, i * 2 + 1, 2))
    
12.         n = n + 1
    
13.     Next
    
14.     CopyMemory v, b(0), 4
    
15.     Debug.Print v
    
16. End Sub

复制代码

quqiyuan

以前有留意过楼主的帖子，你这个是什么作用，跟以前的帖子长二进制有什么关联呢？