IMAGEM NO SQL SERVER 2005 E VB6
Bom dia Pessoal, estou com um pequeno problema que não estou conseguindo resolver.
Estou tentando inserir uma imagem pelo vb6 em meu banco de dados SQL SERVER 2005 Express porém estou tendo algumas dificuldades pois está gerando um erro.
A função que eu tenho funciona perfeitamente no SQL SERVER 2000 porém no 2005 não.
Alguem tem alguma função que possa me ajudar?
A imagem de erro que aparece esta neste link aqui: http://www.visaoinf.com.br/erro.jpg
Estou tentando inserir uma imagem pelo vb6 em meu banco de dados SQL SERVER 2005 Express porém estou tendo algumas dificuldades pois está gerando um erro.
A função que eu tenho funciona perfeitamente no SQL SERVER 2000 porém no 2005 não.
Alguem tem alguma função que possa me ajudar?
A imagem de erro que aparece esta neste link aqui: http://www.visaoinf.com.br/erro.jpg
Poste a rotina no tópico.
Tecla como solicitado segue a rotina abaixo.
A imagem de erro que aparece esta neste link aqui: http://www.visaoinf.com.br/erro.jpg
Citação:
[ô]Aqui vou buscar o registro que deve conter a imagem
Set vlRegistro = New Recordset
vlConsulta = [Ô]SELECT Foto FROM IMAGENS_IMOVEIS WHERE Id_Imovel = [Ô] & vfItem & [Ô] AND Seq=[Ô] & vlSeq + 1
vlRegistro.Open vlConsulta, vgBancoImagem, adOpenDynamic, adLockOptimistic
[ô]Inicio da Inserção do Arquivo no Banco
Dim vlCaminho As String
Dim MSstream As ADODB.Stream
Dim vlBuffer
vlCaminho = [Ô]c:/fotovisao.jpg[Ô]
Set MSstream = New ADODB.Stream
MSstream.Type = adTypeBinary
MSstream.Open
MSstream.LoadFromFile vlCaminho
vlBuffer = MSstream.Read
vlRegistro.Update [Ô]Foto[Ô], vlBuffer
vlRegistro.Update [ô]Dou um update no registro armazenando a imagem
MSstream.Close
Refresh
[ô]Fim da Inserção do Arquivo
A imagem de erro que aparece esta neste link aqui: http://www.visaoinf.com.br/erro.jpg
Tópico encerrado , respostas não são mais permitidas