IMAGEM VB.NET E MYSQL

  Dim IMG As Bitmap
            Dim Str As String = [Ô]UPDATE Tabela SET foto = @image WHERE condicao;[Ô]
            [ô]==INSERIR FOTO NO BD=============================
            If Not (PctFoto.Image Is Nothing) Then
                [ô]Dim fileName As String = Path.GetTempFileName()
                Dim fileName As String = Path.GetTempPath & [Ô]img1.jpg[Ô]
                IMG = PctFoto.Image
                File.Delete(fileName)
                IMG.Save(fileName)
                Dim CAMINHO As String = fileName
                Dim myStream As FileStream = New FileStream(CAMINHO, FileMode.Open, FileAccess.Read)
                [ô][ô] Create a buffer to hold the stream of bytes
                Dim myImageBuffer(myStream.Length) As Byte
                Dim myAdapter As CategoriesTableAdapter = New CategoriesTableAdapter()
                [ô][ô] Read the bytes from this stream and put it into the image buffer
                myStream.Read(myImageBuffer, 0, Convert.ToInt32(myStream.Length))
                [ô][ô] Close the stream
                myStream.Close()
                myAdapter.insertNImage(Str, myImageBuffer)
            End If 

  #Region [Ô]Using Statements[Ô]

Imports System
Imports System.Collections.Generic
Imports System.Text

Imports System.IO
Imports System.Data
Imports MySql.Data.MySqlClient
#End Region

Namespace ImgDataTable

    Partial Public Class CategoriesTableAdapter
        Private Connection As String = [Ô]Sua conexão;[Ô]
        [ô][ô][ô] <summary>
        [ô][ô][ô] The insertNewImage method takes all the information about the image and stores it
        [ô][ô][ô] in the database.  This method accesses a stored procedure to insert the data and returns
        [ô][ô][ô] the success statement or error message.
        [ô][ô][ô] </summary>
        [ô][ô][ô] <param name=[Ô]CategoryID[Ô]></param>
        [ô][ô][ô] <param name=[Ô]photographName[Ô]></param>
        [ô][ô][ô] <param name=[Ô]myBuffer[Ô]></param>
        [ô][ô][ô] <returns></returns>
        [ô][ô][ô] 
        Public Function insertNewImage(ByVal CategoryID As Integer, ByVal photographName As String, ByRef myBuffer() As Byte) As String
            Return [Ô][Ô]
        End Function

        Public Function insertNImage(ByVal StrSQL As String, ByRef myBuffer() As Byte) As String

            Dim message As String = [Ô][Ô]
            Dim myConnection As MySqlConnection

            myConnection = New MySqlConnection(Connection)

            Try
                myConnection.Open()

                [ô]Dim fsImage As New FileStream([Ô]d:\fotocrim\690.940.jpg[Ô], FileMode.Open)
                [ô][ô] Create a stored procedure command
                Dim myCommand As New MySqlCommand
                [ô]
                myCommand = myConnection.CreateCommand
                myCommand.CommandText = StrSQL

                [ô][ô] Add the image parameter and set myBuffer as the value.
                myCommand.Parameters.Add([Ô]@image[Ô], MySqlDbType.Blob).Value = myBuffer

                [ô][ô] Execute the insert
                myCommand.ExecuteNonQuery()

                [ô][ô] Close the Connection
                myConnection.Close()

                [ô][ô] Assign the success message
                message = [Ô]foto inserida![Ô]

            Catch ex As Exception
                MsgBox(Err.Number & [Ô] - [Ô] & ex.Message)
                [ô][ô] Assign the error message
                message = Err.Number & [Ô] - [Ô] & ex.Message
            End Try
            Return message

        End Function

        [ô][ô][ô] <summary>
        [ô][ô][ô] The getCategories method is a general method that returns a DataSet with Category
        [ô][ô][ô] information in it.
        [ô][ô][ô] </summary>
        [ô][ô][ô] <returns></returns>
        Public Function getCategories(ByVal MyQuery As String) As DataSet

            Dim myConnection As MySqlConnection
            Dim myCommand As MySqlCommand

            Dim myDataSet As DataSet = New DataSet()
            Dim myAdapter As MySqlDataAdapter
            myConnection = New MySqlConnection(Connection)
            Try
                myConnection.Open()
                myCommand = New MySqlCommand()
                myCommand.CommandText = MyQuery
                myCommand.Connection = myConnection
                myAdapter = New MySqlDataAdapter(myCommand)
                myAdapter.Fill(myDataSet)
                myConnection.Close()
            Catch ex As Exception
                Throw ex
            End Try

            Return myDataSet
        End Function

        [ô][ô][ô] <summary>
        [ô][ô][ô] The getImages method accesses the database and return Image information
        [ô][ô][ô] based on the CategoryID that is passed in.
        [ô][ô][ô] </summary>
        [ô][ô][ô] param name=[Ô]CategoryID[Ô]/param
        [ô][ô][ô] <returns></returns>
        [ô][ô][ô] 
        Public Function getImages(ByVal MyQuery As String) As DataSet
            Dim myConnection As MySqlConnection
            Dim myCommand As MySqlCommand
            Dim myDataSet As DataSet = New DataSet()
            Dim myAdapter As MySqlDataAdapter
            myConnection = New MySqlConnection(Connection)
            Try
                myConnection.Open()
                myCommand = New MySqlCommand()
                myCommand.CommandText = MyQuery
                myCommand.Connection = myConnection
                myAdapter = New MySqlDataAdapter(myCommand)
                myAdapter.Fill(myDataSet)
            Catch ex As Exception
                Throw ex
            End Try
            Return myDataSet
        End Function
    End Class
End Namespace