Access的Ole类型 SQl Server的image类型分别最大可以存储多大的文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

很多数据库软件都有二进制类型的列（字段），例如Access的Ole类型，SQl Server的binary和image类型，Oracle的blob类型。

Access的Ole类型 SQl Server的image类型分别最大可以存储多大的文件？

https://bbs.csdn.net/topics/30486561

https://bbs.csdn.net/topics/121357

谢谢老师

上传二进制文件代码：数据库为access

Dim dlg As New OpenFileDialog

dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"

If dlg.ShowDialog =DialogResult.OK Then

Dim fl As String = dlg.FileName

Dim r As Row = Tables("员工.附件").AddNew()

r("文件名") = FileSys.GetName(fl) '写入文件名

r.Save '必须先保存

r.DataRow.SQLInsertFile("附件",fl) '插入文件

r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值

End If

当前上传如果文件大于1g时，会提示有参数未定义怎么取消呢？

或者提醒用户当前文件大于最大许可值

帮助里的获取文件大小的代码

Dim ifo As new FileInfo("c:\data\123.xls")

Output.Show("文件大小:" & ifo.Length)

[此贴子已经被作者于2021/1/18 0:55:44编辑过]

ifo.Length以byte为单位，自己转换一下：https://calc.itzmx.com/

if ifo.Length > xxx then

msgbox("文件过大")

else

上传

end if

参照老师提供的指点代码如下【可以实现选择文件后，弹出文件大小并进行提醒】

Dim dlg As New OpenFileDialog

dlg.Filter = "|*.*"

If dlg.ShowDialog =DialogResult.OK Then

Dim fl As String = dlg.FileName

Dim ifo As new FileInfo(fl)

Dim sj As Double

Dim Multi As String = (ifo.Length)

Dim Values() As String

Values = Multi.split(".")

sj=Values(0)

'If sj > 1073741824 Then '文件大于1gb

If sj > 524288000 Then '文件大于500mb

MessageBox.Show("文件"& Format(Values(0)/1024/1024,"0.00") &"MB" &"过大,只能上传小于500MB的文件!","温馨提示")

Else

MessageBox.Show("文件"& Format(Values(0)/1024/1024,"0.00") &"MB" &"小于500MB,支持上传!","温馨提示")

Dim r As Row = Tables("员工.附件").AddNew()

r("文件名") = FileSys.GetName(fl) '写入文件名

r.Save '必须先保存

r.DataRow.SQLInsertFile("附件",fl) '插入文件

r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值

End If

经过反复测试。如果选择的文件大于500mb时提示“至少一个参数没有被指定”

如果选择了一个500mb以下文件上传后，再次选择大文件时，会提示“超出系统资源”

当前数据库为access MDB格式

[此贴子已经被作者于2021/1/18 10:02:14编辑过]

access数据库文件最大2G，也就是能够存储500M图片4个。建议使用SQL server数据库

好的谢谢老师耐心的指导和解答

主题：Access的Ole类型 SQl Server的image类型分别最大可以存储多大的文件？