Bonjour,


je souhaite afficher un datagridview.

Ce datagridview devra afficher tous les enregistrements d'une table.

Ensuite il faudra que l'on puisse modifier, supprimer et créer des lignes.

Puis mettre à jour la table.


J'ai trouvé ce bout de code :
http://plasserre.developpez.com/v6-6.htm "Section B"


J'ai essayé de l'adapter à mon cas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
' Déclaration Objet 
        Dim ObjetConnection As OleDb.OleDbConnection
        ' Déclaration Objet Commande
        Dim ObjetCommand As OleDb.OleDbCommand
        ' Déclaration Objet DataAdapter
        Dim ObjetDataAdapter As OleDb.OleDbDataAdapter
        ' Déclaration Objet DataSet
        Dim ObjetDataSet As New DataSet
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As New DataTable
        'String contenant la 'Requête SQL'
        Dim strSql As String
        'Paramêtres de connexion à la DB
        Dim strConn As String
        ' Déclaration d'un  OleDbCommandBuilder
        Dim ObjetCB As OleDb.OleDbCommandBuilder
 
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=SQLOLEDB.1;" & "Data Source=MATTSRV\MATTSQL;Initial Catalog=TDB_INFORMATIQUE;  UserId=TDB_INFORMATIQUE;Password=password;"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM SAVE_TYPE_PERIPHERIQUE"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDb.OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ' --- Exécution de la procédure stockée
        Try
            ObjetConnection.Open()
            ' --- Cas d'erreur
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            ' --- Message d'erreur
            message_erreur_procedure()
            Exit Sub
        End Try
 
        'Instancier un objet Commande
        ObjetCommand = New OleDb.OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDb.OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDb.OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "TYPE_SAUVEGARDE")
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables("TYPE_SAUVEGARDE")
        'Mettre dans le DataGrid une table  DataTable
        DATA_SAVE.DataSource = ObjetDataTable

Mais j'ai un message d'erreur à l'ouverture de la connexion :



Est ce que quelqu'un peut m'aider?


Merci d'avance pour votre aide,

.Matt