none
inserir imagem no banco de dados

    Pergunta

  •  

    Boa Tarde Galera !

     

     Estou fazendo um sistema de video locadora  em vb.net , e no cadastro de funcionarios terá a foto do funcionario inserida além dos dados pessoais dele , a imagem já está sendo aberta dentro do form , só não obtive sucesso na hora de inserir a mesma !

      Será que alguém poderia me ajudar ?

     

    Agradeço desde já atenção !!!!!!

     

    Abraços .

    sexta-feira, 8 de fevereiro de 2008 16:43

Todas as Respostas

  • Luana,

     

    Esse link tem um exemplo completo (Ler e Gravar) - Exemplo com banco de dados SQL-Server 2005

    http://www.macoratti.net/vb5_isql.htm

     

    Ajude a melhorar o nosso Forum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

     

    sexta-feira, 8 de fevereiro de 2008 17:32
  • Bom dia Laercio !

    primeiramente agradesço a atenção .... 

    fiz do mesmo jeito que estava la no tutorial do macoratt porém não obtive sucesso , inclusivel criei

    a spcarregafoto ...

     

    Function insert_foto(ByVal id As Integer) As Boolean

    Dim nomeArquivo As String = ""

    Dim salvaimagem As Boolean

    Dim openDlg As OpenFileDialog = New OpenFileDialog()

    openDlg.Filter = "All Bitmap files|*.JPG"

    Dim filter As String = openDlg.Filter

    openDlg.Title = "Abrir Arq. BitMap"

    'abre a janela de diáglogo para procurar o arquivo a ser usado como imagem

    If (openDlg.ShowDialog() = Windows.Forms.DialogResult.OK) Then

    nomeArquivo = openDlg.FileName

    salvaimagem = True

    If salvaimagem = True Then

    Dim fsFoto As FileStream

    fsFoto = New FileStream(nomeArquivo, FileMode.Open)

    Dim fiFoto As FileInfo = New FileInfo(nomeArquivo)

    Dim Temp As Long = fiFoto.Length

    Dim lung As Long = Convert.ToInt32(Temp)

    Dim picture(lung) As Byte

    'le a imagem

    fsFoto.Read(picture, 0, lung)

     

    'cria um novo objeto command usando a stored procedure ja criada na base de dados

    Dim cmdFoto As New SqlCommand("CarregaFoto", con2)

    cmdFoto.CommandType = CommandType.StoredProcedure

    'recebe os parametros para a stored procedure spCarregaFoto

    Dim sql_id As New SqlParameter("@ID", id)

    Dim sql_Foto As New SqlParameter("@Foto", SqlDbType.Image)

    sql_Foto.Value = picture

    'adicona os parametros informados

    cmdFoto.Parameters.Add(sql_id)

    cmdFoto.Parameters.Add(sql_Foto)

    'executa a stored procedures usando os parâmetros informados

    cmdFoto.ExecuteNonQuery()

    cmdFoto.Dispose()

    sql_Foto = Nothing

    picture = Nothing

    Return True

    End If

    End If

    End Function

     

    depois fiz a chamada la na camada de apresentação ... Sad

     

    Abraços !! 

    quarta-feira, 13 de fevereiro de 2008 13:35