o CA com ADO tem muitas limitações, pelo que vi nos exemplos do Peter, as fotos do NorthWind são tranquilamentes recuperadas com ODBC mas não com ADO.

E eu hoje uso em meus CAs ADO, porque em alguns casos eu aproveito o Objecto conecction, command e pego alguas outras informações no banco.


Mas ainda estou reconsiderando isto.




>Valeu Peter.
>
>Funciou perfeitamente também.
>
>Respondi vc por e-mail.
>
>Abraços,
>
>Paulo
>
>>PCC,
>>
>>veja mensagem enviada ao seu e-mail com 2 exemplos de imagens p/ VFP 9.0 e VFP 8.0
>>usando CA e DSN (são só exemplos)
>>
>>[ ],s
>>Peter
>>
>>>Peter,
>>>
>>>Não consegui reproduzir o sucesso do teu codigo aqui com o meu VFP 9 beta. Mas vou verificar pois acho que estou errando em algo.
>>>
>>>Mas o Breno me deu um luz, ja que tenho que aplicar isto no VFP 8, e o objeto Image, não tem a propriedade

PictureVal

.
>>>
>>>Se vc tiver condições, tente retornar as fotos da tabela Employee, do banco NorthWind.
>>>
>>>Abraços
>>>
>>>Paulo
>>>
>>>
>>>>Estive brincando com campos Blob no SQL Server para fins de teste, pois este tipo de campo no SQL Server armazenam o codigo binario das imagens.
>>>>Usei como teste o Database Pubs e a tabela Pubs_info que tem um campo que contem o logotipo da empresa.
>>>>Aqui tudo funciona perfeitamente.
>>>>
>>>>Usei um CA p/ os testes:
>>>>segue dados basicos do CA p/ fazer funcionar:
>>>>

>>>>CursorSchema = PR_INFO M, PUB_ID C(4), LOGO W   && W = Campo tipo Blob no VFP 9.0
>>>>MapBinary = .T.                                 && Somente p/ campo tipo Blob e VFP 9.0
>>>>

>>>>Codigo do evento Init:
>>>>

>>>>local llReturn
>>>>do case
>>>>	case not pemstatus(This, '__VFPSetup', 5)
>>>>		This.AddProperty('__VFPSetup', 0)
>>>>	case This.__VFPSetup = 2
>>>>		This.__VFPSetup = 0
>>>>		return
>>>>endcase
>>>>llReturn = dodefault()
>>>>*** Select connection code: DO NOT REMOVE
>>>>
>>>>set multilocks on
>>>>***<DataSource>
>>>>This.DataSource = sqlstringconnect([dsn=Pubs;uid=xxx;pwd=xxx;trusted_connection=no;])
>>>>***</DataSource>
>>>>*** End of Select connection code: DO NOT REMOVE
>>>>
>>>>***<SelectCmd>
>>>>text to This.SelectCmd noshow
>>>>select * from pub_info
>>>>endtext
>>>>***</SelectCmd>
>>>>if This.__VFPSetup = 1
>>>>	This.__VFPSetup = 2
>>>>endif
>>>>return llReturn
>>>>

>>>>
>>>>Metodo AutoOpen do CA:
>>>>

>>>>if not pemstatus(This, '__VFPSetup', 5)
>>>>	This.AddProperty('__VFPSetup', 1)
>>>>	This.Init()
>>>>endif
>>>>

>>>>
>>>>No form inseri um objeto tipo Image e o seguinte código no Activate p/ exibir a imagem:
>>>>

>>>>SELECT("caPubs_info")          && Seleciona o CA
>>>>LOCAL x
>>>>x = caPubs_info.LOGO
>>>>THISFORM.Image1.PictureVal = x
>>>>THISFORM.REFRESH
>>>>

>>>>
>>>>Acho que isto te da o caminho das pedras p/ exibir uma imagem armazenada em um campo do SQL Server no VFP.
>>>>(Foi um simples teste p/ ver se funciona e como funciona)
>>>>
>>>>[ ],s
>>>>Peter
>>>>
>>>>>Estou tentando recuperar campos Image do SQL Server.
>>>>>
>>>>>Estou fazendo testes com a base de dados do NothWind, Tabela Employeess, campo Photo.
>>>>>
>>>>>Alguem poderia me dar uma ajuda nisto ?