inserer une image dans sqlserver

Version imprimable

03/04/2012, 11h46
Invité

inserer une image dans sqlserver

bonjour j'ai une base de donnée sqlserver avec un champ image, je veux stocker une image dans ce champ est ce que quelqun peut m aider
merci
03/04/2012, 12h39
Sankasssss

Bonjour,

une petite recherche : [ame="http://www.google.com/search?sourceid=chrome&ie=UTF-8&q=image+sql+serveur#hl=fr&safe=off&sclient=psy-ab&q=image+sql+serveur+vb.net&oq=image+sql+serveur+vb.net&aq=f&aqi=q-w1&aql=&gs_l=serp.3..33i21.1916l4373l0l4480l7l7l0l0l0l0l342l1615l2-5j1l6l0.frgbld.&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&fp=cc21b463a2f94256&biw=1536&bih=1126"]image sql serveur - Google Search[/ame]

Nous donnes : Save And Retrieve Images With SQL Server

Merci de faire un minimum de recherche avant de poster...

bon je dois inserer dans la base de données des informations sur une entreprise tous se passe bien sauf pour le logo que je veux l inserer dans un champ image ,
le code pour le bouton parcourir est

Code:

1
2
3
4
5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox2.Text = OpenFileDialog1.FileName
        PictureBox1.Image = Drawing.Image.FromFile(OpenFileDialog1.FileName)
    End Sub

et pour le code d'insertion dans la base de données

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
  DataRow = DataSet.Tables("dbo.entreprise").NewRow()
            DataRow("nomEntreprise") = Me.TextBox1.Text
            DataRow("logo") =
            DataRow("capital") = Me.TextBox3.Text
            DataRow("numRC") = Me.TextBox4.Text
            DataRow("adresse") = Me.TextBox5.Text
            DataRow("email") = Me.TextBox6.Text
            DataRow("siteWeb") = Me.TextBox7.Text
            DataRow("raisonSociale") = Me.TextBox8.Text
 
            DataSet.Tables("dbo.entreprise").Rows.Add(DataRow)
            cmd = New SqlCommand(strSql, connexion)
            cmdBuilder = New SqlCommandBuilder(adapter)
            adapter.SelectCommand = cmd
            'Mise à jour
            Try
                adapter.Update(DataSet, "dbo.entreprise")
                MsgBox("L'entreprise a était bien ajoutée")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                TextBox7.Text = ""
                TextBox8.Text = ""
            Catch ex As Exception
                MsgBox("entreprise existe déja")
                TextBox1.Text = ""
            End Try
            'On vide le DataSet et on le 'recharge' de nouveau.
            DataSet.Clear()
            adapter.Fill(DataSet, "dbo.entreprise")
            DataTable2 = DataSet.Tables("dbo.entreprise")
        End If

est ce que quelqun peut me dire que dois je faire pour que la picture box soit inseré dans la base et merci

04/04/2012, 18h34
Sankasssss

Simplement suivre les instructions données sur le site en lien : Save And Retrieve Images With SQL Server
=> Convertir l'image en tableau de Byte.
04/04/2012, 22h03
StringBuilder

Citation:

Envoyé par Sankasssss

Bonjour,

une petite recherche : image sql serveur - Google Search

Nous donnes : Save And Retrieve Images With SQL Server

Merci de faire un minimum de recherche avant de poster...

Avec SQL Server 2008, ça a complètement changé.

On ne doit plus utiliser le type IMAGE, mais le type VARBINARY(MAX).
Aussi, on utilise un champ "FILESTREAM".

http://mikedavem.developpez.com/tuto...l-server-2008/

Citation:

Envoyé par Sankasssss

Simplement suivre les instructions données sur le site en lien : Save And Retrieve Images With SQL Server
=> Convertir l'image en tableau de Byte.

Non, il ne faut plus faire comme ça !
04/04/2012, 22h18
Sankasssss

Citation:

Envoyé par StringBuilder

Non, il ne faut plus faire comme ça !

Je pense que l'on avait compris avec le premier message :mouarf:

En même temps, il n'est marqué nul part dans son message que c'est un sql server 2008, le seul que nous avons dans mon entreprise est encore un 2003 car nous tournons principalement sur DB2 ;)

voila un exemple qui peut t'aider.

Code:

1
2
3
4
5
6
7
 Dim oDataRow As DataRow
                Dim byteArray As Byte () = {&H0, &H0}
 
                oDataRow = oDataSet.Tables("Categories").NewRow()
                oDataRow("CategoryName") = "Wine"
                oDataRow("Description") = "French Wine"
                oDataRow("Picture") = byteArray

j'espère que sa marche avec toi ;)