Olá!
Bom eu sei armazenar videos no access usando o OBJETO OLE. mas o que eu queria mesmo era fazer esse processo através do VB.net
Por exemplo para inserir uma imagem eu uso o seguinte método
Private Sub btnIncluir_Click(sender As System.Object, e As System.EventArgs) Handles btnIncluir.Click
Dim cn As New OleDb.OleDbConnection
'cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Application.StartupPath & "\Escola.mdb"
cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=D:\Documentos\Escola1.mdb"
Try
cn.Open()
Dim arrImagem() As Byte
Dim strImagem As String
Dim ms As New IO.MemoryStream
'
If Not IsNothing(Me.picFoto.Image) Then
Me.picFoto.Image.Save(ms, Me.picFoto.Image.RawFormat)
arrImagem = ms.GetBuffer
strImagem = "?"
Else
arrImagem = Nothing
strImagem = "NULL"
End If
'------------------------<...>---------------
Dim arrImagem2() As Byte
Dim strImagem2 As String
Dim ms2 As New IO.MemoryStream
'
If Not IsNothing(Me.PictureBox1.Image) Then
Me.PictureBox1.Image.Save(ms2, Me.PictureBox1.Image.RawFormat)
arrImagem2 = ms2.GetBuffer
strImagem2 = "?"
Else
arrImagem2 = Nothing
strImagem2 = "NULL"
End If
Dim myCmd As New OleDb.OleDbCommand
myCmd.Connection = cn
myCmd.CommandText = "INSERT INTO Alunos(nome, imagem, imagem2) " & _
" VALUES(?," & strImagem & "," & strImagem2 & ")"
myCmd.Parameters.AddWithValue (New OleDb.OleDbParameter("@nome", Convert .ToString (Row ))
If strImagem = "?" Then
myCmd.Parameters.Add(strImagem, OleDb.OleDbType.Binary).Value = arrImagem
End If
If strImagem2 = "?" Then
myCmd.Parameters.Add(strImagem2, OleDb.OleDbType.Binary).Value = arrImagem2
End If
myCmd.ExecuteNonQuery()
MsgBox("Dados Salvos com sucesso!")
Catch ex As Exception
MsgBox("Erro" & ex.Message, MsgBoxStyle.Information)
Finally
cn.Close()
End Try
CarregaDados()
End Sub
mas antes tenho que carregar a imagem através de uma picturebox, conforme abaixo↓
Private Sub lnk_Importa_Imagem_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkProcurar.LinkClicked
If Me.ofdImagem.ShowDialog = 1 Then
Me.PictureBox1.Image = System.Drawing.Image.FromFile(Me.ofdImagem.FileName)
Else
Me.PictureBox1.Image = System.Drawing.Image.FromFile(Application.StartupPath & "/semfoto.jpg")
End If
End Sub
Eu um método que possa fazer a mesma coisa porém com um videos (os videos são pequenos e tem o mesmo tipo)
Podendo me ajudar... Obrigado
