Hello,
j'essaye d'enregister une image dans un champ image de ma table SQL server, suite a un code trouver sur ce site.
Je l'ai modifier pour l'adapter a mes besoins mais j'ai un message Type mismatch.
Apparement au niveau de ma requete SQL, lié avec le Stream.read qui fait planter le truc.
Pourriez-vous m'aider ?
Merci
Voici mon code :
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
Set rs = server.CreateObject("ADODB.Recordset")
SQL = "Select * From IntraPersonnel"
rs.open SQL, session("ConnectionString"), 1, 3
' On ouvre l'objet STREAM
Set Stream = server.CreateObject("ADODB.Stream")
'on définit le type de données à lire
Stream.Type = adTypeBinary
Stream.open
'on définit le fichier à uploader
Stream.loadFromFile("C:\Documents and Settings\GIL\My Documents\www\intranet\imgtest\login_01.gif")
' on crée un nouvel enregistrement dans la table
'rs.addnew
'Mon champ image recoit les données binaires
'rs.fields("photo_personnel") = Stream.read
SQLInsert = "insert into IntraPersonnel (id_personnel, nom_personnel, prenom_personnel, id_service, photo_personnel) values ('BLU', 'GIL', 'GIL', 'TRU', '" & Stream.read & "')"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open session("ConnectionString")
Set process = conn.Execute (SQLInsert)
' Mise à jour de la base de données
'rs.update
' Fermeture des objets
'rs.close
stream.close
Set rs = nothing
Set stream = nothing
SET process = nothing
'response.Redirect("vaschier.htm")
%>