请问各位:如何把Excel或Word文件存到数据库,是不是可以把它转成二进制进行存放?
解决方案 »
- 文本框的日期转换!
- 我修改的程序,怎么发现怎么多奇怪的问题
- 如何实现在DATAGRID控件中,显示记录时在左边自动增加一列,显示流水号,流水号从1开始,或者其它那个控件可以实现这个功能.
- 关于登录输入框问题?谢谢
- 需求好的vb免费教程的下载地址!!!
- 能否调用可执行文件?
- 哪里有VB6.0的书下载?谢谢
- 给一个角的兄弟们,分数不够用的来领~~~~~~~~~~~~~~(1)
- SQL语句以日期为条件查询怎么写?
- 怎样从一个运行的窗口中的picturebox中获得图片
- mshflexgrid和ADODC绑定后显示数值型字段时奇怪的小数问题
- 哪里可以下载安装程序制作:Setfactory 7.0 中文版(没有病毒的)。
将文件存到数据库中
将文件存到数据库中的完整的代码如下:如果是用SQL那么保存文件的字段类型应该是Binary。如果是用Access,那么保存文件的字段应该用OLD对象,在表中显示为长二进制数据。
'将任何文件从数据库中下载到本地:
Public Function LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean '获得binary数据
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
lngsize = col.ActualSize
arrBytes = col.GetChunk(lngsize)
FreeFileNumber = FreeFile
Open FileName For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , arrBytes
Close #FreeFileNumber
LoadFile = True
myerr:
If Err.Number <> 0 Then
LoadFile = False
Err.Clear
End If
End Function
'将文件从本地上传到数据库中
Public Function UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) As Boolean
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FileName For Binary As #FreeFileNumber
n = LOF(FreeFileNumber)
ReDim arrBytes(1 To n) As Byte
Get #FreeFileNumber, , arrBytes
Close #FreeFileNumber
col.AppendChunk (arrBytes)
UpLoadFile = True
myerr:
If Err.Number <> 0 Then
UpLoadFile = False
Err.Clear
End If
End Function