以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于图片插入SQL的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148256)

--  作者:5233655cs
--  发布时间:2020/4/3 11:43:00
--  [求助]关于图片插入SQL的问题。
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 I

这个是帮助里面的二进制, 将文件保存到SQL, 他是打开文件后,然后存进SQL

下面的要求我如何修改程序实现?请教大神!不胜感激!

我现在先设置了一个Picturebox1    

图片先插入picturebox1中,     然后点击一个按钮, 将picturebox中的图片,跟据动态表达式进行改名,然后插入SQL中指定的“照片”列。



然后什么语句 在picturebox2中 预览这个照片?     帮助文件看不懂。


[此贴子已经被作者于2020/4/3 11:50:08编辑过]

--  作者:有点蓝
--  发布时间:2020/4/3 11:53:00
--  
只能添加已经保存的文件。

方法1、图片插入picturebox1中的时候把文件路径保存到一个标签控件值中,插入数据库的时候取文件路径。
2、picturebox1使用ImageFile 属性设置图片,这样就可以通过ImageFile 获取图片的路径了

--  作者:5233655cs
--  发布时间:2020/4/3 12:01:00
--  
大神  有没有实例代码吗?  

1.如何保存到标签控件中
2.如何弄?


不胜感激



--  作者:有点蓝
--  发布时间:2020/4/3 12:05:00
--  
1、比如:e.form.controls("label1").text = “c:\\123.jpg”
dr.SQLInsertFile("附件",e.form.controls("label1").text )
2、比如:e.form.controls("picturebox1").ImageFile  = “c:\\123.jpg”
dr.SQLInsertFile("附件",e.form.controls("picturebox1").ImageFile )

--  作者:5233655cs
--  发布时间:2020/4/3 13:36:00
--  
谢谢 搞定