将图片保存至MSSQL

最新推荐文章于 2021-12-28 08:42:43 发布
最新推荐文章于 2021-12-28 08:42:43 发布
阅读量1.2k 收藏
点赞数
分类专栏： vb.net 文章标签： listview textbox button windows sql database
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/htpower/article/details/2812914
版权

窗体设计

 

  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form6
  3.     Inherits System.Windows.Forms.Form
  5.     'Form 重写 Dispose，以清理组件列表。
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  14.     'Windows 窗体设计器所必需的
  15.     Private components As System.ComponentModel.IContainer
  17.     '注意: 以下过程是 Windows 窗体设计器所必需的
  18.     '可以使用 Windows 窗体设计器修改它。
  19.     '不要使用代码编辑器修改它。
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.TextBox1 = New System.Windows.Forms.TextBox
  23.         Me.Button1 = New System.Windows.Forms.Button
  24.         Me.Button2 = New System.Windows.Forms.Button
  25.         Me.PictureBox1 = New System.Windows.Forms.PictureBox
  26.         Me.ListView1 = New System.Windows.Forms.ListView
  27.         Me.id = New System.Windows.Forms.ColumnHeader
  28.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
  29.         Me.SuspendLayout()
  30.         '
  31.         'TextBox1
  32.         '
  33.         Me.TextBox1.Location = New System.Drawing.Point(12, 12)
  34.         Me.TextBox1.Name = "TextBox1"
  35.         Me.TextBox1.Size = New System.Drawing.Size(421, 21)
  36.         Me.TextBox1.TabIndex = 0
  37.         '
  38.         'Button1
  39.         '
  40.         Me.Button1.Location = New System.Drawing.Point(439, 12)
  41.         Me.Button1.Name = "Button1"
  42.         Me.Button1.Size = New System.Drawing.Size(75, 23)
  43.         Me.Button1.TabIndex = 1
  44.         Me.Button1.Text = "Select"
  45.         Me.Button1.UseVisualStyleBackColor = True
  46.         '
  47.         'Button2
  48.         '
  49.         Me.Button2.Location = New System.Drawing.Point(520, 12)
  50.         Me.Button2.Name = "Button2"
  51.         Me.Button2.Size = New System.Drawing.Size(75, 23)
  52.         Me.Button2.TabIndex = 1
  53.         Me.Button2.Text = "UpLoad"
  54.         Me.Button2.UseVisualStyleBackColor = True
  55.         '
  56.         'PictureBox1
  57.         '
  58.         Me.PictureBox1.Location = New System.Drawing.Point(12, 51)
  59.         Me.PictureBox1.Name = "PictureBox1"
  60.         Me.PictureBox1.Size = New System.Drawing.Size(583, 422)
  61.         Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
  62.         Me.PictureBox1.TabIndex = 2
  63.         Me.PictureBox1.TabStop = False
  64.         '
  65.         'ListView1
  66.         '
  67.         Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.id})
  68.         Me.ListView1.FullRowSelect = True
  69.         Me.ListView1.GridLines = True
  70.         Me.ListView1.Location = New System.Drawing.Point(601, 12)
  71.         Me.ListView1.Name = "ListView1"
  72.         Me.ListView1.Size = New System.Drawing.Size(277, 461)
  73.         Me.ListView1.TabIndex = 3
  74.         Me.ListView1.UseCompatibleStateImageBehavior = False
  75.         Me.ListView1.View = System.Windows.Forms.View.Details
  76.         '
  77.         'id
  78.         '
  79.         Me.id.Text = "id"
  80.         Me.id.Width = 225
  81.         '
  82.         'Form6
  83.         '
  84.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
  85.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  86.         Me.ClientSize = New System.Drawing.Size(890, 485)
  87.         Me.Controls.Add(Me.ListView1)
  88.         Me.Controls.Add(Me.PictureBox1)
  89.         Me.Controls.Add(Me.Button2)
  90.         Me.Controls.Add(Me.Button1)
  91.         Me.Controls.Add(Me.TextBox1)
  92.         Me.Name = "Form6"
  93.         Me.Text = "Form6"
  94.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
  95.         Me.ResumeLayout(False)
  96.         Me.PerformLayout()
  98.     End Sub
  99.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  100.     Friend WithEvents Button1 As System.Windows.Forms.Button
  101.     Friend WithEvents Button2 As System.Windows.Forms.Button
  102.     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
  103.     Friend WithEvents ListView1 As System.Windows.Forms.ListView
  104.     Friend WithEvents id As System.Windows.Forms.ColumnHeader
  105. End Class

程序代码:

 

 

  1. Imports System.IO
  2. Imports System.Data
  3. Imports System.Data.SqlClient
  5. Public Class Form6
  6.     Private connstr As String = "Server=(local);packet size=4096;Database=testwater;User ID=sa;Password=;Trusted_Connection=False"
  7.     Private Conn As New SqlConnection(connstr)
  8.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  9.         Dim frm As New OpenFileDialog
  10.         frm.Filter = "图片(jpg)|*.jpg|图片(bmp)|*.bmp|其它|*.*"
  11.         frm.ShowDialog()
  12.         'If frm.ShowDialog() = Me.Windows.Forms.DialogResult.OK Then
  13.         TextBox1.Text = frm.FileName
  14.         If frm.FileName <> "" Then
  15.             PictureBox1.Image = System.Drawing.Image.FromFile(frm.FileName)
  16.         End If
  17.         loadlist()
  18.     End Sub
  20.     Private Sub loadlist()
  21.         If ListView1.Items.Count > 0 Then
  22.             ListView1.Items.Clear()
  23.         End If
  24.         Dim sql As String
  25.         Dim ds As New DataSet
  26.         sql = "select * from [test] order by id asc"
  27.         Dim cmd As New SqlDataAdapter(sql, Conn)
  28.         cmd.Fill(ds, "科")
  29.         Dim myvalues(0) As String
  30.         Dim listview As ListViewItem
  31.         For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
  32.             myvalues(0) = ds.Tables("科").Rows(i).Item("id")
  33.             listview = New ListViewItem(myvalues)
  34.             ListView1.Items.Add(listview)
  35.         Next
  36.         ds.Tables("科").Reset()
  37.     End Sub
  39.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  40.         Try
  41.             Dim Stream As New IO.MemoryStream
  42.             PictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Bmp)
  43.             Stream.Flush()
  44.             Dim Bytes As Byte() = Stream.ToArray
  45.             Conn.Open()
  46.             Dim SQL As String = "insert into [test] (img) values (@bytes) "
  47.             Dim command As New SqlClient.SqlCommand(SQL, Conn)
  48.             command.Parameters.Add("@bytes", SqlDbType.Image).Value = Bytes
  49.             command.ExecuteNonQuery()
  50.             Conn.Close()
  51.             MsgBox("图片上传成功!")
  52.             loadlist()
  53.         Catch ex As Exception
  54.             MsgBox(ex.Message.ToString + "图片上传失败!")
  55.         End Try
  57.     End Sub
  59.     Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
  61.         With ListView1.SelectedItems.Item(0)
  62.             showpic("select img from test where id = " & CStr(.SubItems(0).Text))
  63.         End With
  64.     End Sub
  66.     Private Sub showpic(ByVal sql)
  67.         Try
  68.             'Conn.Open()
  69.             Dim ds As New DataSet
  70.             Dim Command As New SqlDataAdapter(sql, Conn)
  71.             Command.Fill(ds, "图")
  72.             Dim Bytes As Byte() = ds.Tables("图").Rows(0).Item("img")
  73.             ds.Tables("图").Reset()
  74.             Dim mStream As New IO.MemoryStream
  75.             mStream.Write(Bytes, 0, Bytes.Length)
  76.             mStream.Flush()
  77.             Dim Img As New Bitmap(mStream)
  78.             PictureBox1.Image = Img
  79.             'Conn.Close()
  80.         Catch ex As Exception
  81.             Conn.Close()
  82.             MsgBox(ex.Message.ToString)
  83.         End Try
  85.     End Sub
  87.     Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  88.         loadlist()
  89.     End Sub
  90. End Class

运行结果:

htpower
关注
专栏目录
数据库存储图片(MsSQL/ORACLE/ACCESS)
gxj022的专栏
02-06 741
数据库存储图片(MsSQL/ORACLE/ACCESS)【转】   http://hi.baidu.com/yebihaigsino/blog/item/c415ff982a917c006e068caf.html 下面我来汇总一下如何将图片保存到SqlServer、Oracle、Access数据库中。 首先，我们要明白图片是以二进制的形式保存在数据库中的，那么把图片保存到数据库中的步骤
把图片保存到sql server数据库里
山里娃的专栏
08-28 1188
先在SQL  Server中建立一个图片存储的数库表，ImageData  Column为图象二进制数据储存字段，ImageContentType  Column为图象文件类型记录字段，ImageDescription  Column为储蓄图象文件说明字段,ImageSize  Column为储存图象文件长度字段，结构如下：  CREATE  TABLE  [dbo].[ImageStore]  
MSSQL中保存图片
04-10
MSSQL中如何保存图片，划分问几部分 大家看看吧
MSSQL如何保存图片
04-10
在MSSQL中保存BMP图片和JPG图片注意
MSSQL储存图片
htzxyzr的专栏
09-22 1021
CREATE TABLE [dbo].[ImageTable] ( [ImageID] [int] IDENTITY (1, 1) NOT NULL , [ImageData] [image] NULL , [ImageContentType] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [ImageDescription] [varchar]
将图片保存至SQL数据库
11-08
将图片保存至SQL数据库
把图片保存到数据库中
weixin_49757916的博客
12-28 261
把图片保存到数据库中，这个是我最近遇到的问题，不过已经解决，我的原题是要求要以二进制的形式把图片保存到数据库。 二进制？？我有点懵，回来找了找以前的代码，我发现我写这种方式，只不过当时对这种方式没太注意然后就没记住，找了找，和在网上搜，然后发现我自己写过这种方式，然后我就把以前的代码翻了出来并写进去! 视图代码： 一、html部分 <label class="col-2" for="cNoticeCarousel">图片：...
php将图片保存入mysql数据库失败的解决方法
10-25
在处理PHP将图片保存入MySQL数据库时可能会遇到多种问题。首先需要明白，将图片直接保存在数据库中通常不是一个好的实践。通常我们会将图片上传到服务器，并将图片的路径保存在数据库中。这样做的好处在于，数据库的...
爬取图片，并且保存mysql
05-15
爬取图片，并且保存mysql,，selenium,多进程爬取网站的图片信息，保存至mysql
android下保存图片到mySQL_android将图片保存进数据库
weixin_39953845的博客
01-19 1349
最近有朋友项目需要保存图片到本地数据库，问我怎么做，刚好我之前接触过，其实就是简单的base64编码转换，下面介绍超详细超简单demo:首先放图，no图no bb：效果图.png第一步：创建工程，然后更改main.xml样式xmlns:tools="http://schemas.android.com/tools"android:layout_width="match_parent"android...
从sql数据库中导出图片
03-18
从MSSQL中批量导出照片到指定文件夹中
把文件保存到数据库 C# 文件 保存 数据库 mssql sqlserver
07-31
简单的例子，把图片保存到数据库中，附带有sql语句。 并且有读取方法。可以直接读取并查看数据库中图片。 当然，你也可以保存其他文件到数据库中。只要自己修改几个。 用的VS2010.sql语句自己随意咯~ 我的博客 1994blog.cn
SQLSERVER中对Image(大对象)对象操作
09-04
SQLSERVER中对Image(大对象)对象操作
php将图片存在mysql中_如何把图片存储在mysql中
weixin_28902749的博客
01-21 703
把图片存储在mysql中的方法：1、获取需要保存的图片；2、将图片上传到指定路径下的文件夹中；3、将路径保存到变量，并将变量的值保存到数据库中的相应字段即可。具体方法一般有两种：1、将图片保存的路径存储到数据库；2、将图片以二进制数据流的形式直接写入数据库字段中。一、保存图片的上传路径到数据库：string uppath="";//用于保存图片上传路径//获取上传图片的文件名string file...
c# mysql 二进制图片_C# 二进制存储图片到mssql（一）
weixin_40009472的博客
02-15 150
今天刚学如何在mssql数据库中存储图片，决定留下笔记，以免后忘。SQL Server的联机丛书提供三种二进制数据类型的使用条件说明：1.当表列的所有输入数据大小为固定值(且长度小于8000字节)时，使用标准二进制Binary数据类型;2.当表列的输入数据长度有很大差别(且长度均小于8000字节)时，使用varBinary数据类型;3.当表列输入数据长度超过8000字节时，使用varBinary(...
MSSQL下，text 、ntext、 image的比较
数据库天地
11-11 409
MSSQL存在text、ntext和image： ntext： 可变长度 Unicode 数据的最大长度为 2^30 - 1 (1,073,741,823) 个字符。存储大小是所输入字符个数的两倍（以字节为单位）。ntext 在 SQL-92 中的同义词是 national text。 text： 服务器代码页中的可变长度非 Unicode 数据的最大长度为 2^31-1 (2,147,4...
MS Sql Server存储image、text、ntext
Seven的专栏
06-21 1628
 用image类型         方法：     1、建立过程     CREATE   PROCEDURE   sp_textcopy   (           @srvname         varchar   (30),           @login             varchar   (30),           @password         varchar  
C#+SQL Server图片存取
weixin_34204722的博客
07-11 357
有时候我们需要保存一些binary data进数据库。SQL Server提供一个叫做image的特殊数据类型供我们保存binary data。Binary data可以是图片、文档等。准备工作，在库Im_Test中建立一张表Im_Info，此表中有两个字段，分别为Pr_Id （INT），Pr_Info (IMAGE)，用来存储图形编号及图形信息。其语法如下：  CREATE TEALE...
如何将图片保存到mysql数据库中
最新发布
06-09
将图片保存到MySQL数据库中，可以采用以下步骤： 1. 将图片转换成二进制数据。 2. 创建一个BLOB类型的字段来存储二进制数据。 3. 使用INSERT语句将二进制数据插入到BLOB字段中。 以下是一个示例代码： ```python ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值