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") 
%>