Ajouter une image depuis Vb net à sql server 2008

trext Messages postés 11 Date d'inscription mardi 10 mars 2009 Statut Membre Dernière intervention 16 mars 2010 - 22 févr. 2010 à 18:46
oussamaf Messages postés 1 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 21 mai 2010 - 21 mai 2010 à 01:45
Salut,

J'aimerais ajouter une image depuis le vb.net vers la base de données sql server 08. Mais il me manque le code à ajouter dans vb

merci d'avance

1 réponse

oussamaf Messages postés 1 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 21 mai 2010
21 mai 2010 à 01:45
bonjour,

voici le code pour stocker une image dans une base de donne

mais il faut le champs de table soit Image


Dim con As New SqlConnection("Initial catalog=tp;data source=localhost;Integrated security=true")
Dim da As New SqlDataAdapter ("Select id,com,img From tbimage", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()

da.MissingSchemaAction = MissingSchemaAction.AddWithKey

Dim fs As New FileStream (txtimg.Text, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()
con.Open()
da.Fill(ds, "tbimage")
Dim myRow As DataRow
myRow = ds.Tables("tbimage").NewRow()

myRow("id") = txtid.Text
myRow("com") = txtcom.Text
myRow("img") = MyData
ds.Tables("tbimage").Rows.Add(myRow)
da.Update(ds, "tbimage")

fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing

con.Close()
con = Nothing
MsgBox("Image bine Enregester")

'--
End Sub
0