Discussion :

[GarsDuCalvados]

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

[ratsmok]

est ce que vous avez écrire sa imports system.data.oledb avant la class ou non

[GarsDuCalvados]

Bonjour,

Non je ne l'avais pas mais je viens de le mettre et ça ne change rien.



.Matt

[ratsmok]

la déclaration tu l'avais mis après la class o nn

[GarsDuCalvados]

J'ai mis le IMPORTS avant la déclaration de la CLASS


.Matt

[GarsDuCalvados]

Bon ben je m'y suis pris autrement mais ça ne me permet de faire la MAJ automatique je vais essayer autrement aussi pour la MAJ

Merci,

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
  ' --- Déclaration de variable
        Dim connection As New SqlClient.SqlConnection(VGconnexion)
        Dim command As SqlClient.SqlCommand
        Dim ds As DataSet
        Dim da As SqlClient.SqlDataAdapter
 
        ' --- Ouverture de la connexion à la Base de données
        Try
           connection.Open()
            ' --- Cas d'erreur
        Catch
            ' --- Message d'erreur
            message_erreur_ouverture_bdd()
        End Try
 
        ' --- Initialisation de la requête SQL pour remplir le DATAGRIDVIEW
        command = New SqlClient.SqlCommand
        command.Connection = connection
        command.CommandText = "select *  from SAVE_TYPE_PERIPHERIQUE"
 
        ' --- Initalisation DATASET et SQLADAPTATER pour acceuillir le résultat de la requete
        ds = New sauvegarde
        da = New SqlClient.SqlDataAdapter
        da.SelectCommand = command
 
        ' --- Ouverture de la connection + remplissage du dataset
        da.Fill(ds, "SAVE_TYPE_PERIPHERIQUE")
 
        ' --- Intégration des données du DATASET dans le DATAGRIDVIEW
        DATA_SAVE.DataSource = ds.Tables("SAVE_TYPE_PERIPHERIQUE")
 
        ' ---  Fermeture de la connexion à la base
        Try
            connection.Close()
            ' --- Cas d'erreur
        Catch
            ' --- Message d'erreur
            message_erreur_fermeture_bdd()
        End Try

.Matt