保存图片的问题,谢指点
Dim ms As Stream
Dim picbyte() As Byte
openFileDialog1.ShowDialog()
If (openFileDialog1.ShowDialog() = DialogResult.OK) Then
ms = openFileDialog1.OpenFile()
ReDim picbyte(ms.Length)
ms.Position = 0
ms.Read(picbyte, 0, Convert.ToInt32(ms.Length))
Dim conn As New SqlConnection
conn.ConnectionString = "server=(local);database=Haha;integrated security=sspi;"
Dim cmd As New SqlCommand
cmd = conn.CreateCommand
conn.Open()
cmd.Parameters.Add("@image", SqlDbType.Image)
cmd.Parameters("@image").Value = picbyte
cmd.CommandText = "insert aa values(3,2,@image)"
'cmd.CommandText = "insert aa values(3,2,'" & picbyte(ms.Length) & "')"
' cmd.CommandText = "select * from aa"
cmd.ExecuteScalar() '这里提示有错? aa表有三个字段,第三个为image型
MsgBox("插入成功")
conn.Close()
ms.Close()
Dim picbyte() As Byte
openFileDialog1.ShowDialog()
If (openFileDialog1.ShowDialog() = DialogResult.OK) Then
ms = openFileDialog1.OpenFile()
ReDim picbyte(ms.Length)
ms.Position = 0
ms.Read(picbyte, 0, Convert.ToInt32(ms.Length))
Dim conn As New SqlConnection
conn.ConnectionString = "server=(local);database=Haha;integrated security=sspi;"
Dim cmd As New SqlCommand
cmd = conn.CreateCommand
conn.Open()
cmd.Parameters.Add("@image", SqlDbType.Image)
cmd.Parameters("@image").Value = picbyte
cmd.CommandText = "insert aa values(3,2,@image)"
'cmd.CommandText = "insert aa values(3,2,'" & picbyte(ms.Length) & "')"
' cmd.CommandText = "select * from aa"
cmd.ExecuteScalar() '这里提示有错? aa表有三个字段,第三个为image型
MsgBox("插入成功")
conn.Close()
ms.Close()
...全文
相关推荐
请高手指点图片居中的问题
请高手指点一下,想把图片水平垂直居中放置,网上找了一些教程,但是没有作用,请帮忙指出哪里出了问题本主题由 Rolan 于前天09:44审核通过1.jpg(50.38 KB, 下载次数: 2)
保存图片到本地相册
**保存到相册**: 一旦图片保存到本地,需要将文件添加到系统的媒体库,这样相册应用才能识别并显示。
如何保存成彩色的eps图片?Matlab保存的eps图片变成黑白色问题
解决Matlab保存的EPS图片变成黑白色的问题在进行科研工作或者撰写论文时,我们经常需要将Matlab中的图形导出为各种格式的图片,以便于进一步编辑或者插入到文档中。
js 将canvas生成图片保存,或直接保存一张图片的实现方法
因此,尽管上述代码在大多数情况下能正常工作,但在生产环境中,还需要考虑这些潜在的兼容性和安全性问题。
python实现两张图片拼接为一张图片并保存
希望这篇文章能够帮助你在实际工作中解决问题。


