VB6

[Alberto09]

Boa noite a todos!!!

Alguém pode me explicar como é possível fazer com que o caminho de um arquivo seja indicado num campo do access. Estou criando uma tela de cadastro em vb6 e estou tentando fazer com que junto com o registro apareça a foto da pessoa. Estou usando um picture box. Eu sei que o comando para abrir é :

Picture1.Picture=LoadPicture(caminho do arquivo).

Como fazer com que este caminho seja direcionado para um campo de uma tabela do access?

Sei que isso é fácil para muita gente; estou estudando vb há mais ou menos 1 semana. Por favor me ajudem!!!

Obrigado

Alberto

[Gustavo Luiz G. Ferreira]

mas você quer gravar uma figura no acess, é isso?

ou quer apenas armazenar o endereço no qual está armazenado a figura?

[Alberto09]

Quero apenas armazenar o endereço de cada figura.

[Gustavo Luiz G. Ferreira]

você já tem o banco criado?

se não tiver, crie uma tabela simples com o campo path.

no vb:

Artigo postado por Ro_drigoSG em 17/12/2004

Link: http://www.vbmania.com.br/vbmdetail.php?varID=2089

Procurando no Banco de Dados (Find - FindFirst - FindNext) - DAO & ADO

(DAO)

No DAO, exite o comando FindFirst que faz a procura a partir do início da tabela, achando a primeira ocorrencia daquilo a que está sendo procurado.

'Abre o Recordset e então:

Dim sArg as String

sArg = InputBox ("Por favor, digite o Nome do " &_

                "Cliente:", "Localizar Nome")

'P/ procurar EXATAMENTE o que foi digitado:

RS.FindFirst "NomeCliente = '" & sArg & "'"

'P/ procurar algum nome que COMECE com o que

'foi digitado:

RS.FindFirst "NomeCliente like '" & sArg & "*'"

'P/ procurar algum nome que TERMINE com o que

'foi digitado:

RS.FindFirst "NomeCliente like '*" & sArg & "'"

'P/ procurar algum nome que tenha o que foi

'digitado em qualquer parte (inicio/meio/fim):

RS.FindFirst "NomeCliente like '*" & sArg & "*'"

If RS.NoMatch then

  'Nenhum registro foi encontrado.

Else

  'Foi encontrado um registro.

Endif

Bom, se algum registro tiver sido encontrado, você poderá pesquisar a próxima ocorrencia (próximo registro que contenha aquele valor procurado no campo que se está sendo feita a pesquisa), usando o comando FindNext:

RS.FindNext "NomeCliente = '" & sArg & "'"

'Ou:

RS.FindNext "NomeCliente like '" & sArg & "*'"

'Ou:

RS.FindNext "NomeCliente like '*" & sArg & "'"

'Ou:

RS.FindNext "NomeCliente like '*" & sArg & "*'"

If RS.NoMatch then

  'Nenhum registro foi encontrado.

Else

  'Foi encontrado um registro.

Endif

Bem, a única coisa que você precisa saber para usar os comandos FindFirst, FindLast, FindNext e FindPrevious, é que o FindFirst faz a procura SEMPRE a partir do início da tabela, que o FindLast faz a procura SEMPRE a partir do fim da tabela e os outros dois (FindNext e FindPrevious) fazem a procura SEMPRE a partir do ponto da tabela em que estão.

espero ter ajudado

[Alberto09]

Cara, esse tópico que você me mandou vai servir para outra parte do meu projeto, vai servir para conferir a senha do pessoal.

O que eu estava procurando eu consegui com a ajuda do meu ex-chefe. O procedimento para abrir fotos com o caminho indicado pelo access é o seguinte:

Considerando que o caminho do arquivo já está gravado na tabela, digita-se

Picture1.Picture=LoadPicture(data1.Recordset(posição do campo na tabela)).

valeu!