PDF BLOB MYSQL

   Dim origStream As New IO.FileStream([Ô]C:\Users\lucas\Desktop\a.pdf[Ô], FileMode.Open, FileAccess.Read)
        Dim destStream As New IO.FileStream([Ô]C:\Users\lucas\Desktop\ORIGEM\a.pdf[Ô], FileMode.Create, FileAccess.Write)

        Dim reader As New BinaryReader(origStream)
        Dim arquivo As Byte() = reader.ReadBytes(Convert.ToInt32(origStream.Length))

        Dim writer As New BinaryWriter(destStream)
        writer.Write(arquivo)

        reader.Close()
        writer.Close()
        origStream.Close()
        destStream.Close()
 

  
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = [Ô]server=localhost;user id=root;password=root;database=teste[Ô]
        SQL = [Ô]insert into datas (data,arquivo) values (@data,@arquivo)[Ô]
        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = SQL

                Dim data As Date
                data = (Format(DateTimePicker1.Text, [Ô]Short Date[Ô]))
                myCommand.Parameters.AddWithValue([Ô]@data[Ô], Format(data, [Ô]yyyy-MM-dd[Ô])) [ô]precisa usar o format em um variavel do tipo date
                Dim origStream As New FileStream([Ô]c:\obd.pdf[Ô], FileMode.Open, FileAccess.Read)
                Dim reader As New BinaryReader(origStream)
                Dim arquivo As Byte() = reader.ReadBytes(Convert.ToInt32(origStream.Length))

                myCommand.Parameters.AddWithValue([Ô]@arquivo[Ô], reader)

                reader.Close()
                origStream.Close()

                myCommand.ExecuteNonQuery()
            Catch myerro As MySqlException
                MsgBox([Ô]Erro na escrita : [Ô] & myerro.Message)
            End Try
            MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
            conn.Close()
        Catch myerro As MySqlException
 

        Dim fs As New IO.FileStream([Ô]C:\Users\lucas\Desktop\a.pdf.pdf[Ô], FileMode.Open, FileAccess.Read)

        Dim br As New BinaryReader(fs)

        Dim imageBytes As Byte() = br.ReadBytes(CInt(fs.Length))

        br.Close()
        fs.Close()

        sql = [Ô]INSERT INTO tb_logs(Terminal)[Ô] &
               [Ô] VALUES(@PDF)[Ô]

        Dim objCmd As New MySqlCommand(Sql, objConexao)

        objCmd.Parameters.AddWithValue([Ô]@PDF[Ô], imageBytes)
       
        Try
            objConexao.Open()
            objCmd.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            objConexao.Close()
        End Try

  using (MySqlConnection Con = new MySqlConnection())
        {
            try
            {
                Con.ConnectionString = CarregarConStr();
                Con.Open();
            }
            catch (Exception exc)
            {
                // Mostra o erro!  
                return;
            }
            using (MySqlCommand cmd = new MySqlCommand([Ô]SELECT Terminal FROM tb_logs WHERE Codigo=[ô]153[ô][Ô], Con))
            {
                using (MySqlDataAdapter daSql = new MySqlDataAdapter(cmd))
                {
                    DataTable dtClientes = new DataTable([Ô]tb_logs[Ô]);
                    daSql.Fill(dtClientes);
                     byte[] data = (byte[])dtClientes.Rows[0][[Ô]Terminal[Ô]];

                    Response.Clear();
                    Response.ContentType = [Ô]application/pdf[Ô];
                    Response.AddHeader([Ô]content-length[Ô], data.Length.ToString());
                    Response.BinaryWrite(data);
                    Response.Flush();
                    Response.Close();


                }
            }
        }