IMAGENS FORMULARIOS

MARCELOFAZAN 30/05/2010 15:33:54
#343245
Pessoal seguinte ,
já tenho imagens gravadas nas pastas Documents Settings \ caminho .... porem

teria como eu colocar um campo PICTURE na tela e salvar no acess o caminho ou o nome da figura

e validar ... quero somente validar as imagens conforme o codigo do cliente

alguem ?

Abs
Marcelo Fazan
MARCELOFAZAN 30/05/2010 16:27:52
#343252
ja sei que aqui posso mostrar a imagem

Picture1.Picture = LoadPicture([Ô]C:\Documents and Settings\All Users\Documentos\Minhas imagens\Amostras de imagens\Inverno.jpg[Ô])

mais como trocar esse caminho inteiro ..... e buscar as fotos pelos codigos do cliente
MARCELO.TREZE 30/05/2010 16:48:44
#343255 Resposta escolhida
como assim xará, não to conseguindo entender, posta um exemplo.
MARCELOFAZAN 30/05/2010 17:02:22
#343258
to querendo

fazer algo assim
0001 cliente maria foto caminho
0002 cliente joao foto caminho

quero cadastrar as fotos e depois conseguilas consultar
procedimento de tela de cadastro

grava a foto e depois identifica no valid .....
digita 00002 aparece a foto do joao

vi que tem um common dialog aqui que faria isso pra mim
mais nao encontrei nas minha barra de ferramentas
MARCELO.TREZE 30/05/2010 17:31:50
#343261
Xará é o seguinte o segredo está em garavr a foto com onome igual ao código do cliente.

ex:

0001 cliente maria c:\pasta\0001.jpg
0002 cliente joao c:\pasta\0002.jpg


depois para recuperar basta vc indicar o codigo sendo consultado como caminho da imagem

Picture1.Picture = LoadPicture(App.Path & [Ô]\Pasta\[Ô] & txtCodCli.Text & [Ô].jpg[Ô])


e pronto vc terá a imagem correta

então revendo o segredo está em como gravar estas imagens
MARCELOFAZAN 30/05/2010 18:25:55
#343265
Entendi Treze não estou conseguindo trazer

C:\Documents and Settings\All Users\Documentos\Minhas imagens\Amostras de imagens
para um text1


fiz um botao que procura a foto ai ta faltando gravar, mais precisaria colocar o caminho num text box



Private Sub CmdFoto_Click()
dlgImagem.Filter = [Ô]Imagem (*.jpg)| *.jpg[Ô]
dlgImagem.ShowOpen
If dlgImagem.FileName <> [Ô][Ô] Then
StrImagem = dlgImagem.FileName
Set Picture1.Picture = LoadPicture(StrImagem)
End If

Dim Sql As String
Dim rs As New ADODB.Recordset

Sql = [Ô]UPDATE buscar SET[Ô]
Sql = Sql & [Ô] cam_foto=[ô][Ô] & Text1.Text & [Ô][ô][Ô]
Sql = Sql & [Ô] WHERE id= [Ô] & txtid.Text
conexao.Execute Sql

End Sub

preciso pegar o conteudo do caminho e tacar no text1 ....
ai depois vo usar essa verificacao que coloco a acima

sabe como eu retornar num text1 o C:\Documents and Settings\Al\Documentos\Minhas imagens\Amostras de imagens
MARCELO.TREZE 30/05/2010 18:56:44
#343268
só pra exibir o caminho é assim

Private Sub CmdFoto_Click()
dlgImagem.Filter = [Ô]Imagem (*.jpg)| *.jpg[Ô]
dlgImagem.ShowOpen
If dlgImagem.FileName <> [Ô][Ô] Then
StrImagem = dlgImagem.FileName
Set Picture1.Picture = LoadPicture(StrImagem)
End If

Text1.Text = StrImagem [txt-color=#007100][ô] <---Esta linha exibe o caminho[/txt-color]

Dim Sql As String
Dim rs As New ADODB.Recordset

Sql = [Ô]UPDATE buscar SET[Ô]
Sql = Sql & [Ô] cam_foto=[ô][Ô] & Text1.Text & [Ô][ô][Ô]
Sql = Sql & [Ô] WHERE id= [Ô] & txtid.Text
conexao.Execute Sql

End Sub
MARCELOFAZAN 30/05/2010 19:17:35
#343270
esta quase resolvido do jeito facil claro

essa linha aqui

Picture1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô])

quando nao tem foto ela me erro File Not found e um Caminho da imagem em branco ainda nao gravada
dando o erro, por nao estar tratando se vazio

como posso verificar isso

preciso adequala ao mostra dados


Private Sub MostraDados(rs As ADODB.Recordset)

txtid.Text = rs([Ô]id[Ô])
txtnome.Text = [Ô][Ô] & rs([Ô]nome[Ô])
Txtdata.Text = [Ô][Ô] & rs([Ô]data[Ô])
TxtPagam.Text = [Ô][Ô] & rs([Ô]pagam[Ô])

Picture1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô]) Retorno Erro quando Nao tem Cod foto tal

End Sub
MARCELO.TREZE 30/05/2010 19:32:08
#343272 
Private Sub MostraDados(rs As ADODB.Recordset)
    
    txtid.Text = rs([Ô]id[Ô])
    txtnome.Text = [Ô][Ô] & rs([Ô]nome[Ô])
    Txtdata.Text = [Ô][Ô] & rs([Ô]data[Ô])
    TxtPagam.Text = [Ô][Ô] & rs([Ô]pagam[Ô])

If Dir(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô]) < > [Ô][Ô] Then
    Picture1.Picture = LoadPicture(App.Path & [Ô]\[Ô] & txtid.Text & [Ô].jpg[Ô]) 
Else
Msgbox [Ô]Arquivo não existe![Ô]
End If

End Sub
MARCELOFAZAN 30/05/2010 20:29:56
#343276
essa parte aqui .....

se entrar no getfile .... e eu cancelar

ele me retorna erro
como esvazio a imagem dos forms , mesmo eu removendo os caminhos elas tao intacta la no formulario como limpo ?


Private Sub CmdFoto_Click()
dlgImagem.Filter = [Ô]Imagem (*.jpg)| *.jpg[Ô]
dlgImagem.ShowOpen
If dlgImagem.FileName <> [Ô][Ô] Then
StrImagem = dlgImagem.FileName
Set Picture1.Picture = LoadPicture(StrImagem)
End If

Text1.Text = StrImagem


Dim Sql As String
Dim rs As New ADODB.Recordset

Sql = [Ô]UPDATE buscar SET[Ô]
Sql = Sql & [Ô] cam_foto=[ô][Ô] & Text1.Text & [Ô][ô][Ô]
Sql = Sql & [Ô] WHERE id= [Ô] & txtid.Text
operacao = [Ô][Ô]
conexao.Execute Sql
End If

End Sub

Obrigado as ajudas
MARCELO.TREZE 30/05/2010 20:33:57
#343277
coloca no inico do código On Error Resume Next

ex:

Private Sub CmdFoto_Click()

On Error Resume Next

dlgImagem.Filter = [Ô]Imagem (*.jpg)| *.jpg[Ô]
....
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar