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
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
A voir également:
- Ajouter une image depuis Vb net à sql server 2008
- .Net reflector - Conseils pratiques -C# / .NET
- Curseur sql server - Conseils pratiques -SQL
- Vectoriser une image photoshop ✓ - Forum Graphisme/design
- Inverser une image photoshop - Forum Graphisme/design
- If sql server ✓ - Forum SQL
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
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
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
