Bonjour
J'ai créé une procédure stockée, avec 3 paramètres, @nomfichier char(255),
@DateFichier DateTime et @img image. Dans mon programme, j'ai les objets
parameter adéquat
voici mon code :
rsInsert.Parameters("@Fichier").Value =
xFile(xCpt).FullName.Substring(xFile(xCpt).FullName.LastIndexOf("\") + 1)
rsInsert.Parameters("@DateFichier").Value =
xFile(xCpt).CreationTime
Dim xStream As FileStream = xFile(xCpt).OpenRead
Dim xImg As Image = Image.FromStream(xStream)
Dim mStream As New MemoryStream
xImg.Save(mStream, System.Drawing.Imaging.ImageFormat.Jpeg)
rsInsert.Parameters("@Img").Value = mStream.ToArray
OpenDb()
rsInsert.ExecuteNonQuery()
xStream.Close()
mStream.Close()
xImg = Nothing
mStream = Nothing
xStream = Nothing
Cela ne décleche pas d'erreur, mais l'image que j'ai dans la base de donnée,
lorsque je la charge, est vide. quelqu'un pourrait me dire ce qui se passe?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Roadwolf
Laissez tomber, cela fonctionne très bien, c'est juste ma requête de sélection qui ne prenait pas la date comme il faut... La clé de ma table étant DateFichier + NomFichier... :-)
"Roadwolf" a écrit :
Bonjour J'ai créé une procédure stockée, avec 3 paramètres, @nomfichier char(255), @DateFichier DateTime et @img image. Dans mon programme, j'ai les objets parameter adéquat voici mon code : rsInsert.Parameters("@Fichier").Value = xFile(xCpt).FullName.Substring(xFile(xCpt).FullName.LastIndexOf("") + 1) rsInsert.Parameters("@DateFichier").Value = xFile(xCpt).CreationTime Dim xStream As FileStream = xFile(xCpt).OpenRead Dim xImg As Image = Image.FromStream(xStream) Dim mStream As New MemoryStream xImg.Save(mStream, System.Drawing.Imaging.ImageFormat.Jpeg) rsInsert.Parameters("@Img").Value = mStream.ToArray OpenDb() rsInsert.ExecuteNonQuery() xStream.Close() mStream.Close() xImg = Nothing mStream = Nothing xStream = Nothing Cela ne décleche pas d'erreur, mais l'image que j'ai dans la base de donnée, lorsque je la charge, est vide. quelqu'un pourrait me dire ce qui se passe?
Laissez tomber, cela fonctionne très bien, c'est juste ma requête de
sélection qui ne prenait pas la date comme il faut... La clé de ma table
étant DateFichier + NomFichier... :-)
"Roadwolf" a écrit :
Bonjour
J'ai créé une procédure stockée, avec 3 paramètres, @nomfichier char(255),
@DateFichier DateTime et @img image. Dans mon programme, j'ai les objets
parameter adéquat
voici mon code :
rsInsert.Parameters("@Fichier").Value =
xFile(xCpt).FullName.Substring(xFile(xCpt).FullName.LastIndexOf("") + 1)
rsInsert.Parameters("@DateFichier").Value =
xFile(xCpt).CreationTime
Dim xStream As FileStream = xFile(xCpt).OpenRead
Dim xImg As Image = Image.FromStream(xStream)
Dim mStream As New MemoryStream
xImg.Save(mStream, System.Drawing.Imaging.ImageFormat.Jpeg)
rsInsert.Parameters("@Img").Value = mStream.ToArray
OpenDb()
rsInsert.ExecuteNonQuery()
xStream.Close()
mStream.Close()
xImg = Nothing
mStream = Nothing
xStream = Nothing
Cela ne décleche pas d'erreur, mais l'image que j'ai dans la base de donnée,
lorsque je la charge, est vide. quelqu'un pourrait me dire ce qui se passe?
Laissez tomber, cela fonctionne très bien, c'est juste ma requête de sélection qui ne prenait pas la date comme il faut... La clé de ma table étant DateFichier + NomFichier... :-)
"Roadwolf" a écrit :
Bonjour J'ai créé une procédure stockée, avec 3 paramètres, @nomfichier char(255), @DateFichier DateTime et @img image. Dans mon programme, j'ai les objets parameter adéquat voici mon code : rsInsert.Parameters("@Fichier").Value = xFile(xCpt).FullName.Substring(xFile(xCpt).FullName.LastIndexOf("") + 1) rsInsert.Parameters("@DateFichier").Value = xFile(xCpt).CreationTime Dim xStream As FileStream = xFile(xCpt).OpenRead Dim xImg As Image = Image.FromStream(xStream) Dim mStream As New MemoryStream xImg.Save(mStream, System.Drawing.Imaging.ImageFormat.Jpeg) rsInsert.Parameters("@Img").Value = mStream.ToArray OpenDb() rsInsert.ExecuteNonQuery() xStream.Close() mStream.Close() xImg = Nothing mStream = Nothing xStream = Nothing Cela ne décleche pas d'erreur, mais l'image que j'ai dans la base de donnée, lorsque je la charge, est vide. quelqu'un pourrait me dire ce qui se passe?
