详解vb.net实现图片以二进制形式上传和读取到数据库

最新推荐文章于 2021-08-09 21:59:00 发布
最新推荐文章于 2021-08-09 21:59:00 发布
阅读量1k 收藏
点赞数
分类专栏： VB NET 控件相关 文章标签： vb.net datagrid button server webform database

 本篇文章旨在vb.net下实现图片以二进制形式存到数据库，并能从数据库中读取显示出来，下面附了运行后的效果和代码例子

1. 导入图像文件，以二进制形式存入数据库表。

2. 从数据库表读取二进制信息，返原显示在页面的datagrid 中

数据库表结构设计：

 

效果图：

 

---Web.Config---

<?xml version="1.0" encoding="utf-8" ?>

<configuration>

  <!-- application specific settings -->

  <appSettings>

      <add key="uid" value="sa" />

      <add key="pwd" value="" />

       <add key="server" value="10.33.220.87" />

      <add key="database" value="test" />  

  </appSettings>   

  <system.web>

 

---Code Section  WebForm2.aspx---

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm2.aspx.vb" Inherits="EmployeeInfo.WebForm2"%>

<HTML>

     <HEAD>

         <title>WebForm2</title>

         <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">

         <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">

          <meta content="JavaScript" name="vs_defaultClientScript">

         <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">

     </HEAD>

     <body MS_POSITIONING="GridLayout">

         <form id="Form1" method="post" runat="server">

              <INPUT id="File1" style="Z-INDEX: 101; LEFT: 128px; POSITION: absolute; TOP: 72px" type="file"

                   runat="server">

              <asp:datagrid id="DataGrid1" style="Z-INDEX: 106; LEFT: 24px; POSITION: absolute; TOP: 208px"

                   runat="server" Width="464px" Height="136px" AutoGenerateColumns="False">

                   <Columns>

                       <asp:BoundColumn DataField="BadgeNO" HeaderText="Badge No"></asp:BoundColumn>

                       <asp:TemplateColumn HeaderText="Photo">

                            <ItemTemplate>

                                 <asp:Image ID="Photo" Runat="server"></asp:Image>

                            </ItemTemplate>

                            <HeaderStyle Width="160px" />

                       </asp:TemplateColumn>

                   </Columns>

              </asp:datagrid><asp:label id="Label1" style="Z-INDEX: 102; LEFT: 24px; POSITION: absolute; TOP: 184px" runat="server"

                   Width="152px" Height="16px" BackColor="Gray" Font-Bold="True">Employee Report</asp:label><asp:button id="Button_Insert" style="Z-INDEX: 103; LEFT: 384px; POSITION: absolute; TOP: 72px"

                   runat="server" Text="Insert" Width="56px"></asp:button>

              <asp:TextBox id="Tbx_BadgeNo" style="Z-INDEX: 104; LEFT: 128px; POSITION: absolute; TOP: 40px"

                   runat="server"></asp:TextBox>

              <asp:Button id="Button_Report" style="Z-INDEX: 105; LEFT: 384px; POSITION: absolute; TOP: 112px"

                   runat="server" Text="Report"></asp:Button></form>

     </body>

</HTML>

第二页有后台代码

 ---Code Section  WebFor2.vb---

Imports System

Imports System.Drawing

Imports System.IO

Imports System.Data.SqlClient

Public Class WebForm2

  Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

  'This call is required by the Web Form Designer.

  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

 

  End Sub

  Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile

  Protected WithEvents Tbx_BadgeNo As System.Web.UI.WebControls.TextBox

  Protected WithEvents Button_Insert As System.Web.UI.WebControls.Button

  Protected WithEvents Button_Report As System.Web.UI.WebControls.Button

  Protected WithEvents Label1 As System.Web.UI.WebControls.Label

  Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

  'NOTE: The following placeholder declaration is required by the Web Form Designer.

  'Do not delete or move it.

  Private designerPlaceholderDeclaration As System.Object

  Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

    'CODEGEN: This method call is required by the Web Form Designer

    'Do not modify it using the code editor.

    InitializeComponent()

  End Sub

#End Region

 

  Private connString As String

  Private Sub InitalDB()

    Dim uid = ConfigurationSettings.AppSettings("uid")

    Dim pwd = ConfigurationSettings.AppSettings("pwd")

    Dim server = ConfigurationSettings.AppSettings("server")

    Dim database = ConfigurationSettings.AppSettings("database")

    connString = "server=" & server & ";uid=" & uid & ";pwd=" & pwd & ";database=" & database

  End Sub

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'Put user code to initialize the page here

    InitalDB()

  End Sub

  Private Sub Button_Report_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Report.Click

    ShowPhoto()

  End Sub

  Private Sub ShowPhoto()

    Dim dt As New DataTable

    Dim myConn As SqlConnection = New SqlConnection(connString)

    Dim sql As String = " SELECT * FROM tb_1 "

    myConn.Open()

    Dim adp As New SqlDataAdapter(sql, myConn)

    adp.Fill(dt)

    For lint_index As Integer = 0 To dt.Rows.Count - 1

      Dim photo() As Byte = CType(dt.Rows(lint_index).Item("Photo"), Byte())

      '   Me.Response.BinaryWrite(photo)

      Dim lstg_badgeno As String

lhm19810710
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
＜.Net＞＜VB＞使用vb.net实现通过ftp协议进行文件上传与下载
用沸腾的热血，支付我们的人生吧！
08-02 4072
ftp传输是一种文件传输协议，在很多时候，可以提供数据传输功能。 软件工具：visual studio 2019 win10系统 打开visual studio 2019，新建一个窗体项目。 从ftp服务器下载文件： Dim req As FtpWebRequest = CType(WebRequest.Create("ftp://192.168.1.102/" + TextBox1.Text + ".txt"), FtpWebRequest) req.Method = WebReque
VB 图片转换为Byte()和从Byte()中读取图片的捷径
03-13
VB 图片转换为Byte()和从Byte()中读取图片的捷径
vb.net 数据库上传图片和下载图片
aa326358942的博客
02-29 1184
Public Function 读取图片(id) As Image If IsDBNull(id) OrElse id = "" Then Return Nothing End If Dim cmds As New SqlCommand($"select img from 图片表 where id='{id}'", ...
ASP.NET初学笔记:FileUpload控件
王亮的专栏
10-10 5862
FileUpLoad控件用于用户向Web应用程序上传文件。文件上传后，可以把文件保存在任意地方，通常把文件保存在文件系统或数据库。向页面添加FileUpLoad控件会自动地为服务器的标签添加enctype="multipart/form-data"属性。1.  把文件保存到文件系统以下代码页面展示了如何使用FileUpLoad控件把图片上传到应用程序。
VB.NET学习笔记：操作数据集DataSet中DataTable数据行(DataRow)——新增、插入、复制、克隆
热门推荐
zyjq52uys的博客
06-13 1万+
通常我们都知道可以使用OleDbDataAdapter对象的Fill方法从数据源检索数据并填充DataSet 中的DataTable，其实我们也可以人工为DataTable添加DataRow。 一、Rows.Add和Rows.InsertAt方法 Add和InsertAt方法都可以把新行添加到DataTable。 新一个Windows应用程序，在Form1窗体拉入一个按钮和DataGridView...
VB_test.rar_VB_test_cdma_串口_串口 二进制_二进制 文本
最新发布
09-24
《VB编程实现串口通信：二进制与文本模式详解》 在信息技术领域，串口通信作为一种基础且广泛使用的通信方式，被广泛应用在各种设备之间数据传输。VB（Visual Basic）作为微软公司推出的可视化编程工具，以其易学...
vb.net华视身份证读卡器程序CVR-100U源代码
10-14
本文将详细探讨如何使用VB.NET编程语言，针对华视CVR-100U身份证读卡器进行程序开发，以实现对身份证信息的有效读取和处理。 华视CVR-100U是一款专业的身份证读卡器，其具备USB接口，能够快速、准确地读取第二代...
VB.NET上机试题
12-21
VB.NET提供了丰富的文件I/O功能，如StreamReader和StreamWriter用于读写文本文件，FileStream和BinaryReader/BinaryWriter用于二进制文件。使用Stream类可以进行网络和内存数据传输。 7. **数据库访问** ADO.NET...
VB.NET写的文档管理系统
05-21
在数据库设计上，可能会有多个表，如“文档”表用于存储文档的基本信息（如标题、作者、创建日期等），而“文档内容”表则用于存储实际的文档内容，可能以BLOB（二进制大对象）类型存储。 在文档管理方面，系统可能...
VB将任意图片转换为Base64文本格式
05-16
内容索引:VB源码,图形处理,图像转换,加密,解密　　VB将任意图片转换为Base64文本格式，转换后需要还原才能看到原有图像，利用这个方法你可以考虑给图像加密或解密，注意，转换后的Base64文本可能会比较庞大，不过还是有优势的。
VB.NET操作注册表示例源码.rar
05-20
在VB.NET编程中，操作注册表是一项常见的任务，特别是在系统设置和配置方面。这个"VB.NET操作注册表示例-取消桌面快捷方式小箭头"的示例源码着重展示了如何利用VB.NET修改注册表来控制桌面快捷方式的显示效果。在...
ASP.NET 多文件上传（上传文件大小处理，上传文件分类文件夹处理，数据库存储，仿倒链处理）
MarkManYUN的博客
04-19 428
首先看看html代码，有个隐藏域，里面装FileUpload(上传),button（提交）,textbox（计数文件个数大小），通过JS点击图片完成隐藏域里的上传提交操作。配置文件：1、解决文件上传大小：2、g一、HTML+后台upload_info.aspx二、js部分 &lt;script type="text/javascript"&gt; $(document).rea...
上传文件到服务器并将文件路径存入数据库
了迹奇有没
02-14 1万+
在做练手项目的时候总有需要上传文件的功能点，如何简单快捷的实现呢？ 首先，我们需要将下面的类引入你的项目，新建一个config包放进去就好。 public class FileUtil { public static String upload( MultipartFile mFile,HttpServletRequest request){ SimpleDateFormat yforma...
文件如何上传到ftp服务器上,客户端文件如何上传到ftp服务器
weixin_32595533的博客
08-09 1602
客户端文件如何上传到ftp服务器 内容精选换一换本章节指导您使用MongoDB客户端，通过内网连接单节点实例。通过MongoDB客户端连接实例的方式有普通连接和SSL连接两种，其中SSL连接通过了加密功能，具有更高的安全性。为了提升数据在网络传输过程中的安全性，建议采用SSL方式。操作系统使用场景：弹性云服务器的操作系统以Linux为例，客户端本地使用的计算机系统以Windows为例。本章节指导您...
如何使DATATABLE中动态插入图片，并在DATAGIRDVIEW中显示
yck263的专栏
12-20 3007
    Private Function labelupdate()Function labelupdate() As Boolean        Try            Dim i As Int32            Dim aa As String            aa = ""            DataGridView2.AutoGenerateColumns =
ckfinder 图片预览 有的显示有的不显示_VGA显示图片
weixin_39976382的博客
11-24 171
VGA显示图片1.1 FPGA存储器 目前大多数FPGA都有内嵌的块RAM(Block RAM)，可以将其灵活地配置成单端口RAM(DPRAM，Single Port RAM)、双端口RAM(DPRAM，Double Ports RAM)、伪双端口RAM(PseudoDPRAM)、CAM(Content AddressableMemory)、FIFO等常用存储结构。FPGA中其实并...
c#和vb.net创建datatable
日々精進
05-01 7554
c#和vb.net创建datatable 2011-03-02 09:39 798人阅读 评论(1) 收藏 举报 Asp.net DataTable添加列和行的方法 方法一: DataTable tblDatas = new DataTable("Datas"); DataColumn dc = null; dc = tblDatas.Columns.Add("I
在DataGrid中添加图片列(VB.NET)
sqlmlm的专栏
08-05 962
在DataGrid中添加图片列(VB.NET) 重写DataGridTextBoxColumn类Imports SystemImports System.Windows.FormsImports System.DrawingImports System.DataImports System.Collections/ / Summary description for DataGridI

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值