Comment enregistrer une image dans une base de données avec MS Visual Basic 6

Créer un objet de flux de mémoire et l'affecter à l'image. Le flux de mémoire lit les données binaires de l'image et le stocke en mémoire. Ces données binaire est ensuite transféré à un tableau binaire. Le code suivant crée le flux de la mémoire et enregistre l'image:

Ms Dim comme nouvelle MemoryStream ()
theImage.Save (ms), theImage.RawFormat

"l'image" est l'ID de l'image située sur votre formulaire Visual Basic. Cet élément d'image pointe vers un emplacement d'une image sur le disque dur.

Créez la connexion de base de données et la requête SQL qui insère l'image dans la base de données. La connexion que vous créez dépend du serveur que vous utilisez. Le code suivant établit la connexion et crée le "insérer" requête:

Conn Dim en tant que nouveau SqlConnection (de string_connection)
Requête Dim As String = "insérer dans Picture_Table (photo) valeurs (Picture)"
Commande Dim As New SqlCommand (requête, conn)

Mettre en place le paramètre d'image pour la commande de requête. Le code suivant définit un paramètre pour le code SQL et attache l'image:

Dim byteArray () As Byte = ms.GetBuffer ()
command.Parameters.Add (New SqlParameter ("Picture", SqlDbType.Image)). Value = byteArray

Exécutez la requête et enregistrer l'image sur la base de données. Tous les paramètres sont mis en place, mais l'image est toujours pas enregistrés dans la base de données. Le code ci-dessous ouvre la connexion de base de données, exécute le code SQL et enregistre l'image à la table de base de données:

conn.Open ()
command.ExecuteNonQuery ()
conn.Close ()