ADO.NET & SQL SERVER mode déconnecté

je ne savais pas que mes questions n'ont meme une reponse.

tu px ajouté une picture box ds votre form é modifier le type du champ ds la base de donné en varchar puis copier le dossier des image ds le bin de lapplication
cela peut aider a avoir ce ke tu vx je pense !

Grand merci

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

pour l'affichage dans datgridview c'est normal

dg.datasource=ds.table("NomTable")

Merci pour ta réponse mais moi j'arrive à connecter la base de données j'ai un problème de conversion d'image lors de l'affichage en datagridview mais quand meme un grand merci

Bonjour,

vous pouviez nous montrez votre code ?

Oui bien sûr mais vous savez ça fait plus que 2 mois que je n'ai pas jeté un coup d'oeil sur cette application. en bref mon problème que c'est au niveau des bouttons de navigations je n'arrive pas à afficher l'image stoquée dans la base de données et lorsque j'ajoute par exemple une personne avec son image je n'arrive pas à stoquer son image dans la base de données.bon voilà le code je me suis inspirée d'un cours.
Au nivea du load(j'arrive à etablir la connexion)

dbpf = DbProviderFactories.GetFactory("System.Data.SqlClient")
        ocon = dbpf.CreateConnection
        ocon.ConnectionString = "Server=ELBAHI-ED56503A\SQLEXPRESS;database=personnes;integrated security=true"
        oda = dbpf.CreateDataAdapter
        oda.SelectCommand = ocon.CreateCommand
        oda.SelectCommand.CommandText = "select * from pers"
        ods = New DataSet
        oda.Fill(ods, "pers")

Private Sub enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enregistrer.Click

If n = 1 Then
'Cas d'ajout
            Dim dlg As OpenFileDialog = New OpenFileDialog()
            dlg.Filter = "All Pictures|*.bmp;*.gif;*.jpg|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
            Dim dr As DataRow = ods.Tables("pers").NewRow
            dr("id") = TxtID.Text
            dr("nom") = TxtNom.Text
            dr("prénom") = TxtPrenom.Text
            TxtdateNaissance.Text = DateTimePicker1.Text
            dr("dateNaissance") = TxtdateNaissance.Text

            'If (dlg.ShowDialog = DialogResult.OK) Then

'    PictureBox1.Image = New Bitmap(dlg.FileName)
            '    Dim name As String = dlg.FileName.Substring(dlg.FileName.LastIndexOf("\") + 1, dlg.FileName.Length - dlg.FileName.LastIndexOf("\") - 1)
            'End If

            'Dim mstr As MemoryStream = New MemoryStream
            'PictureBox1.Image.Save(mstr, PictureBox1.Image.RawFormat)
            'Dim arrImage() As Byte = mstr.GetBuffer()
            'dim cmd as string = "insert into pers (PictureName, Picture) values (@PName, @Pic)";

'dr("picture") = PictureBox1
            ods.Tables("pers").Rows.Add(dr)
            'ods.AcceptChanges()
            nbrLignes = ods.Tables("pers").Rows.Count
            MsgBox("Lenombre des lignes après l'ajout : " & nbrLignes)
            MsgBox("L'ajout est effectué !!")
        ElseIf n = 2 Then
            Dim r = MessageBox.Show("êtes vous sûr de vouloir supprimer cette personne??", "Confirmation suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            If r = vbYes Then
                ods.Tables("pers").Rows(i).Delete()
                MsgBox("Suppression effectué")
            Else
                MsgBox("Suppression annulée")
            End If
        ElseIf n = 3 Then
            Dim rep = MessageBox.Show("êtes vous sûr de vouloir modifier cette personne??", "Confirmation de modification", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If rep = vbYes Then
                ods.Tables("pers").Rows(i)(0) = TxtID.Text
                ods.Tables("pers").Rows(i)(1) = TxtNom.Text()
                ods.Tables("pers").Rows(i)(2) = TxtPrenom.Text
                ods.Tables("pers").Rows(i)(3) = TxtdateNaissance.Text

            Else
                MsgBox("Modification annulée")

            End If
            Dim cas As String = ods.Tables("pers").Rows(i).RowState.ToString
            MsgBox(cas)
        End If
    End Sub

Maintenant j'espère que j'ai bien expliqué la situation donc oubliez mon code car je suis sûr qu'il ne marche pas vous pourriez me donnez un code tout à fait différent qui correspond le cas dont je t'ai expliqué merci d'avance. j'ai copié ton code pour l'essayer plus tard merciiiiiiiiiiiiiiiiiiiiiiiiiiii

bonjour,

pour la chaine de .connection je vous conseiller de voire ici https://www.connectionstrings.com/sql-server-2005/

et pour l'ajout de l'image de la BD je crois il y a un error

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

et concernant le déplacement entrent les enregistrements moi aussi j'ai le même problème Oo

Vraiment merci infiniment meme si que je n'ai pas compris quelques methodes mais je vais les chercher merci

de rien ^_^

pourquoi remplir une base de données avec des images qui chargera notre base et augmentera le temps de réponse.
je vous propose une solution :
1- Copié l'image dans un disque dur
2- Ajouter dans la table image un champs liens qui sera le lien de l'image

et dans un picturbox vous charger juste l'adresse de l'image à la place de faire une conversion d'image