1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Gravar um imagem do ficheiro para a base de dados

Discussão em 'Programação' iniciada por Aval0n, 23 de Janeiro de 2007. (Respostas: 0; Visualizações: 530)

  1. Olá, kd vou pa preencher a stream reader com o ficheiro, este diz-me k n o consegue localizar...
    isto é VB2005 express

    criar o filestream e o streamreader

    Dim strFn As String = imgfilename.Text

    Dim fiImage As New FileInfo(strFn)
    'guardar o tamanho em disco k ocupa a imagem e k ira ocupar no array de bytes
    Dim m_lImageFileLength As Integer = fiImage.Length
    'criar um file para armazenar a imagem
    Dim fs As New FileStream(strFn, FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
    'criar um array de bytes com o tamanho guardado na variavel m_lImageFileLength
    Dim m_barrImg(Convert.ToInt32(m_lImageFileLength)) As Byte
    'crear um stream reader para ler o ficheiro
    Dim iBytesRead As New StreamReader(fs.Read(m_barrImg, 0, Convert.ToInt32(m_lImageFileLength))) <-------- o erro é aki!!!!!!!
    fs.Close()
    strFn = ""


    gravar na bd



    Dim conngravaimg As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ..\..\..\..\BDPUB.mdb")
    Dim commgravaimg As New OleDbCommand("INSERT INTO TBImagem(Imagem) VALUES (@imagem)")
    conngravaimg.Open()
    commgravaimg.Parameters.Add("@imagem", OleDbType.VarBinary)
    commgravaimg.Parameters.Item("@imagem").Value = "m_barrImg"

    commgravaimg.ExecuteNonQuery()


    conngravaimg.Close()





    Alguma sugestão???
     

Partilhar esta Página