Discussion :

[JetLibre]

Bonjour tous le monde

J'ai chargé mon DataGrid et tout va bien. Voici le code:

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
 Cn.Open() 'Ouverture de la connexion
                Cmd.CommandType = CommandType.Text
                Cmd.CommandText = "Select TPersCertifs.DateCertifs, Certifs.TypesCertifs, TPersCertifs.MotifCertifs From TPersCertifs INNER JOIN Certifs ON TPersCertifs.CodeCertifs = Certifs.CodeCertifs Where CIN = " & TXTCIN.Text & " Order By TPersCertifs.DateCertifs"
                Da = New OleDb.OleDbDataAdapter(Cmd)
                Cmd.Connection = Cn
                Dr = Cmd.ExecuteReader
                Dt.Load(Dr)
                Da.Fill(Ds, "TPersCertifs")
                Dr.Close()
                Cn.Close()
                DataGridCertifs.DataSource = Ds
                DataGridCertifs.DataMember = "TPersCertifs"
                DataGridCertifs.Columns(0).HeaderText = "Date Certificat"
                DataGridCertifs.Columns(1).HeaderText = "Type Certificat"
                DataGridCertifs.Columns(2).HeaderText = "Motif Certificat"

Je voudrais remplir (Ajouter, Modifier, Supprimer...) ma table directement Via ma DataGrid.

[JetLibre]

Bonjour

Est-ce que ma question est très difficile à ce point que je n'ai pas trouvé une essaye.

[_Ez3kiel]

Tu passes par des requêtes paramétrées (insert/delete/update) et tu boucles sur les Rows de ton DGV en les appliquant. (Ou pas si c'est un delete d'une seule ligne, ou insert d'une seule, etc)

N'oublie pas que les colonnes de ton DGV doivent être du même type que celles de ta BDD.

[JetLibre]

Merci Ez3kiel de m'avoir répondu
je sais passer par des requêtes paramétrées (insert/delete/update) mais sans jointure.
ici ma requête contienne une jointure c.a.d je dois afficher le Nom du certif mais dans le sauvegarde je doit enregistrer le code du certif dans la base.

remarque: l'insertion ou la suppression d'un seul ligne seulement

Merci

[_Ez3kiel]

Lors du remplissage de ton DGV, tu peux passer ton code certif dans la property Tag des DataGridViewRow, ainsi tu auras des paires key/value (code certif / Nom certif) et donc tu feras ta requête avec le Tag de la ligne qui contiendra le code certif.

[JetLibre]

merci mon frère de t'avoir intéresser à ma question.

SVP a-tu un petit exemple de ce TAG pour que je puisse comprendre un peu.

Merci d'avance pour tout.

[_Ez3kiel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataGridView1.Rows(0).Tag = "TonCode"

Dans l'exemple, la ligne 0 a pour Tag "TonCode", mais dans ton cas, ce sera l'identifiant unique. Il est stocké mais n’apparaît pas sur l'interface.

Ainsi dans ta requête tu pourras le récupérer et le passer en paramètre.

EDIT: Ou 2ème solution, dans ta requête de remplissage de ton DGV tu rajoutes le champs des identifiants, tu rajoutes une colonne à ton DGV pour stocker les identifiants, et tu la rends invisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataGridCertifs.Columns(0).Visible =  True

[JetLibre]

Salut

Dans Ma Form_Load

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
  Cn.Open() 'Ouverture de la connexion
                Cmd.CommandType = CommandType.Text
                Cmd.CommandText = "Select TPersCertifs.DateCertifs, Certifs.TypesCertifs, TPersCertifs.MotifCertifs From TPersCertifs INNER JOIN Certifs ON TPersCertifs.CodeCertifs = Certifs.CodeCertifs Where CIN = " & TXTCIN.Text & " Order By TPersCertifs.DateCertifs"
                Da = New OleDb.OleDbDataAdapter(Cmd)
                Cmd.Connection = Cn
                Dr = Cmd.ExecuteReader
                Dt.Load(Dr)
                Da.Fill(Ds, "TPersCertifs")
                Dr.Close()
                Cn.Close()
                DataGridCertifs.DataSource = Ds
                DataGridCertifs.DataMember = "TPersCertifs"
                DataGridCertifs.Columns(0).HeaderText = "Date Certificat"
                DataGridCertifs.Columns(1).HeaderText = "Type Certificat"
                DataGridCertifs.Columns(2).HeaderText = "Motif Certificat"

Pour le remplissage de DataGrid c'est réussi

Dans Une bouton Update

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Da.Update(Ds, "TPersCertifs")

le message d’erreur suivant apparaît:

Update requiert un UpdateCommand valide lors du passage de la collection DataRow avec des lignes modifiées.

J'ai suivi le cours de Philippe Lasserre Page 1065 à 1067

pour moi ??????

[_Ez3kiel]

Ta clé primaire se trouve-t-elle dans l'update ?

As-tu bien instancié ton updateCommand ?

[Kropernic]

Cela fait longtemps que je n'utilise plus les datasets mais, si mes souvenirs sont bons, avec une requête de sélection portant sur plusieurs tables, le dataset n'est pas capable de généré lui-même les requêtes de mise à jour (aussi bien insert, qu'update que delete).

Personnellement, lorsque je travaillais avec des datasets, je travaillais systématiquement avec des procédures stockées et j'utilisais ces dernières pour configurer le composant DataAdapter en lui spécifiant spécifiquement ce qu'il devait utiliser pour chaque type de requête (insert/select/update/delete).

De cette manière, aucun souci.

[JetLibre]

Salut

Pouvez vous me guider un peu S.V.P ?

[tovin]

Bonjour,
Voilà ce que j'utilise avec une base Access, pour la mettre à jour avec une grille vb net.

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
 
Imports System.Data
Imports System.Data.OleDb
Imports System.Net
 Public MonAdapter As New OleDb.OleDbDataAdapter("select * from mabase", Connection)
rem mabase=nom de ma base 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        REM grille------>base
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
        "data source= " & Application.StartupPath & "\" & "mabase.mdb;"
        Connection.Open()
        'Création CommandBuilder 
        Dim CmdBuild As OleDbCommandBuilder
        CmdBuild = New OleDb.OleDbCommandBuilder(MonAdapter)
        'On génère l'update entre le dataSet et la base de donnée
        MonAdapter.UpdateCommand = CmdBuild.GetUpdateCommand()
        MonAdapter.Update(MonDataSet, "mabase")
        Connection.Close()
 
        MsgBox("Mise à jour de la base effectuée ", vbOKOnly, "Confirmation")
        sauver = True
 
    End Sub

[Kropernic]

Salut

Pouvez vous me guider un peu S.V.P ?

Quel est votre SGDBR ?

[JetLibre]

Salut

J'utilise VS 2012 et Access 2007 comme Base

Merci.

[Kropernic]

Dans Access, crée les procédures stockées nécessaires à faire les actions que tu veux réaliser avec ton dataset (select pour le remplir ; insert, update et delete pour la mise à jour).

Dans ton dataset en mode design dans VS, ajoute un TableAdapter, fais un clic droit dessus et choisis Configurer.

Là, tu suis le wizard (que je ne connais plus par coeur mais c'est pas bien dur et sinon, google est ton ami) pour indiqué au TableAdapter la procédure stockée (que tu as donc créée dans Access) qu'il doit utilisé pour chaque type d'ordre (select, insert, update et delete). Il n'est pas obligatoire de les spécifier tous.

Il saura alors quoi faire lors d'un update ou insert si ta requête de sélection effectue des jointures sur plusieurs tables.

[JetLibre]

Salut

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
Imports System.Data
Imports System.Data.OleDb
Imports System.Net
 Public MonAdapter As New OleDb.OleDbDataAdapter("select * from mabase", Connection)
rem mabase=nom de ma base 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        REM grille------>base
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
        "data source= " & Application.StartupPath & "\" & "mabase.mdb;"
        Connection.Open()
        'Création CommandBuilder 
        Dim CmdBuild As OleDbCommandBuilder
        CmdBuild = New OleDb.OleDbCommandBuilder(MonAdapter)
        'On génère l'update entre le dataSet et la base de donnée
        MonAdapter.UpdateCommand = CmdBuild.GetUpdateCommand()
        MonAdapter.Update(MonDataSet, "mabase")
        Connection.Close()
 
        MsgBox("Mise à jour de la base effectuée ", vbOKOnly, "Confirmation")
        sauver = True
 
    End Sub

sauver = True ??????

sauver est ce une procédure à appeler ou une commande interne propre à VS12