VBScript : Convert Image to Blob

Ce second script permet d’extraire une image d’une colonne de type Blob vers un fichier
 
Valeurs utilisées dans l’exemple ci dessous
Base de donnees : DATABASE
Table : table
Attribut utilise pour la recherche : AttributeName
Valeur recherchee pour cet attribut : NomRechercher
Attribut contenant le bolb : AttributeImage
Fichier source pour l’image : c:\test\image.gif
 
 
 
 
Option Explicit
‘*****  Décalarion des Constantes  ******
Const ADTYPETEXT = 2
Const ADTYPEBINARY = 1
 
‘*****  Décalarion des variables  ******
Dim oCn
Dim oRs
Dim oSt
 
‘*****  Main       ******
‘ Connexion à SQL Server.
Set oCn = WScript.CreateObject("ADODB.Connection")
oCn.ConnectionString = "Provider=SQLOLEDB; Data Source=(local); Integrated Security=SSPI; Initial Catalog=DATABASE"
oCn.Open
‘Ouverture d’un recordset contenant la ligne à mettre à jour
Set oRs = WScript.CreateObject("ADODB.recordset")
oRs.Open "select AttributeImage from table where AttributeName=’NomRechercher’", oCn
 
‘Création d’une instance d’objet stream de type binaire
Set oSt = WScript.CreateObject("ADODB.stream")
oSt.Type = ADTYPEBINARY
oSt.Open
‘Sauvegarde du contenu dans le c=fichier spécifié
oSt.Write Ors.fields("AttributeImage ").Value
oSt.SaveToFile("c:\test\image.gif")
oSt.close
 
‘Fermeture des connexions et libération des ressources
oRs.Close
oCn.Close
Set oRs = Nothing
Set oSt = Nothing
Set oCn = Nothing
Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :