SALVAR CAMINHO FOTO NO MDB
Ola pessoal tudo!
Estou tentando salvar o caminho da imagem no mdb estou usando ADO. Gostaria de saber como eu faço para salvar o caminho e carregar imagem quando eu carregar o registro atual.
Se alguem tiver um exemplo para mandar agradeço desde já.
Obrigafo
Estou tentando salvar o caminho da imagem no mdb estou usando ADO. Gostaria de saber como eu faço para salvar o caminho e carregar imagem quando eu carregar o registro atual.
Se alguem tiver um exemplo para mandar agradeço desde já.
Obrigafo
Eu faço assim (Sem salvar o caminho do arquivo):
1 - Cria uma pasta Fotos no diretório da aplicação;
2 - Nesta pasta coloca as fotos e renomeia o nome dos arquivos para o código do registro
3 - Também coloca uma imagem para o caso de não haver foto para o registro selecionado
4 - Cria um código que, ao selecionar um registro, busca a foto com o código do registro. Se não houver foto, exibe uma imagem em branco ou com o texto [Ô]SEM FOTO[Ô].
1 - Cria uma pasta Fotos no diretório da aplicação;
2 - Nesta pasta coloca as fotos e renomeia o nome dos arquivos para o código do registro
3 - Também coloca uma imagem para o caso de não haver foto para o registro selecionado
4 - Cria um código que, ao selecionar um registro, busca a foto com o código do registro. Se não houver foto, exibe uma imagem em branco ou com o texto [Ô]SEM FOTO[Ô].
Bom..eu faço parecido com o ROBIU
1 - Cria uma pasta Fotos no diretório da aplicação;
2 - Nesta pasta coloca as fotos
3 - Na tela de Cadastro coloco apenas um text..onde vc busca via um filelistbox (com drivelistBox e DirListBox) ou um CommonDialog o arquivo que deseja anexar a este cadastro, onde neste text aparecerá apenas o path completo do arquivo
4 - qdo chamar esse registro, o campo PathImagem, terá o caminho da imagem....onde num campo Image vc poderá carregar a imagem assim
Img.Picture= LoadPicture (txtPath)
Boa sorte
Boa tarde galera!
To colocando o projeto ai quem poder ne ajudar valeu.
To colocando o projeto ai quem poder ne ajudar valeu.
Ei....como assim?
Baixei o projeto e n tem código algum
Olha um exemplo de codigo:
Precisa de uma CommonDialog para pegar o caminho da foto, localizá-la, para salvar com um nome ou relacionado a algum registro no BD.
Uma picture para mostrar a foto depois de salva, quando chamar o registro relacionado
Nesta parte chamada Upload abre-se a comomdialog, encontra a foto que quer salvar, e salva a foto na pasta de nome: FOTOS que esta na mesma pasta do executavel, alterando o nome do arquivo para o nome do item com o qual tera relação, neste caso, o codigo de uma pessoa, para sempre que clicar em algo desta pessoa abrir a foto do mesmo.
Private Sub upload_Foto()
If vCod_socio <> Empty Then
Dim caminho_foto As String
Dim foto_editada As String
CommonDialog1.Filter = [Ô](*.jpg)|*.jpg|[Ô]
CommonDialog1.ShowOpen
foto_editada = App.Path & [Ô]\fotos\[Ô] & vCod_socio & [Ô].jpg[Ô]
caminho_foto = CommonDialog1.FileName
FileCopy [Ô][Ô] & caminho_foto & [Ô][Ô], [Ô][Ô] & foto_editada & [Ô][Ô]
visualizar_foto
End If
End Sub
Nesta segunda parte, procura-se a foto ao clicar no item relacionado com a pessoa, salva anteriormente
Private Sub visualizar_foto()
On Error GoTo sem_foto
Dim foto As String
foto = App.Path & [Ô]\fotos\[Ô] & vCod_socio & [Ô].jpg[Ô]
Picture1.Picture = LoadPicture([Ô][Ô] & foto & [Ô][Ô])
Picture1.Visible = True
sem_foto:
If Err.Number = 53 Then
Picture1.Visible = False
End If
End Sub
Precisa de uma CommonDialog para pegar o caminho da foto, localizá-la, para salvar com um nome ou relacionado a algum registro no BD.
Uma picture para mostrar a foto depois de salva, quando chamar o registro relacionado
Nesta parte chamada Upload abre-se a comomdialog, encontra a foto que quer salvar, e salva a foto na pasta de nome: FOTOS que esta na mesma pasta do executavel, alterando o nome do arquivo para o nome do item com o qual tera relação, neste caso, o codigo de uma pessoa, para sempre que clicar em algo desta pessoa abrir a foto do mesmo.
Private Sub upload_Foto()
If vCod_socio <> Empty Then
Dim caminho_foto As String
Dim foto_editada As String
CommonDialog1.Filter = [Ô](*.jpg)|*.jpg|[Ô]
CommonDialog1.ShowOpen
foto_editada = App.Path & [Ô]\fotos\[Ô] & vCod_socio & [Ô].jpg[Ô]
caminho_foto = CommonDialog1.FileName
FileCopy [Ô][Ô] & caminho_foto & [Ô][Ô], [Ô][Ô] & foto_editada & [Ô][Ô]
visualizar_foto
End If
End Sub
Nesta segunda parte, procura-se a foto ao clicar no item relacionado com a pessoa, salva anteriormente
Private Sub visualizar_foto()
On Error GoTo sem_foto
Dim foto As String
foto = App.Path & [Ô]\fotos\[Ô] & vCod_socio & [Ô].jpg[Ô]
Picture1.Picture = LoadPicture([Ô][Ô] & foto & [Ô][Ô])
Picture1.Visible = True
sem_foto:
If Err.Number = 53 Then
Picture1.Visible = False
End If
End Sub
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varMethod=notificarerro&varID=4639
Foi mal, link errado...
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4639
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4639
Ola galera aki esta o codigo que carrega as fotos.
Valeu pela ajuda de todos.
Private Sub Seleciona_Imagem()
Dim filter As String
Dim caminho As String
Fotos = [Ô][Ô]
filter = [Ô]Tipos de Imagem (*.bmp, *.jpg, *.jpeg, *.gif)|*.bmp;*.jpg;*.jpeg;*.gif| Bitmap files (*.bmp)|*.bmp|JPEG files (*.jpg, *.jpeg)|*.jpg;*.jpeg|GIF Files (*.gif)|*.gif|All Files (*.*)|*.*[Ô]
CommonDialog1.filter = filter
[ô]diretorio onde estao as imagens
If Dir([Ô]C:\IACOL\FOTO\[Ô], vbDirectory) <> Empty Then
CommonDialog1.InitDir = [Ô]C:\IACOL\FOTO\[Ô]
Else
MkDir [Ô]C:\IACOL\[Ô]
MkDir [Ô]C:\IACOL\FOTO\[Ô]
CommonDialog1.InitDir = [Ô]C:\IACOL\FOTO\[Ô]
End If
CommonDialog1.DefaultExt = [Ô]*.*[Ô]
CommonDialog1.ShowOpen
Fotos = CommonDialog1.FileName
If Fotos <> [Ô][Ô] Then
picImagem.Picture = LoadPicture(Fotos)
Else
picImagem.Picture = LoadPicture([Ô][Ô])
End If
txtCaminho.Text = CommonDialog1.FileName
End Sub
Valeu pela ajuda de todos.
Private Sub Seleciona_Imagem()
Dim filter As String
Dim caminho As String
Fotos = [Ô][Ô]
filter = [Ô]Tipos de Imagem (*.bmp, *.jpg, *.jpeg, *.gif)|*.bmp;*.jpg;*.jpeg;*.gif| Bitmap files (*.bmp)|*.bmp|JPEG files (*.jpg, *.jpeg)|*.jpg;*.jpeg|GIF Files (*.gif)|*.gif|All Files (*.*)|*.*[Ô]
CommonDialog1.filter = filter
[ô]diretorio onde estao as imagens
If Dir([Ô]C:\IACOL\FOTO\[Ô], vbDirectory) <> Empty Then
CommonDialog1.InitDir = [Ô]C:\IACOL\FOTO\[Ô]
Else
MkDir [Ô]C:\IACOL\[Ô]
MkDir [Ô]C:\IACOL\FOTO\[Ô]
CommonDialog1.InitDir = [Ô]C:\IACOL\FOTO\[Ô]
End If
CommonDialog1.DefaultExt = [Ô]*.*[Ô]
CommonDialog1.ShowOpen
Fotos = CommonDialog1.FileName
If Fotos <> [Ô][Ô] Then
picImagem.Picture = LoadPicture(Fotos)
Else
picImagem.Picture = LoadPicture([Ô][Ô])
End If
txtCaminho.Text = CommonDialog1.FileName
End Sub
Tópico encerrado , respostas não são mais permitidas