Peter,


Onde consigo o tal DMO ?


>PCC,
>Eu uso uma conexão ODBC como vc já sabe, e é somente uma conexão p/ cada estação com o servidor (podem ser mais se eu assim desejar).
>
>A conexão me permite usar o CA, mas eu uso a mesma conexão usando SPT para executar Stored Procedures no SQL Server no caso en que não desejo obter um retorno via CA.
>(Eu defini que usaria CA p/ obtenção e manipulação de dados nos meus sistemas, e as demais formas como um meio de "controlar/gerenciar" o SQL Server, tudo conforme permissões para cada usuário)
>
>Eu tambem uso a mesma conexão ODBC p/ passar comandos ao SQL Server usando comandos DMO via VFP.
>Com isto em casos onde o cliente usa o MSDE, eu posso Fazer backup no SQL Server via VFP entre outras coisas. O DMO permite que se controle de forma programatica o SLQ Server fazendo tudo que se faz com o Enterprise Manager.
>
>Gostaria de saber que tipos de informações vc deseja obter do SQL Server usando o Objeto Connection quando usa ADO.
>
>[ ],s
>Peter
>
>
>>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 ?