Bicicchi
|
SOROCABA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/02/2006 10:17 hs
Olá Pessoal, coloquei um Image no meu programa para incluir a foto do cliente. Até localizar e incluir a foto no Image eu já consegui, agora preciso salvar no Bando de Dados. Gostaria de saber quais os comandos para salvar a imagem que está nesse Image e depois qual o comando parab exibir a mesma no Image. Para salvar eu tentei Rs.fields(46) = imgFoto ===> mas deu erro Para Exibir eu tentei imgFoto = Rs.fields(46) ===> mas não testei ainda Se alguem puder me ajudar eu agradeço e muito.... Obrigado desde já Sergio..... |
|
|
|
|
|
|
|
Postada em 13/02/2006 11:09 hs
Nao... A ADO tem um Objetos chamado Stream, q vc vai precisar usar pra fazer isso... Olha o Codigo para salvar: myStream.Type = adTypeBinary
myStream.Open
myStream.LoadFromFile "c:\Meus Documentos\Imagem.jpg" rs.Edit rs.Fields(1).Value = myStream.Read rs.Update e para Ler do banco, vc vai precisar gravar em um arquivo no disco e depois usar o Loadpicture para carregar no Image... assim: myStream.Type = adTypeBinary
myStream.Open
myStream.Write rs.Fields(1).Value
myStream.SaveToFile "c:\Temp\imagem.jpg", adSaveCreateOverWrite
imgFoto.Picture = LoadPicture("c:\Temp\imagem.jpg")
Acho q isso resolve pra Vc... Flw! t+
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Bicicchi
|
SOROCABA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/02/2006 11:18 hs
Olá Elieser... Desculpe a minah ignorância, mas como adiciono esse mystream no meu programa ??? Eu conecto o BD assim : Set Cn1 = New adodb.Connection
Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Controle.mdb;Jet " & "OLEDB:Database Password=123456;"
Set Rs1 = New adodb.Recordset
Rs1.CursorType = adOpenKeyset
Rs1.LockType = adLockOptimistic
Rs1.ActiveConnection = Cn1
Rs1.Source = "Select * from Internet2 Order by ID"
Rs1.Open
E dai onde eu acho esse tal de stream ??? Obrigado... |
|
|
|
|
|
Postada em 13/02/2006 11:50 hs
Dim myStream As ADODB.Stream Set myStream = New ADODB.Stream ... ai vem o meu codigo ...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/02/2006 14:30 hs
Olha, não aconselho colocar figuras diretamente no BD, o melhor mesmo é gravar apenas o caminho para a figura, e usar o comando LoadPicture quando necessário. |
|
|
|
|
|
Postada em 13/02/2006 14:40 hs
Concordo com o Kerplunk...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
