-- 作者:starshowercn
-- 发布时间:2015/1/24 9:53:00
-- 关于向sql表中插入图片问题
此主题相关图片如下:bc.jpg
上图是我想将图片插入到sql数据库中,以image类型保存,出现上图的报错信息。放一个小图片不报错,我曾试着放一个1.83k的小图,没有报错,可以正常保存。请指点如何修改代码!
Button 代码如下:
If Tables("YGDA").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("YGDA").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("YGDA_QM1",dlg.FileName) \'插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
End If
|