Como Salvar foto no formulario

[newadd 0]

vb6.0 de cadastro de membros todas as informações estão vinculadas ao access eu gostaria de inserir foto para cada pessoa cadastrada tipo assim conforme eu for passando para o proximo registro consequentemente ir alternando as fotos.

hj eu uso esta rotina:

Private Sub txtcodigo_change()

Call invisible

 

If Txtcodigo.text = "1" Then

Img1.Visible = True

ElseIf Txtcodigo.text = "2" Then

Img2.Visible = True

ElseIf Txtcodigo.text = "4" Then

Img4.Visible = True

ElseIf Txtcodigo.text = "5" Then

Img5.Visible = True

ElseIf Txtcodigo.text = "6" Then

Img6.Visible = True

ElseIf Txtcodigo.text = "7" Then

Img7.Visible = True

End If

End Sub

 

mais gostaria de buscar a foto no computador e inserir no formulario e salvar a imagem

[tcn 1]

Bom Dia Amigo

 

 

Você grava a foto no banco também ou não? Se for somente Foto segue um código que te ajudará

Sub LeituraFoto(cpf As String)
Dim objPic As Picture
Dim OraSession As OraSession 'seta o objeto de conexão
Dim OraDatabase As OraDatabase 'Conecta no esquema desejado
Dim OraDynaset As OraDynaset 'executa a query
Dim PartImage As OraBlob 'recebe o campo blob
Dim PartImageBio As OraBlob 'recebe o campo blob
Dim chunksize As Long
Dim AmountRead As Long
Dim buffer As Variant
Dim buf() As Byte
Dim Fnum As String

'On Error GoTo erro
'conecta na base e resgata a foto do campo blob e armazena na Variável PartImage
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("BANCO DE DADOS", "USUARIO/SENHA", 0&)
Set OraDynaset = OraDatabase.CreateDynaset("select AQUI   = '" & Replace(Replace(Trim(cpf), ".", ""), "-", "") & "' ", 0&)
Set PartImage = OraDynaset.Fields("TABELA").Value


'Se não existir foto
If PartImage.IsNull Then
statusFoto = False
Else
   statusFoto = True
   frmCadastraFotoBiometria.Image1.Visible = True

   PartImage.Offset = 1
   PartImage.PollingAmount = PartImage.Size
   chunksize = 500

   Fnum = FreeFile
   Open "C:\dig\AAA.###" For Binary As #Fnum

   AmountRead = PartImage.Read(buffer, chunksize)
   buf = "" & buffer

   Put #Fnum, , buf
   While PartImage.status = ORALOB_NEED_DATA
       AmountRead = PartImage.Read(buffer, chunksize)
       buf = buffer
       Put #Fnum, , buf
   Wend
   Close Fnum
   Set objPic = LoadPicture("c:\dig\AAA.###")
       frmCadastraFotoBiometria.Image1 = objPic


   Exit Sub
End If
erro:
If Err.Number <> 0 Then
  MsgBox (Err.Description)
  Err.Clear
  Exit Sub
End If

End Sub

 

 

caso contrario tira select usa parte do Open