VB 图片在数据库的导入与导出

Private Sub fuck()
        Try
            Dim o_strpath, o_strname, o_houzui As String
            Dim o_intNPost As Integer, o_intSPost As Integer, o_intLen As Integer
            Dim o_intNlast As Integer
            Dim o_bytBit() As Byte
            o_strpath = "C:\Documents and Settings\vinsonlu\My Documents\My Pictures\logo\003.jpg"
            If File.Exists(o_strpath) Then
                o_intNPost = o_strpath.LastIndexOf("\")
                o_intSPost = o_strpath.LastIndexOf(".")
                o_intLen = o_intSPost - o_intNPost
                o_strname = o_strpath.Substring(o_intNPost + 1, o_intLen - 1)
                o_houzui = o_strpath.Substring(o_intSPost + 1)
                o_strname = o_strname + "." + o_houzui
                txtRemark1.Text = o_strpath
                Dim fs As FileStream
                Dim br As BinaryReader
                fs = New FileStream(o_strpath, FileMode.Open, FileAccess.Read)
                br = New BinaryReader(fs)
                o_bytBit = br.ReadBytes(fs.Length)

                Dim sqlcmd_shangchuan As New SqlClient.SqlCommand
                Dim o_scCon As New SqlConnection
                Try
                    o_scCon.ConnectionString = connectstrinG()
                    o_scCon.Open()

                Catch ex As Exception
                    System.Console.WriteLine(ex.ToString)
                    MsgBox("cannot connect to SQL Server !", MsgBoxStyle.Critical, "Connection Error")
                    Return
                End Try
                With sqlcmd_shangchuan
                    .Connection = o_scCon
                    .CommandType = CommandType.StoredProcedure
                    .CommandText = "fuck"
                    .Parameters.Clear()
                    .Parameters.Add("@image", SqlDbType.Image, o_bytBit.Length).Value = o_bytBit
                    .ExecuteNonQuery()
                End With

            End If
        Catch ex As Exception
        End Try
    End Sub

存儲過程：

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go









ALTER    proc [dbo].[fuck]
@image image
as


update CompanyProfile set CompanyLogo=@image where CompanyCode='Brunet_pk'

按指定长宽导出到硬盘：

Private Function getImage(ByVal CompanyCode As String, ByVal x As Short, ByVal y As Short) As Boolean
        Try
            Dim command As New SqlCommand("select CompanyLogo from CompanyProfile where CompanyCode='" + CompanyCode + "'", SqlConnect)
            Dim by As Byte() = DirectCast(command.ExecuteScalar(), Byte())
            If Not System.IO.Directory.Exists("C:\TEMP\") Then
                System.IO.Directory.CreateDirectory("C:\TEMP\")
            End If
            Dim LogoFileName As String = "C:\TEMP\BILogo.jpg"
            Dim TmpLogo As Bitmap = gData.ChangeImageSize(by, x, y)
            TmpLogo.Save(LogoFileName)
            command.Dispose()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

在winform界面显示：

    Private Sub Filldgv_image()
        '列表顯示
        Try
            Dim datatable As DataTable = gData.GetDataTable("select featmgid,featmgnam,cretuser,convert(varchar(10),cretdate,21 ) as cretdate from cd_featureimages " + strwhere_image + " order by ledtdate desc ", SqlConnect)

            With dgv_image
                .DataSource = datatable
                .Columns("featmgid").Caption = "Image ID"
                .Columns("featmgnam").Caption = "Image Name"
                .Columns("cretuser").Caption = "Creation User"
                .Columns("cretdate").Caption = "Creation Date"
                For I As Int16 = 0 To .Columns.Count - 1
                    .Splits(0).DisplayColumns(I).AutoSize()
                Next
            End With
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

        '圖片顯示
        'picture1
        Try
            Dim command As New SqlCommand("select image from cd_featureimages " + strwhere_image + " and featmgid=1", SqlConnect)
            Dim by As Byte() = DirectCast(command.ExecuteScalar(), Byte())
            With PictureBox1
                .Controls.Clear()
                .Image = LoadImage(by)
            End With
            command.Dispose()
        Catch ex As Exception

        End Try

        'picture2
        Try
            Dim command As New SqlCommand("select image from cd_featureimages " + strwhere_image + " and featmgid=2", SqlConnect)
            Dim by As Byte() = DirectCast(command.ExecuteScalar(), Byte())
            With PictureBox2
                .Controls.Clear()
                .Image = LoadImage(by)
            End With
            command.Dispose()
        Catch ex As Exception

        End Try
    End Sub

Private Function LoadImage(ByVal by As Byte()) As System.Drawing.Bitmap
        Try
            If by Is Nothing Then
                Return Nothing
            End If
            Me.Cursor = Cursors.WaitCursor
            Dim m_PicW As Integer = 168
            Dim m_PicH As Integer = 140
            Dim ms As New IO.MemoryStream(by)
            Dim imgT As New PictureBox
            imgT.SizeMode = PictureBoxSizeMode.AutoSize
            imgT.Image = Image.FromStream(ms)

            Dim bmp As New System.Drawing.Bitmap(m_PicW, m_PicH)
            Dim grp As Graphics = Graphics.FromImage(bmp)
            Dim blueBrush As New SolidBrush(Color.White)

            grp.FillRectangle(blueBrush, 0, 0, m_PicW, m_PicH)
            Dim intW As Single
            Dim intH As Single
            If imgT.Width > m_PicW Then
                intW = m_PicW
                intH = imgT.Height * (m_PicW / imgT.Width)
            Else
                intW = imgT.Width
                intH = imgT.Height
            End If
            If intH > m_PicH Then
                intH = m_PicH
                intW = imgT.Width * (m_PicH / imgT.Height)
            End If

            grp.DrawImage(imgT.Image, (m_PicW - intW) / 2, (m_PicH - intH) / 2, intW, intH)

            ms.Close()
            Me.Cursor = Cursors.Default
            Return bmp
        Catch ex As Exception
            Me.Cursor = Cursors.Default
            MsgBox(ex.ToString, MsgBoxStyle.Critical, CD_SYSTEM_NAME)
            Return Nothing
        End Try
    End Function