L'exception OleDbException n'a pas été gérée

Version imprimable

http://img175.imageshack.us/img175/8895/problemk.jpg

Code:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
 
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    '  Déclaration Objet Connexion
 
    Dim ObjetConnection As OleDbConnection
 
    ' Déclaration Objet Commande
 
    Dim ObjetCommand As OleDbCommand
 
    '  Déclaration Objet DataAdapter
 
    Dim ObjetDataAdapter As OleDbDataAdapter
 
    ' Déclaration Objet DataSet
 
    Dim ObjetDataSet As New DataSet() 'Attention au New
 
    'String contenant la 'Requête SQL'
 
    Dim strSql As String
 
    ' Déclaration Objet DataTable
 
    Dim ObjetDataTable As DataTable
 
    ' Déclaration Objet DataRow (ligne)
 
    Dim ObjetDataRow As DataRow
 
    'Numéro de la ligne en cours
 
    Dim RowNumber As Integer    'Numéro de l'enregistrement courant
 
    'Paramêtres de connexion à la DB
 
    Dim strConn As String
 
    'Pour recompiler les données modifiées avant de les remettre dans le
 
    '"DataAdapter"
 
    Dim ObjetCommandBuilder As OleDbCommandBuilder
    Sub connection()
        'Initialisation de la chaîne de paramètres pour la connexion
 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Documents and Settings\kazkoz\Mes documents\Visual Studio 2008\Projects\dasok\bd1.mdb"
 
        'Initialisation de la chaîne contenant l'instruction SQL
 
        strSql = "SELECT * FROM TS ORDER BY NOM"
 
        'Instanciation d'un Objet Connexion
 
        ObjetConnection = New OleDbConnection()
 
        'Donner à la propriété ConnectionString les paramètres de connexion
 
        ObjetConnection.ConnectionString = strConn
 
        'Ouvrir la connexion
 
        ObjetConnection.Open()
 
        'Instancier un objet Commande
 
        ObjetCommand = New OleDbCommand(strSql)
 
        'Instancier un objet Adapter
 
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
 
        'initialiser l'objet Command
 
        ObjetCommand.Connection() = ObjetConnection
 
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
 
        ObjetDataAdapter.Fill(ObjetDataSet, "TS")
 
        'Mettre dans un Objet DataTable une table du DataSet
 
        ObjetDataTable = ObjetDataSet.Tables("TS")
    End Sub
'---------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connection()
End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
        ' Extraire l'enregistrement courant
 
        ObjetDataRow = ObjetDataSet.Tables("TS").Rows(RowNumber)
 
 
 
        'Modifier les valeurs des champs en  récupérant le contenu des TextBox
 
 
        ObjetDataRow("Matriculation") = TextBox61.Text
        ObjetDataRow("Prenom") = TextBox62.Text
        ObjetDataRow("Nom") = TextBox63.Text
        ObjetDataRow("DATE-N") = TextBox64.Text
        ObjetDataRow("LIEU-N") = TextBox65.Text
        ObjetDataRow("ADR") = TextBox66.Text
        ObjetDataRow("filial") = TextBox67.Text
        ObjetDataRow("DATE-E") = TextBox68.Text
 
 
        'Pour modifier les valeurs changées dans le DataAdapter
 
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
 
 
 
        'Mise à jour
        'Try
        ObjetDataAdapter.Update(ObjetDataSet, "TS")
        'Catch
        'MsgBox("ERROR................")
        ' End Try
 
 
 
        'ObjetDataAdapter.Update(ObjetDataSet, "TS")
 
 
        'On vide le DataSet et on le 'recharge' de nouveau.
 
        ObjetDataSet.Clear()
 
        ObjetDataAdapter.Fill(ObjetDataSet, "TS")
 
        ObjetDataTable = ObjetDataSet.Tables("TS")
 
    End Sub

12/03/2010, 22h03
cybermaxs

Salut,

il faudrait donner l'updateCommand de l'objet ObjetDataAdapter. Sans ça on ne peut pas t'aider ...
12/03/2010, 22h20
peace-to-you

J'ai écrit le code du programme Qu'est-ce que tu veux dire
je suis débutant est-il possible de m'aider avec le code:oops:

Citation:

Envoyé par cybermaxs

Salut,

il faudrait donner l'updateCommand de l'objet ObjetDataAdapter. Sans ça on ne peut pas t'aider ...
13/03/2010, 06h28
garciajulien

Tu peux nous dire exactement ce que ta fonction dois faire?

Car si j'ai bien compris, au moment du clic sur Button_5 (par ailleurs, je te conseille de mettre des noms plus explicite sur tes composants) tu veux modifier la row de ton dataset. Il suffit pour ca de modifier directement ton dataset et si celui-ci est defini correctement, utiliser la fonction AcceptChanges pour que ce soit repercute directement dans ta base.
13/03/2010, 09h36
peace-to-you

Button_5 = Pour modifier l'enregistrement courant dans data base
13/03/2010, 11h46
garciajulien
Pour utiliser la fonction Update de ton ObjetDataAdapter, il faut que l'etat de ta row soit en update, de un.
Ici, puisque tu ne travailles pas directement sur ton dataset, je te conseillerais plutot de cree ton sql statement toi-meme et de le passer a ObjectDateAdapter.UpdateCommande :
Code:

1 2 3 4 ObjectDataAdapter.UpdateCommande = "Update maTable SET MesChamps=mesvalues WHERE maCondition" ObjectDataAdapter.ExecuteNonQuery() ObjectDataAdapter.Commit
Fais juste gaffe a la conversion de date qui parfois est chaotique

En esperant que ca t'aidera

Ju
13/03/2010, 19h51
peace-to-you
Je ne peux pas émergé ces erreurs
http://img519.imageshack.us/img519/2313/59906285.jpg
Citation:
Envoyé par garciajulien

Pour utiliser la fonction Update de ton ObjetDataAdapter, il faut que l'etat de ta row soit en update, de un.
Ici, puisque tu ne travailles pas directement sur ton dataset, je te conseillerais plutot de cree ton sql statement toi-meme et de le passer a ObjectDateAdapter.UpdateCommande :

Code:

1 2 3 4 ObjectDataAdapter.UpdateCommande = "Update maTable SET MesChamps=mesvalues WHERE maCondition" ObjectDataAdapter.ExecuteNonQuery() ObjectDataAdapter.Commit

Fais juste gaffe a la conversion de date qui parfois est chaotique

En esperant que ca t'aidera

Ju
14/03/2010, 06h47
garciajulien
Code:

1 2 3 maDataRow.SetModified() MonDataAdapter.Update()
La fonction Update() parcourt le Dataset lie au DataAdpater et check tout les RowState, et effectue les commandes necessaires.

Je ne peux te conseiller que d'aller voir dans la msdn pour plus d'information

Ju
14/03/2010, 19h29
peace-to-you

Cela doit venir des noms de tes champs. Enlève les tirés à "DATE-N", "LIEU-N" et "DATE-E". SI CA LA SOLUTION MERCI garciajulien && cybermaxs
14/03/2010, 23h16
Graffito

c'est "UpdateCommand" sans e final
15/03/2010, 06h29
garciajulien

Ok tant mieux si ca marche. Juste m'oublie pas le Tag resolu pour ton sujet

Ju