inserir imagem no banco de dados

Question

 

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 .

Answer 1

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.

 

Answer 2

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 ...

 

Abraços !!