Discussion :

[GuyCo]

J'ai un problème avec les lectures écritures dans une base access; je lis une table access en ayant créé une connexion à la main et en utilisant un dataset +dataadapteur .... jusqu'ici pas de problème. je remplie une combobox avec une boucle sur le datatable ....RAS
Premier soucis, la propriété sorted de ma combo étant à true, je ne suis déjà plus sûr que le numéro de ligne sélectionné dans ma combo ait un rapport avec le numéro de ligne dans la table d'origine .
Je fais un select sur le datatable quand je sélectionne une ligne de ma combo afin de récupérer le contenu des différents champs de l'enregistrement obtenu dans des variables qui me sont utiles.. pour le coup, mes données locales sont vraiment déconnectées de ma base access !!!
Ensuite, une des variables est modifiée (en l'occurence un mot de passe) et je dois faire remonter la modif dans la table d'origine en tapant si possible dans le bon enregistrement (lol). Mon problème est que je n'arrive pas à syntaxer en étant sûr de modifier la bonne ligne du datatable en local et que de toute façon, après plusieurs essais, j'ai des erreurs en update du genre utiliser un objet command adapté ...

Voilà, c'est peut être un peu fouilli mais si quelqu'un se penche sur mon problème de débutant, je peux copier des zones de code.

En attendant, merci

[Gdal]

Bonsoir,

Je suis pas sur d'avoir tout compris.... En même temps je débute....

je remplie une combobox avec une boucle sur le datatable

Personnellement j'utilise le DataSet pour remplir mes combobox et sans boucle.

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
 
 Dim Connection As New OleDb.OleDbConnection
 
        Try
 
            ' Connection
            Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                          "Data Source =" & Application.StartupPath & "\Source\Parc Vehicule.mdb;"
            Connection.Open()
 
            ' Création de la requête
            Dim SqlFiltre As String
           SqlFiltre = "SELECT NomDeLaTable.NomDuChamp1, NomDeLaTable.NomDuChamp2 " & _
                      "FROM NomDeLaTable " & _
                      "WHERE NomDeLaTable.NomDuChamp1 = TaClause " & _
                      "ORDER BY NomDuChamp1;"
 
            ' Création du DataAdapter
            Dim DtAdapter = New OleDb.OleDbDataAdapter(SqlFiltre, Connection)
 
            ' Création du DataSet
            Dim DtSet As New DataSet
            DtAdapter.Fill(DtSet, "Tbl_MaTable")
 
            ' Remplissage de la liste
            Me.cboTaCombobox.DisplayMember = NomDuChampX
            Me.cboTaCombobox.ValueMember = "ID_NomDuChampX"
            Me.cboTaCombobox.DataSource = DtSet.Tables("Tbl_MaTable")
            Me.cboTaCombobox.Refresh()
 
        Catch ex As Exception
            'Message d'erreur
            'MessageBox.Show(ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'Vider la liste (se produit lorsque l'égalité de Where est null
            Me.cboTaCombobox.DisplayMember = Nothing
             Me.cboTaCombobox.ValueMember = Nothing
            Me.cboTaCombobox.DataSource = Nothing
 
        Finally
            'Fermer la connection
            Connection.Close()
 
        End Try

Pour le reste recherche du côté de

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' Sélection de la 1ère ligne 
                    objDataRow = objDataSet.Tables("FicheVehicule").Rows(TonN°DeLigne)
 
            objDataRow("NomDuChampDeTaTable") = Me.txtTonchamp.Text
 
            'Pour modifier les valeurs changées dans le DataAdapter
            objCommandBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
            ' Mise à jour
            objDataAdapter.Update(objDataSet, "Tbl_MaTable")

C'est un peu fouilli, mais les idées sont là.

Gwendal..