guardar imagem do user no mysql vb 2005

[Nandosco 0]

preciso de ajuda para guardar uma imagem na base de dados eu consigo "converter"a imagem para byte mas só que não consigo guardar na base de dados

[rob38 0]

Para adicionar imagem, você deve primeiro criar no banco um campo do tipo LONGBLOBTente fazer assim, Dim Imagem as String = "C:\Imagem.JPG"'Agora as barras não podem ser barra invertida, pois da problema no Mysql. Então Faça isto:Dim var as String = Replace(imagem, "\", "/")'O insert fica assim:Dim sql= new MysqlCommand("Insert into tabela values (LOAD_FILE(""" & var & """))", Conexao)Agora para Buscar a imagem no Banco Faça o seguinte:'Crie um PictureBox para receber a imagem e altere o código abaixo de acordo com seu Projeto.'Ai sempre que for exibir a imagem chame a função MOSTRAFOTO()Private Sub MostraFoto()Dim MyThumbNail As ImageDim imagem As BitmapDim dsClientes As New DataSetDim da As New MySqlDataAdapter("select imagem from Tabela where codigo=" Codigo "", Conexao)da.Fill(dsClientes, "produtos")'tenha certeza de que a tabela contem registrosIf dsClientes.Tables("produtos").Rows.Count > 0 Then'verifique se o campo Picture do registro atual não é NULLIf Not dsClientes.Tables("produtos").Columns("imagem") Is DBNull.Value Then'Dimensiona uma varivael Byte array (bytePicData) e armazena o valor no campo FotoDim bytePicData() As Byte = _dsClientes.Tables("produtos").Rows(Me.BindingContext(dsClientes, "produtos").Position)("imagem")'Um MemoryStream é um obejto System.IO (como um FileStream). Movendo os valores de' do byte array bytePicData para MemoryStream, podemos usar o metodo FromStream do objeto Image Intrinsico' para converter e copiar a figura diretamente para a propriedade Image do controle picFotoDim PicMemStream As New System.IO.MemoryStream(bytePicData)'pcbimagem.Image = Image.FromStream(PicMemStream)imagem = New Bitmap(Image.FromStream(PicMemStream))'Aqui o 220 e o 250 é o tamanho do seu PictureBoxMyThumbNail = imagem.GetThumbnailImage(220, 250, AddressOf ThumbNailAbort, Nothing)pcbimagem.Image = MyThumbNailElse 'Se o campo Foto for Null, define a propriedade Image de picFoto para Nothing' para remover qualquer imagem exibida antespcbimagem.Image = NothingEnd IfEnd IfEnd Sub'Este Código abaixo é necessário para manipular a imagem de acordo com o tamanho do PictureBoxPrivate Function ThumbNailAbort() As Boolean'Nada AquiEnd FunctionEspero ter ajudadoAbraçoRobson

[Nandosco 0]

obrigado deu uma ajuda fixefica bem

[eriva_br 7]

tem esse artigo aqui tb.: http://www.linhadecodigo.com.br/artigos.asp?id_ac=337

 

t+