CADASTRO COM IMAGENS...

USUARIO.EXCLUIDOS 26/03/2005 05:16:51
#74975
galera eu to querendo faze um programa para catalogar meus cds com a imagem tb... como que eu poderia fazer esse cadastro com imagens?? faze com BD??

me dá uma idéia ae!
USUARIO.EXCLUIDOS 26/03/2005 08:28:57
#74977 Resposta escolhida
!Cara, o que posso lhe adiantar é que o ACCESS não é bom para armazenar imagens... se vc tentar fazer isso, vera que logo logo.. o mdb.. vai chegar a GBytes de Espaço!
O melhor a ser feito (o que todos fazemos) e criar um campo (text) para armazenar o nome e o caminho da imagemm....

Ex: "c:\images/0001.jpg"

E para carregar..

PictureBox1.Picture = LoadPicture(rst![endimag])

Entendeu.. assim. no mdb, vc armazena so o caminho... cria uma pasta dentro da aplicação para armazenar as imagens... e depois carrega elas só com o endereço...
Assim o mdb não vai ficar tão grande!!!
USUARIO.EXCLUIDOS 27/03/2005 01:41:01
#75141
só.. eu pensei nisto tb... mas e como eu faria para a manipulação dessas imagens?? tipo PRÓ“XIMA IMG.. IMG ANTERIOR ???
TIAGOBRAIT 27/03/2005 02:45:19
#75145
A cada MoveNext, você atualiza os dados, e junto com eles, a imagem...
USUARIO.EXCLUIDOS 27/03/2005 14:19:37
#75183
intaum... mas como vo atualiza a img????
USUARIO.EXCLUIDOS 28/03/2005 10:29:13
#75287
Por exemplo...
Tem uma tabela de Cadastro de clientes, chamada clientes...
Tem um campo chamado FOTO... com o ENDEREÇO das fotos... no diretório... c:\sisteminha\fotos\
os endereços são compostos pelo nome imagem + o codigo do cliente...
ex: imagem145.jpg (foto do cliente 145)
Para mudar as imagens.. veja.. usando PICTUREBOX...
Coloque dois botões... Um para avançar.. outro para Voltar...
no form load.. coloque a rotina para acessar o banco de dados...

"...."

set rst = conexao.open sql, cnn
rst.MoveFirst
strfigura = App.Path & "\Fotos\imagem" & rst![codigo]
Picture1.Picture = LoadPicture(strfigura)


Para avançar.. pro próximo registro e pra próxima foto...
botão avançar

rst.MoveNext
strfigura = App.Path & "\Fotos\imagem" & rst![codigo]
Picture1.Picture = LoadPicture(strfigura)

Para voltar
botão voltar

rst.MovePrevious
strfigura = App.Path & "\Fotos\imagem" & rst![codigo]
Picture1.Picture = LoadPicture(strfigura)

Entendeu.... vc pode adaptar do seu jeito.. é claro...
Até ++
Tópico encerrado , respostas não são mais permitidas
Voltar