数据库 纯文本 存取文件（SQL语句）！

山中老人

SQL纯文本存取文件.rar (1.41 KB, 下载次数: 151)

2016-4-13 20:02 上传

点击文件名下载附件

如何将图片、音乐、电影等文件保存到数据库中，对新手还是很头痛的！
这里介绍的是一个简单、直观的办法！

将文件转换为16进制数字 字符串，加入SQL语句中。实现纯文本的，数据库存取文件。
支持数据库的imge字段或varbinary字段。

此方法不太适合，太大的文件存取。对超过几十M的文件，建议使用FileStream，在服务器上建立共享文件夹，数据库中只存储文件名。
附件：是VBA模块，导入EXCEL中可执行。（执行SQL语句部分，需要根据环境，自己改写）

山中老人

代码 主要是 演示：【文件】的二进制读写，以及与【16进制数字 字符串】间的转换！
生成SQL语句范例：
    Dim f As String, Arr() As Byte, T As String
    Dim SQLstr As String, RS As New ADODB.Recordset
    Dim L As Long
    '上传文件
    f = "C:\Users\Administrator\Desktop\xl.xls" '源文件
    Arr = FileToByteArr(f) '将文件 读到 字节数组中
    T = ByteArrTo16Str(Arr) '将字节数组 转换为 16进制数字 字符串
    T = Str16_ADD0x(T) '16进制数字 字符串,加头标“0x”
    'Debug.Print T   
    SQLstr = "UPDATE [KSCHTJ].[FileS].[库] SET [IMG]=" & T & " WHERE [ID]=14 " 'SQL语句文本
    Debug.Print SQLstr

1. Public Function ByteArrToFile(PathFile As String, ByteArr() As Byte) As Boolean '用字节数组 生成 文件
   
2.     On Error GoTo err1
   
3.     ByteArrToFile = False
   
4.     If LBound(ByteArr, 1) < 0 Or UBound(ByteArr, 1) < 0 Then Exit Function '空数组
   
5.     Open PathFile For Binary Access Write As #1
   
6.     Put #1, , ByteArr
   
7.     Close #1
   
8.     ByteArrToFile = True
   
9.     Exit Function
   
10. err1:
    
11.     MsgBox "[ByteArrToFile]错误！" & Chr(13) & "ERR:" & err.Description
    
12. End Function
    
13. 
    
14. Public Function FileToByteArr(PathFile As String) As Byte() '将文件 读到 字节数组中
    
15.     On Error GoTo err1
    
16.     Dim Arr() As Byte
    
17.     ReDim Arr(-1 To -1) '空数组
    
18.     FileToByteArr = Arr        
    
19.     If PathFile = "" Then Exit Function
    
20.     If Dir(PathFile) = "" Then Exit Function
    
21.     Dim i As Long, L As Long   
    
22.     L = FileLen(PathFile)
    
23.     ReDim Arr(0 To L - 1)
    
24.     Open PathFile For Binary Access Read As #1
    
25.     Get #1, , Arr
    
26.     Close #1
    
27.     FileToByteArr = Arr
    
28.     Exit Function
    
29. err1:
    
30.     MsgBox "[FileToByteArr]错误！" & Chr(13) & "ERR:" & err.Description
    
31. End Function
    
32. 
    
33. Public Function ByteArrTo16Str(ByteArr() As Byte) As String '将字节数组 转换为 16进制数字 字符串
    
34.     On Error GoTo err1
    
35.     ByteArrTo16Str = ""
    
36.     If LBound(ByteArr, 1) < 0 Or UBound(ByteArr, 1) < 0 Then Exit Function
    
37.     Dim i As Long, L As Long
    
38.     Dim Str As String
    
39.     L = UBound(ByteArr, 1)
    
40.     Str = ""
    
41.     For i = 0 To L
    
42.         Str = Str & Right("00" & Hex(ByteArr(i)), 2)
    
43.     Next
    
44.     ByteArrTo16Str = Str
    
45.     Exit Function
    
46. err1:
    
47.     MsgBox "[ByteArrTo16Str]错误！" & Chr(13) & "ERR:" & err.Description
    
48. End Function
    
49. 
    
50. Public Function Str16ToByteArr(ByVal Str16 As String) As Byte()  '将16进制数字 字符串 转换为 字节数组
    
51.     On Error GoTo err1
    
52.     Dim H As String, i As Long, L As Long
    
53.     Dim B As Byte, Arr() As Byte
    
54.     ReDim Arr(-1 To -1) '空数组
    
55.     Str16ToByteArr = Arr   
    
56.     Str16 = Replace(Str16, " ", "")
    
57.     If Str16 = "" Then Exit Function
    
58.    
    
59.     Str16 = Str16_Del0x(Str16) '去除头标“0x”
    
60.     If Str16 = "" Then Exit Function
    
61.     '长度
    
62.     L = Len(Str16) / 2 - 1
    
63.     ReDim Arr(0 To L)
    
64.     '转换值
    
65.     For i = 0 To L
    
66.         H = Mid(Str16, i * 2 + 1, 2)
    
67.         B = CLng("&H" & H)
    
68.         Arr(i) = B
    
69.     Next   
    
70.     Str16ToByteArr = Arr
    
71.     Exit Function
    
72. err1:
    
73.     MsgBox "[Str16ToByteArr]错误！" & Chr(13) & "ERR:" & err.Description
    
74. End Function
    
75. 
    
76. Public Function Str16_Del0x(ByVal Str16 As String) As String '16进制数字 字符串,去除头标“0x”
    
77.     Str16_Del0x = Str16
    
78.     If Len(Str16) < 2 Then Exit Function
    
79.     Dim H As String
    
80.     H = UCase(Left(Str16, 2))
    
81.     If H = "0X" Then
    
82.         Str16 = Mid(Str16, 3)
    
83.     End If
    
84.     Str16_Del0x = Str16
    
85.     Exit Function
    
86. End Function
    
87. 
    
88. Public Function Str16_ADD0x(ByVal Str16 As String) As String '16进制数字 字符串,加头标“0x”
    
89.     Str16_ADD0x = Str16
    
90.     If Str16 = "" Then Exit Function
    
91.     Dim H As String
    
92.     H = UCase(Left(Str16, 2))
    
93.     If H = "0X" Then
    
94.         Exit Function
    
95.     End If
    
96.     Str16_ADD0x = "0x" & Str16
    
97.     Exit Function
    
98. End Function
    

复制代码

deweyfbi

mark，这个很赞，谢谢！！

roych

长二进制文件吧。
不知道楼主有没有试过存个2G左右的电影到数据库上呢？
我想，读写估计都不是一件很愉快的事情吧？
个人还是倾向于把大文件存在服务器，数据库只通过GUID来获取文件路径，再存入本地好一些。

当然，如果出于保密的考虑，存入数据库也无可厚非。

山中老人

roych 发表于 2016-4-14 13:58
长二进制文件吧。
不知道楼主有没有试过存个2G左右的电影到数据库上呢？
我想，读写估计都不是一件很愉快 ...

太大的文件，肯定不适合存放到数据库中。
但，比如身份证照片、签名图片等就比较适合！

Renco

这方法要赞一下，大文件不行，小文件还是可行的方案