UPDATE INSERT table access

Version imprimable

Bonjour,

Je rencontre un problème d'insertion et mise à jour de données pour mon projet. J'ai une base de données ACCESS avec une table "USERS" et une table "USERS_PDM". L'utilisateur doit dans un premier temps ajouter un utilisateur dans la table "USERS" puis ensuite l'ajouter dans la table "USERS_PDM" si l'utilisateur utilise une licence PDM. Je précise que la table "USERS" contient un champs nommée "ID_PDM" qui est la clé primaire de "USERS_PDM" et que ces 2 tables n'ont pas d'association entre elles. J'ai essayé plusieurs solution dont celle ci-dessous mais en vain :

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
 
        Dim sql_ajouter_pdm As String
        Dim sql_MAJ_user As String
 
        sql_MAJ_user = "UPDATE USERS SET ID_PDM=Val_ID_PDM where ALPS=" & TXT_ALPS_USER.Text & ""
        sql_ajouter_pdm = "INSERT INTO USERS_PDM (ID_PDM,User_Name,CC) VALUES (Val_ID_PDM, Val_User_Name, Val_CC)"
 
        commande_pdm = New OleDb.OleDbCommand(sql_ajouter_pdm, con_pdm)
        commande_user = New OleDb.OleDbCommand(sql_MAJ_user, con_user)
 
        If TXT_ID_PDM.TextLength <> 0 Then
            For k = 0 To TXT_ID_PDM.TextLength - 1
                If IsNumeric(TXT_ID_PDM.Text(k)) Then
                    TXT_ID_PDM.Clear()
                    MsgBox("Le champ PDM ne doit pas contenir de chiffre")
                    Exit Sub
                End If
            Next
        Else
            TXT_ID_PDM.Clear()
            MsgBox("Veuillez rentrer un login PDM")
            Exit Sub
        End If
 
        commande_pdm.Parameters.AddWithValue("Val_ID_PDM", TXT_ID_PDM.Text)
        commande_user.Parameters.AddWithValue("Val_ID_PDM", TXT_ID_PDM.Text)
        commande_pdm.Parameters.AddWithValue("Val_User_Name", TXT_NOM_USER.Text & "," & TXT_PRENOM_USER.Text)
        commande_pdm.Parameters.AddWithValue("Val_CC", CB_CC.SelectedItem)
 
        commande_pdm.Connection.Open()
        commande_pdm.ExecuteReader()
        commande_pdm.Connection.Close()
 
        commande_user.Connection.Open()
        commande_user.ExecuteReader()
        commande_user.Connection.Close()
 
        MsgBox("Le nouveau contact PDM a bien été enregistré.")
 
        dts_pdm.Clear()
        dts_user.Clear()
        demarrage_users()
        demarage_pdm()

Avec cette solution j'ai un message de Type de données incompatible dans l'expression du critère. Quelqu'un pourrait-il m'aider et m'expliquer ?

Merci par avance,

17/01/2012, 10h00
Pol63

ce message d'erreur signifie qu'il y a un problème de type
genre si dans un champs nombre tu mets un texte ou si dans un champs texte tu ne donnes pas du texte entre '
17/01/2012, 10h36
Ced39300

Bonjour et merci pour ta réponse,

Seulement il y a quelque chose d’illogique. Premièrement, j'ai fait une contrainte pour interdire les chiffres dans ce champs et dans un second temps j'ai introduit des " ' " dans mon champs lors de l'enregistrement. Mais toujours le même message ..

Code:

commande_user.Parameters.AddWithValue("Val_ID_PDM", "'" & "TXT_ID_PDM.Text" & "'")
17/01/2012, 10h45
Pol63

détails de la table ? (colonnes et types)
que contient CB_CC ?

la requete qui plante est-elle bien celle d'insert ?
17/01/2012, 11h26
Ced39300

1 pièce(s) jointe(s)

Tu trouveras les détails des tables en pièce jointe.

Cb_CC est la table des centre de coûts. chaque utilisateur a un centre de coût et un centre de coût peut avoir plusieurs utilisateurs.

La requête qui plante est l'update. L'insert marche bien, les données s'ajoutent dans la table "USERS_PDM" mais le champs "ID_PDM" de la table "USERS" ne se met pas à jour.

Voila, j'espère avoir été clair.

Merci encore
17/01/2012, 11h34
Pol63

alps est de type texte
=>

Code:

sql_MAJ_user = "UPDATE USERS SET ID_PDM=Val_ID_PDM where ALPS='" & TXT_ALPS_USER.Text & "'"
17/01/2012, 11h53
Ced39300

Merci beaucoup,

C'est ok pour

Code:

sql_MAJ_user = "UPDATE USERS SET ID_PDM=' " & TXT_ID_PDM.Text & "' where ALPS='" & TXT_ALPS_USER.Text & "'"
17/01/2012, 11h56
Pol63

merci de cliquer sur :resolu: en bas de cette page

1 pièce(s) jointe(s)

Bonjour,

Je rouvre ce topic car je rencontre encore un problème de mise à jour. Il s'agit toujours de ma table "USERS". J'aimerai pouvoir modifier mon champs 'ALPS' qui est ma clé principale. De plus ce champs 'ALPS' se retrouve dans une autre table nommée 'USERS_CONFIG' qui me sert d'association entre 'USERS' et 'CONFIG'. J'ai dans un premier temps procéder avec cette requête afin de modifier seulement le code ALPS de la table 'USERS'

Code:

sql_MAJ_user = "UPDATE USERS SET ALPS='" & TXT_ALPS_USER.Text & "',NOM_USER='" & TXT_NOM_USER.Text & "',PRENOM_USER='" & TXT_PRENOM_USER.Text & "',ID_CC= '" & CB_CC.Text & "',Type_contrat_USER= '" & CB_TYPE_CONTRAT_USER.Text & "',CHANTIER_SEDENTAIRE= '" & CB_CHAN_SED.Text & "',STE_FACTURATION= '" & CB_FACTURATION.Text & "',BATIMENT= '" & CB_BAT_USER.Text & "',BUREAU_USER= '" & CB_BUREAU_USER.Text & "',D_ENTRE_SOCIETE= '" & DT_Dentre_user.Text & "',D_SORTIE_SOCIETE= '" & DT_Dsortie_societe.Text & "',ID_Lotus= '" & TXT_IDLOTUS.Text & "',Mail_USER= '" & TXT_MAIL_USER.Text & "',COMMENTAIRE_USER= '" & TXT_COM_USER.Text & "'

L’événement se termine correctement sans message d'erreur mais la mise du code ALPS ne se fait pas. (Les autres champs marchent)

J'ai aussi essayer de modifier ma table "USERS_CONFIG" avant de modifier le code ALPS de la table 'USERS' sans mettre à jour le dataset afin qu'il garde en mémoire l'ancien code ALPS. Je précise qu'un utilisateur n'est pas obligé d'avoir un poste informatique.
Code:

1 2 3 4 5 6 7 8 9 10 'requête sql_MAJ_config = "UPDATE USERS_CONFIG SET ALPS= '" & TXT_ALPS_USER.Text & " 'modification de la table 'USERS_CONFIG' For j = 0 To dts_user_config.Tables("USERS_CONFIG").Rows.Count - 1 If dts_user.Tables("USERS").Rows(i).Item("ALPS") = dts_user_config.Tables("USERS_CONFIG").Rows(j).Item("ALPS") Then commande_user_config.Parameters.AddWithValue("ALPS", TXT_ALPS_USER.Text) End If Next
Comment procéder ?
Merci d'avance.

Je fais suivre un jpg en pièce jointe pour mieux comprendre.

18/01/2012, 14h45
Pol63

un clé primaire par définition ne devrait jamais être modifiée !
donc revois ton schéma de base de données
18/01/2012, 14h57
Ced39300

Merci, donc si je veux modifier mon ALPS je suis obligé de mettre une autre clé primaire ... C'est pas super ça ^^

Merci pour l'info
18/01/2012, 15h43
Pol63

une clé primaire ne doit être utilisée que pour la base de données, elle ne doit jamais être affichée ou utilisée dans une application
elle ne sert qu'à être un identifiant unique (en général un entier autoincrément) et faire des liens entre les tables

c'est une des bases pour avoir une base de données performante et intègre

Bonjour,

J'ai encore une question en rapport avec votre dernier message.

J'ai créé un bouton supprimer utilisateur pour supprimer comme son nom l'indique. La suppression marche mais le rafraichissement du dataset ne s'effectue pas. Après la suppression lorsque j'essaye de naviguer entre mes différents utilisateurs. J'ai un message me disant aucune "Aucune ligne à la position" de l'indice ( i ) ou se trouvaient les données supprimées dans ma procédure affichage.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub BT_SupUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_SupUser.Click Dim sql_supprimer As String sql_supprimer = "DELETE from USERS where ALPS ='" & TXT_ALPS_USER.Text & "'" commande_user = New OleDb.OleDbCommand(sql_supprimer, con_user) commande_user.ExecuteReader() commande_user.Connection.Close() MsgBox("L'utilisateur a bien été supprimé") dts_user.Clear() demarrage_users() End Sub
Code:

1 2 3 4 5 'extrait procédure affichage Private Sub affichage() TXT_ALPS_USER.Text = dts_user.Tables("USERS").Rows(i).Item("ALPS").ToString TXT_NOM_USER.Text = dts_user.Tables("USERS").Rows(i).Item("NOM_USER").ToString
Serait ce un rapport avec l'utilisation d'une clé primaire dans ma base de données ? J'aimerais une fois l'utilisateur supprimé que l'affichage soit sur l'utilisateur précédent.

Merci par avance.

20/01/2012, 10h21
Pol63

le but de l'utilisation d'un dataset c'est pour que le dataset s'occupe des requetes
c'est donc dans le dataset qu'il faut supprimer la ligne, puis dire au dataset d'appliquer les modifications sur la base de données

sinon ExecuteReader sert pour lire des données (SELECT), pour udpate delete et insert ExecuteNonQuery suffit

J'ai fait ça mais je sais pas comment appliquer les données au dataset

Code:

1
2
3
4
5
6
        dts_user.Tables("USERS").Rows(i).Delete()
 
        MsgBox("L'utilisateur a bien été supprimé")
 
        dts_user.Clear()
        demarrage_users()

20/01/2012, 11h28
Pol63

il ne faut pas le clear et le recharger, il doit y avoir une méthode update ou refresh
20/01/2012, 11h35
Ced39300

il n'y a aucune de ces méthodes ^^ :(