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编辑过]
加好友 
发短信
Post By：2020/4/3 11:43:00 [显示全部帖子]
Post By：2020/4/3 12:01:00 [显示全部帖子]
