Gravar imagem no BD


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Gravar imagem no BD

Fafá

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 16/10/2010 23:01 hs

Olá pessoal. Estou com um projeto para avaliação no meu colégio e estou com uma grande dúvida!

Por enquanto como estou no pinicio estou utilizando como BD o Acess, tenho o cadastro de livros que tem como seguinte item a foto da capa. Eu puxo ela de seguinte maneira para o programa:

"Private Sub ImgFot_Click()
dlg.ShowOpen
ImgFot.Picture = LoadPicture(dlg.FileName)
End Sub"

Até aqui beleza. Sendo que pra salvar eu não faço a mínima ideia :( Gostaria se alguém poderia me ajudar quanto a isso. De como eu faço pra salvar a imagem que eu busquei no banco de dados. Obrigada

TÓPICO EDITADO

Orlando
não registrado

ENUNCIADA !

Postada em 17/10/2010 09:32 hs

Olhe este site http://www.macoratti.net/10/08/vb_eibd.htm.

Lá tem mais exemplo, é só procurar.

Fafá

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 17/10/2010 19:38 hs

Obrigada Orlando! Eu andei dabdo uma pesquizada também e consegui fazeer! Fiz assim, criei 2 variaveis ' path ' & 'NumImag' e fiz isso:

"If FrmCLi.Dlg.FileName <> "" Then
        MdlConnect.Abrir_banco
        Set MdlConnect.dbRecord = MdlConnect.dbConnect.Execute("SELECT * FROM NextValor WHERE CodValor = 1")
        NumImag = MdlConnect.dbRecord.Fields("Valor").Value

        path = App.path & "ImagensCapa" + NumImag + ".jpg"
        FileCopy FrmCLi.Dlg.FileName, path
        NumImag = NumImag + 1
        Set MdlConnect.dbRecord = MdlConnect.dbConnect.Execute("UPDATE NextValor set Valor ='" & NumImag & "' WHERE CodValor = 1")
        GLivro.Imagem = path
    End If"

Daí salvou bonitinhO' rs

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR