Загрузка картинки

Imports System
Imports System.Diagnostics
Imports System.Data.Sql
Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.Drawing
 
 
 
Public Class AllForm
    Inherits System.Windows.Forms.Form
    Private helpProvider As New System.Windows.Forms.HelpProvider
 
    Private Sub AllForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim j As Integer
        Dim i As Integer
        Dim conn As New MySqlConnection
        Dim rec As New DataSet
        Dim sql As String = "Select * From zaposleni"
        Dim da As New MySqlDataAdapter(sql, conn)
       
 
        Me.butClose.Focus()
        Me.butClose.Select()
 
        Try
            If conn.State = ConnectionState.Closed Then
                conn.ConnectionString = "DATABASE=dlhe_spk;SERVER=localhost;user id=root;password=kopans"
                
                conn.Open()
                da.Fill(rec, "zaposleni")
                conn.Close()
            End If
        Catch myerror As Exception
            MsgBox("Соединение не удалось! программа будет закрыта" & vbNewLine & myerror.Message, 48, "Ошибка!")
            End
        End Try
 
        i = MainForm.numr
       
       
        TextBox1.Text = rec.Tables("zaposleni").Rows(i).Item(0)
        TextBox2.Text = rec.Tables("zaposleni").Rows(i).Item(1)
        TextBox3.Text = rec.Tables("zaposleni").Rows(i).Item(2)
        TextBox4.Text = rec.Tables("zaposleni").Rows(i).Item(3)
        TextBox5.Text = rec.Tables("zaposleni").Rows(i).Item(4)
        TextBox6.Text = rec.Tables("zaposleni").Rows(i).Item(5)
        TextBox7.Text = rec.Tables("zaposleni").Rows(i).Item(6)
        TextBox8.Text = rec.Tables("zaposleni").Rows(i).Item(7)
        TextBox9.Text = rec.Tables("zaposleni").Rows(i).Item(8)
        TextBox10.Text = rec.Tables("zaposleni").Rows(i).Item(10)
        TextBox11.Text = rec.Tables("zaposleni").Rows(i).Item(11)
        TextBox12.Text = rec.Tables("zaposleni").Rows(i).Item(14)
        TextBox13.Text = rec.Tables("zaposleni").Rows(i).Item(15)
        TextBox14.Text = rec.Tables("zaposleni").Rows(i).Item(16)
        TextBox15.Text = rec.Tables("zaposleni").Rows(i).Item(17)
        TextBox16.Text = rec.Tables("zaposleni").Rows(i).Item(18)
        TextBox17.Text = rec.Tables("zaposleni").Rows(i).Item(20)
        TextBox18.Text = rec.Tables("zaposleni").Rows(i).Item(21)
        TextBox19.Text = rec.Tables("zaposleni").Rows(i).Item(22)
        TextBox20.Text = rec.Tables("zaposleni").Rows(i).Item(23)
        TextBox21.Text = rec.Tables("zaposleni").Rows(i).Item(25)
        TextBox22.Text = rec.Tables("zaposleni").Rows(i).Item(28)
        If rec.Tables("zaposleni").Rows(i).Item(29) Is DBNull.Value Then
            rec.Tables("zaposleni").Rows(i).Item(29) = 0
        Else
            TextBox23.Text = rec.Tables("zaposleni").Rows(i).Item(29)
        End If
      
        
 
    End Sub

PictureBox1.ImageLocation = "http://картинка.png"

Private Sub SaveImage(ByVal image As Byte())
        Using conn = New MySqlConnection(ConnectionString)
            Using cmd = conn.CreateCommand()
                cmd.CommandText = "INSERT INTO pictures (Product, Manufacturer, Description, Price, Image) VALUES ('New_Product', 'New_Manufacturer', 'New_Description', '0', ?Image)"
                cmd.Parameters.Add("?Image", image)
                cmd.ExecuteNonQuery()
            End Using
        End Using
    End Sub
 
    Private Function GetImage(ByVal product As String) As Byte()
        Using conn = New MySqlConnection(ConnectionString)
            Using cmd = conn.CreateCommand()
                cmd.CommandText = "SELECT Image FROM pictures WHERE Product = ?product"
                cmd.Parameters.Add("?product", product)
                Using reader = cmd.ExecuteReader()
                    If Not reader.Read() Then
                        Return Nothing
                    End If
 
                    Const CHUNK_SIZE As Integer = 2 * 1024
                    Dim buffer As Byte() = New Byte(CHUNK_SIZE - 1) {}
                    Dim bytesRead As Long
                    Dim fieldOffset As Long = 0
                    Using stream = New MemoryStream()
                        While (InlineAssignHelper(bytesRead, reader.GetBytes(reader.GetOrdinal("Image"), fieldOffset, buffer, 0, buffer.Length))) > 0
                            stream.Write(buffer, 0, CInt(bytesRead))
                            fieldOffset += bytesRead
                        End While
                        Return stream.ToArray()
                    End Using
                End Using
            End Using
        End Using
    End Function

Dim image__1 As Byte() = GetImage("New_Product")
Dim stream As New MemoryStream(image__1)
pictureBox2.Image = Image.FromStream(ms)

Imports System.Data.SqlClient
Imports System.Data.Common
Imports System.Drawing
Imports System.IO
 
'Автор: Петррр
 
Class Program
    Private Shared Sub Main(args As String())
        Dim sqlConnection As New SqlConnection("Data Source=COMP\SQLEXPRESS;Initial Catalog=db;Integrated Security=True;Pooling=False")
        Dim sqlCommand As New SqlCommand("SELECT image FROM tab WHERE id = 1", sqlConnection)
        sqlConnection.Open()
        Dim sqlDataReader As SqlDataReader = sqlCommand.ExecuteReader()
        If sqlDataReader.HasRows Then
            Dim memoryStream As New MemoryStream()
            For Each record As DbDataRecord In sqlDataReader
                memoryStream.Write(DirectCast(record("image"), Byte()), 0, DirectCast(record("image"), Byte()).Length)
            Next
            Dim image__1 As Image = Image.FromStream(memoryStream)
            image__1.Save("C:\1.BMP")
            memoryStream.Dispose()
            image__1.Dispose()
        Else
            Console.WriteLine("Пустая выборка")
        End If
        sqlConnection.Close()
    End Sub
End Class

Dim sqlCommand As New SqlCommand("SELECT image FROM tab WHERE id = 1", sqlConnection)

i = MainForm.numr

Dim sqlCommand As New SqlCommand("SELECT image FROM tab WHERE id = "+ i.ToString(), sqlConnection)