COMO INSERIR IMAGEM NO SQL SERVER ?

CLINS 10/03/2005 10:42:32
#72105
Gostaria de saber como faço para inserir uma imagem num campo de uma tabela do SQL Server.
CLINS 12/03/2005 22:10:51
#72675
Como ninguém me ajudou corri atrás e consegui...
Veja aqui como encontrei a solução !

Em referências adicione :

Microsoft ActiveX Data Object 2.x Library


Declare as variáveis : 

Dim cn As New Connection
Dim rs As New Recordset
Dim mstream As New Stream


Insira 2 botões e 1 Commom Dialog Control no Form :

Private Sub Command1_Click()
'Esta rotina insere a imagem no SQL-Server
cd1.ShowOpen

If cd1.FileName <> "" Then

    'Abre a conexão
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SADE;Data Source=P3-500"

    'Abre a tabela Bitmap que contém o campo "imagem" do tipo image...
    rs.Open "Select * from bitmap", cn, adOpenKeyset, adLockOptimistic
    
    'configura a abre o objeto Stream...
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile cd1.FileName
    
    'Adiciona a imagem...
    rs.AddNew
    rs.Fields("imagem").Value = mstream.Read
    rs.Update

    'Fecha os objetos...
    mstream.Close
    rs.Close
    cn.Close
End If


If Err.Number = 0 Then
    MsgBox "OK"
End If
End Sub

Private Sub Command2_Click()

    'Esta rotina "Lê" a imagem do SQL-Server    
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SADE;Data Source=P3-500"
        
    rs.Open "Select * from bitmap", cn, adOpenKeyset, adLockOptimistic
    rs.MoveLast


    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Write rs.Fields("imagem").Value
    mstream.SaveToFile App.Path & "    emp.bmp", adSaveCreateOverWrite
    mstream.Close
    
    rs.Close
    cn.Close

    
    Picture1.Picture = LoadPicture(App.Path & "    emp.bmp")
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar