查到的资料:
如果你想要把二进制数据插入到一个字符类型的字段中(例如BLOB),下列字符必须由转义序列表示: NUL
ASCII 0,你应该用 “\0”(一个反斜线和一个ASCII “0”字符)表示它。
\
ASCII 92,反斜线。需要用 “\\” 表示。
'
ASCII 39,单引号。需要用 “\'” 表示。
"
ASCII 34,双引号。需要用 “\"” 表示。
-----------------------------------------------------------------------
问题是:请问我如何转义二进制数据.下面里面看不出来有什么引号之类的..二进制数据是这样格式:????āā怀怀 ????????????????????┝???‖???????┰?H???????????????????????????????????????????!?ā?āā ā????????????ā???????慑??脲??????戳色???┚??????????呓噕塗婙摣晥桧橩瑳癵硷穹蒃蚅袇誉鎒閔鞖馘???????????????????????笠????āāāā ā?????????????w???ㄡ?允愇?㈢?????刳?牢??????????????半啔坖奘捚敤杦楨獪畴睶祸艺蒃蚅袇誉鎒閔鞖馘???????????????????????笠?ú?????????薿?饠???????棈????卺???罊?櫎???????坳??汖???駹??鋏???}?????龗???貦?蔽蠟..........
如果你想要把二进制数据插入到一个字符类型的字段中(例如BLOB),下列字符必须由转义序列表示: NUL
ASCII 0,你应该用 “\0”(一个反斜线和一个ASCII “0”字符)表示它。
\
ASCII 92,反斜线。需要用 “\\” 表示。
'
ASCII 39,单引号。需要用 “\'” 表示。
"
ASCII 34,双引号。需要用 “\"” 表示。
-----------------------------------------------------------------------
问题是:请问我如何转义二进制数据.下面里面看不出来有什么引号之类的..二进制数据是这样格式:????āā怀怀 ????????????????????┝???‖???????┰?H???????????????????????????????????????????!?ā?āā ā????????????ā???????慑??脲??????戳色???┚??????????呓噕塗婙摣晥桧橩瑳癵硷穹蒃蚅袇誉鎒閔鞖馘???????????????????????笠????āāāā ā?????????????w???ㄡ?允愇?㈢?????刳?牢??????????????半啔坖奘捚敤杦楨獪畴睶祸艺蒃蚅袇誉鎒閔鞖馘???????????????????????笠?ú?????????薿?饠???????棈????卺???罊?櫎???????坳??汖???駹??鋏???}?????龗???貦?蔽蠟..........
解决方案 »
- 请问在VB写导出到EXCEL中的时候,怎么设置EXCEL的某列为文本属性,否则导出到EXCEL中会把前面的0给取掉
- 关于API!
- 今天就需要解答的问题,很急,望各位高手多多指教。
- 发生错误!!!
- 请教关于WebBrowse控件打开word文档后显示样式的一些问题,例如:如何显示一些常用的工具栏?
- Setup Factory6.0问题!安装软件正常,但运行出错。希望大侠们来看看......
- 为什么我用TrueDBGrid导出的Excel文件中包含的中文字全为乱码?有什么办法可以解决?
- 那位朋友可以帮我把VB的程序写成DELPHI的呀。三四段程序不难的。非常感谢
- 怪问题,是不是每个人都遇到过?
- 判断一个端口上是否在侦听
- 所有的文件打开时,最先会触发什么呢?
- 那位高手能解释此现象
你自己修改一下.
VB把文件存入数据库IMAGE字段Sub Savepic(FileName As String, IndexNumber As Long)
Dim DcnNWind As New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DcnNWind.CursorLocation = adUseClient
DcnNWind.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CUSTOM;Data Source=SERVER"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "CustomInfo", DcnNWind, , adCmdTable
rs.Move (IndexNumber)
Call FileToBlob(rs.Fields("Image"), FileName, FileLen(FileName))
rs.UpdateBatch adAffectCurrent
End SubPrivate Sub FileToBlob(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
fnum = FreeFile
Open FileName For Binary As fnum
bytesLeft = LOF(fnum)
Do While bytesLeft
bytes = bytesLeft
If bytes > ChunkSize Then bytes = ChunkSize
ReDim tmp(1 To bytes) As Byte
Get #1, , tmp
fld.AppendChunk tmp
bytesLeft = bytesLeft - bytes
Loop
Close #fnum
End SubVB把文件从IMAGE字段中读到文件中。Sub loadpic(IndexNumber As Long)
Dim DcnNWind As New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DcnNWind.CursorLocation = adUseClient
DcnNWind.Open "Provider=SQLOLEDB.1;Integrated Security=SSI;Persist Security Info=False;Initial Catalog=CUSTOM;Data Source=SERVER"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "CustomInfo", DcnNWind, , adCmdTable
rs.Move (IndexNumber)
Call BlobToFile(rs.Fields("Image"), "c:\windows\temp\tmp.bmp", rs.Fields("Image").ActualSize)
End SubPrivate Sub BlobToFile(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
If Dir$(FileName) <> "" Then Kill FileName
fnum = FreeFile
Open FileName For Binary As fnum
bytesLeft = fld.ActualSize
Do While bytesLeft
bytes = bytesLeft
If bytes > ChunkSize Then bytes = ChunkSize
tmp = fld.GetChunk(bytes)
Put #fnum, , tmp
bytesLeft = bytesLeft - bytes
Loop
Close #fnum
End Sub