- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教SQL数据库二进制应用的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187210)
-- 发布时间：2023/6/30 11:55:00
-- 请教SQL数据库二进制应用的问题
蓝老师您好！请教SQL数据库二进制应用问题，我单位服务器设置的FTP外网一直不能连接，没办法只能用二进制列存储各种文件，我按帮助的案例的使用完整的代码在狐表中使用，只是数据库由ACC改成了SQL，SQL Server对应的列类型为"Image"，列名相同，做成后点击增加、插入等按钮，没反应。二进制列在SQL数据库中还有其他特殊要求吗？
-- 发布时间：2023/6/30 12:10:00
--
用了什么代码？
-- 发布时间：2023/6/30 12:23:00
--
我就是帮助一步一步照着做的
插入文件按钮代码
If Tables("员工").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc"
If dlg.ShowDialog =DialogResult.OK Then
dr.SQLInsertFile("附件",dlg.FileName) \'插入文件
End If
-- 发布时间：2023/6/30 12:26:00
--
表名列名都没错，点击插入按钮无任何反应
-- 发布时间：2023/6/30 12:28:00
--
插入照片按钮代码
If Tables("员工").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("照片",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
End If
-- 发布时间：2023/6/30 12:31:00
--
同样在我的狐表系统里数据源改成ACC数据库就能正常使用
-- 发布时间：2023/6/30 13:33:00
--
SQLInsertFile是直接更新到数据库的，前端不会有什么反应，3楼代码可以正常执行完毕不出错说明就是成功了。
可以到后台数据库看看有没有数据。或者试试使用SQlLoadImage能不能加载图片：http://www.foxtable.com/webhelp/topics/2953.htm
-- 发布时间：2023/6/30 15:35:00
--
蓝老师，SQL数据源我无法传，我将案例中的员工表转成了内部数据源了，“附件”“照片”两列就丢失了，我传上去请您看看设置
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二进制列实验.zip |
-- 发布时间：2023/6/30 15:36:00
--
“附件”“照片”两列的数据类型是 image
-- 发布时间：2023/6/30 15:43:00
--
我重定向到SqlServer数据库，增加照片列测试没有任何问题
此主题相关图片如下：1.png