[Resolvido] Salvar Imagem no SQL SERVER com ASP

[gisele 0]

Oi Pessoal!

 

Estou desenvolvendo um projeto para uma empresa, e preciso integrar meu sistema com o banco deles. Lá eles registram a imagem no banco de dados.

 

Estou desenvolvendo um script para ler essa imagem no banco, mas precisava simular no meu ambiente primeiro.

 

Criei uma tabela com um campo image e estou tentando salvar a imagem nesse campo mas não estou conseguindo!

 

Alguém pode me ajudar?

 

Obrigada desde já!

 

Meu código:

 

<%
Option Explicit
%>
<!--#include file="ADOVBS.INC"-->
<!-- #include file="Conexao.asp" -->
<%

Dim ObjStr
Dim ds_addr_imagem
Dim varBuffer
Dim Conn
Dim Comando

Set ObjStr = Server.CreateObject("ADODB.Stream")

ds_addr_imagem = Server.MapPath("imagem_exibicao.jpg")

ObjStr.Type = 1 'AdBinary – Binário

ObjStr.Open

ObjStr.LoadFromFile ds_addr_imagem

varBuffer = ObjStr.Read

objStr.Close
Set ObjStr = nothing

Set Conn = New Conexao
Set Comando = Server.CreateObject("ADODB.Command")

With Comando
	.ActiveConnection = Conn.Conectar
	.CommandText = "INSERT INTO FOTO (FOTO,TIPO) VALUES('"&varBuffer&"','1')"
	.CommandTimeout = 0
	.CommandType = adCmdText
	.Execute
End With

Set Conn = nothing
Set Comando = nothing

%>

[gisele 0]

Pessoal, vlw.. já consegui.. pra quem precisar segue abaixo o código:

 

<%

dim cn,img
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
cn.connectionstring = "Provider=SQLOLEDB.1;Password=senha;Persist Security Info=True;User ID=usuario;Initial Catalog=banco;Data Source=servidor"
cn.open

dim x
set x=createobject("adodb.stream")
x.type=1
x.open
x.loadfromfile(Server.MapPath("imagem_exibicao.jpg"))


rs.open "Select * from FOTO where 1=2",cn,3,2

rs.addnew
rs.fields("FOTO").AppendChunk(x.read)
rs.update
rs.close
set rs=nothing
set x=nothing
cn.close
set cn=nothing

%>

[gilbertojr 0]

Pessoal, vlw.. já consegui.. pra quem precisar segue abaixo o código:

 

<%

dim cn,img
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
cn.connectionstring = "Provider=SQLOLEDB.1;Password=senha;Persist Security Info=True;User ID=usuario;Initial Catalog=banco;Data Source=servidor"
cn.open

dim x
set x=createobject("adodb.stream")
x.type=1
x.open
x.loadfromfile(Server.MapPath("imagem_exibicao.jpg"))


rs.open "Select * from FOTO where 1=2",cn,3,2

rs.addnew
rs.fields("FOTO").AppendChunk(x.read)
rs.update
rs.close
set rs=nothing
set x=nothing
cn.close
set cn=nothing

%>

PUta que pariu,, salvou meu ano inteiro cara... estou correndo atrás disso faz tempo. Nossa que Deus ilumine seu caminho, meu caro...

[xanburzum 169]

Muito bem...