VBScript : Convert Blob to Image

Ce premier script permet d’insérer une image dans une colonne de type Blob dans une base de donnees SQL Server
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
Const ADOPENKEYSET = 1
Const ADLOCKOPTIMISTIC = 3
 
‘*****  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, ADOPENKEYSET, ADLOCKOPTIMISTIC
 
‘Lecture du fichier binaire
Set oSt = WScript.CreateObject("ADODB.stream")
oSt.Type = ADTYPEBINARY
oSt.Open
oSt.LoadFromFile("c:\test\image.gif")
‘Mise à jour du champ.
oRs.Fields("AttributeImage").Value = oSt.Read
oRs.Update
‘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 :