VB.NET 2008 Update sans PK ?

**angelevil** · 05/01/2009, 01h32

bonjour à tous!

Je commence à coder en mode non connecté. Lorsque je regarde les tutoriels et les livres sur ADO.NET non connecté et la commande UPDATE je vois toujours du code pour une table qui a une clé unique, ou PK si vous aimez mieux.

J'ai réussi à afficher des infos avec le dataset, dataAdapter et le IEnumerator. Tout va bien pour celà.

Ou je commence à m'arracher les cheveux c'est lorsque je dois modifier un enregistrement UNIQUE dans une table sans PK

J'ai essayé du code, mais j'ai l'impression que c'est impossible en mode non connecté........

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
 
 
        Dim strCon$ = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Chemin_Acces_BD & "\" & "BDAccess.mdb;")
        Cn = New OleDb.OleDbConnection(strCon)
 
        Cn.ConnectionString = strCon
        Cn.Open()
        CmdR = Cn.CreateCommand() 'Creation de commande
        CmdR.CommandText = "select Nom_Admin, Passwd_Admin from admin WHERE Nom_admin = '" & Me.Txt_Nom_Admin.Text.ToString & "'" ' Creation de la requete SQL"
        Try
            ' Extraire l'enregistrement courant
            DtSet = New DataSet
            DtAdapteur = New OleDb.OleDbDataAdapter
            DtAdapteur.SelectCommand = CmdR
            DtSet.Tables("admin").Rows(0).BeginEdit() ' ca plante ici!!!!
            DtRow = DtSet.Tables("admin").Rows(0)
            'Modifier les valeurs des champs en  récupérant le contenu des TextBox
            DtRow("nom_admin") = Me.Txt_new_UserName_Admin.Text
            DtRow("passwd_admin") = Me.Txt_Confirmation_New_PassAdmin.Text
            'Pour modifier les valeurs changées dans le DataAdapter
            cmdBuilder = New OleDb.OleDbCommandBuilder(DtAdapteur)
            'Mise à jour
            DtAdapteur.Update(DtSet, "Admin")
            Cn = Nothing
            CmdR = Nothing
            DtAdapteur = Nothing
            'Objet déconnectée
            DtSet = Nothing
            DtTable = Nothing
            DtRow = Nothing
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information)
            Cn = Nothing
            CmdR = Nothing
            DtAdapteur = Nothing
            'Objet déconnectée
            DtSet = Nothing
            DtTable = Nothing
            DtRow = Nothing
 
        End Try
        Cn = Nothing
        CmdR = Nothing
        DtAdapteur = Nothing
        'Objet déconnectée
        DtSet = Nothing
        DtTable = Nothing
        DtRow = Nothing

Comme vous voyez dans le code j'ai rajouté un commentaire dans le code afin de vous indiquez à quel endroit que ça plante.

L'erreur est la suivante :

La référence d'objet n'est pas définie à une instance d'objet

Si vous pouvez m'aidez à comprendre ce qui se passe, ça serait très apprécié.

Merci!

AngelEvil

**tomlev** · 05/01/2009, 01h53

Cette erreur n'a rien à voir avec le fait que la table n'ait pas de clé primaire, c'est simplement que la table admin n'existe pas encore dans le DataSet à ce stade... Commence par faire un Fill avec le DataAdapter, ou alors ajoute manuellement la table au dataset

**angelevil** · 05/01/2009, 03h17

Rebonjour.

J'ai rajouté le fill pour mettre dans DataSet la table Admin.

Ca ne bug plus dans le code, mais l'update ne fonctionne pas.

J'ai rajouté du code et ça donne ceci

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
 
        Dim strCon$ = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Chemin_Acces_BD & "\" & "BDAccess.mdb;")
        Cn = New OleDb.OleDbConnection(strCon)
 
        Cn.ConnectionString = strCon
        Cn.Open()
        CmdR = Cn.CreateCommand() 'Creation de commande
        CmdR.CommandText = "select Nom_Admin, Passwd_Admin from admin WHERE Nom_admin = '" & Me.Txt_Nom_Admin.Text.ToString & "'" ' Creation de la requete SQL"
 
            ' Extraire l'enregistrement courant
            DtSet = New DataSet
            DtAdapteur = New OleDb.OleDbDataAdapter
            DtAdapteur.SelectCommand = CmdR
            DtAdapteur.Fill(DtSet, "admin")
 
 
            DtSet.Tables("admin").Rows(0).BeginEdit() ' ca plante ici!!!!
            DtRow = DtSet.Tables("admin").Rows(0)
            'Modifier les valeurs des champs en  récupérant le contenu des TextBox
            DtRow("nom_admin") = Me.Txt_new_UserName_Admin.Text
            DtRow("passwd_admin") = Me.Txt_Confirmation_New_PassAdmin.Text
            'Pour modifier les valeurs changées dans le DataAdapter
            cmdBuilder = New OleDb.OleDbCommandBuilder(DtAdapteur)
            'Mise à jour
            DtAdapteur.Update(DtSet, "Admin")
            Cn = Nothing
            CmdR = Nothing
            DtAdapteur = Nothing
            'Objet déconnectée
            DtSet = Nothing
            DtTable = Nothing
            DtRow = Nothing

Merci de m'éclairer

AngelEvil!

**tomlev** · 05/01/2009, 11h19

C'est parce que tu n'as pas mis de EndEdit avant l'Update pour terminer le BeginEdit

**angelevil** · 07/01/2009, 06h15

J'ai pris le temps de regarder des tutoriels et la FAQ et je suis perdu et les exemples essaient plutôt de tout montrer dans une page web au lieu de démontrer du code de A à Z pour modifier.

J'ai même regardé dans un livre pour ADO.NET et je suis perdu....

Connaissez-vous un exemple de code en mode non connecté avec une BD Access [U] qui explique le code pour modifier. Du code simple sans tous les exemples d'ajouts et de suppression ? Juste du code pour MODIFIER ....

Comme ça j'aurai au moins une base pour un exemple de modification.

J'ai fait le code en mode connecté pour les modifs, ajouts, suppression. Le reste du code est en mode non connecté. J'aimerais que toute les fonctions soient en mode non connectées. Voilà la raison de mon acharnement à réussir a faire du code en mode non connecté.

Mais est-ce que les commandes pour VB2008 Express ADO.NET sont bien du 2.0 ou du 3.5 ? Si c'est du 3.5 est-ce qu'il y a une différence par rapport à la version 2.0 ????

Merci!

AngelEvil

**tomlev** · 07/01/2009, 12h00

Tu as essayé la correction que je t'ai proposée ?

Tu as regardé ce tutoriel ?
http://dotnet.developpez.com/articles/ado2/vbnet/

Envoyé par angelevil

Mais est-ce que les commandes pour VB2008 Express ADO.NET sont bien du 2.0 ou du 3.5 ? Si c'est du 3.5 est-ce qu'il y a une différence par rapport à la version 2.0 ????

Ca existait déjà en 2.0 et ça n'a pas changé en 3.5

**angelevil** · 08/01/2009, 04h42

Bonjour et merci de votre réponse.

J'ai rajouté la ligne permettant de faire le EndEdit après les deux lignes de codes qui modifie les deux champs et lorsque je fais la trace ca m'envoie dans Exception parce que c'est un SelectCommand. Dans plusieurs exemples de tutoriels et dans le livre que j'utilise pour le .NET et l'ADO.NET je vois un Selectcommand et non un UpdateCommand.

Coudont je sais lire, mais je ne comprends pas pourquoi ça fonctionne pour eux, mais pas pour moi ?!?!!?!?!?!?!??!!??!?!?!?!?!?!?!

Je vais regarder le tutoriel et coller le code dans un projet vierge. je verrais le fonctionnement.

AngelEvil

**tomlev** · 08/01/2009, 12h50

Si tu mets un BeginEdit, il faut aussi mettre un EndEdit... mais de toutes façons tu n'as pas besoin de faire BeginEdit, ça marche aussi bien sans.

Essaie de remplacer :

Code :

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