Update dataset & clé primaire auto increment [Résolu]
dullbrain
- Messages postés
- 29
- Date d'inscription
- mardi 15 décembre 2009
- Dernière intervention
- 12 novembre 2010
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Dernière intervention
- 26 novembre 2013
A voir également:
- Visual basic increment
- Vb.net increment - Meilleures réponses
- Update dataset vb.net - Meilleures réponses
- Visual Basic / VB.NET : Recherche incrémentable dans une combobox - CodeS SourceS - Guide
- [visual basic] [général] déclaration de variables - Conseils pratiques - Visual Basic / VB.NET
- [visual basic] [général] portée des variables - Conseils pratiques - Visual Basic / VB.NET
- [visual basic] [général] comment redimensionner un tableau en vb ? - Conseils pratiques - Visual Basic / VB.NET
- [visual basic] [définitions] byref , byval - Conseils pratiques - Visual Basic / VB.NET
8 réponses
Meilleure réponse
- Messages postés
- 29
- Date d'inscription
- mardi 15 décembre 2009
- Dernière intervention
- 12 novembre 2010
Merci à tous d'avoir pris quelques instant pour essayer de m'aider, je viens de trouver la solution, pour ceux que ça intéresse :
mon champs "PASSWORD" créait une erreur car il s'agit d'un nom réservé dans Access, le simple fait de le renommer dans la database et d'actualiser en conséquence dans le code a tout solutionné.
Merci encore et bonne journée à vous :)
mon champs "PASSWORD" créait une erreur car il s'agit d'un nom réservé dans Access, le simple fait de le renommer dans la database et d'actualiser en conséquence dans le code a tout solutionné.
Merci encore et bonne journée à vous :)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
88 internautes nous ont dit merci ce mois-ci
- Messages postés
- 29
- Date d'inscription
- mardi 15 décembre 2009
- Dernière intervention
- 12 novembre 2010
Quand je ne mets rien pour cette colonne dans le With, il me dit une erreur de syntaxe dans l'instruction INSERT INTO. J'ai isolé la ligne qui fait planter, c'est juste celle ci :
dta.Update(dts, "USERS")
ma table s'appelle bien USERS, et j'ai une messageBox avant insertion qui me montre bien que les valeurs pour les champs sont correctes.
La seule particularité est que pour le rang, dans ma base Access, c'est une liste de 5 valeurs à choisir. Le rang avant insertion est exactement tel que défini dans la base, mais c'est un string, peut-être que ça pourrait bloquer ?
dta.Update(dts, "USERS")
ma table s'appelle bien USERS, et j'ai une messageBox avant insertion qui me montre bien que les valeurs pour les champs sont correctes.
La seule particularité est que pour le rang, dans ma base Access, c'est une liste de 5 valeurs à choisir. Le rang avant insertion est exactement tel que défini dans la base, mais c'est un string, peut-être que ça pourrait bloquer ?
- Messages postés
- 1241
- Date d'inscription
- mardi 10 octobre 2006
- Dernière intervention
- 27 août 2013
Pourrais-tu mettre un peu plus de code, et notamment les déclarations de tes variables (surtout la variable rank) ainsi que les valeurs qu'elles doivent contenir?
Que veux-tu dire par :
Le rang avant insertion est exactement tel que défini dans la base, mais c'est un string
La liste c'est une liste de string?ou de valeur numérique?si rang est de type string à l'intérieur de ta base, peut-être te faudra t-il utiliser la fonction cstr ?
L'expérience, c'est une connerie par jour, mais jamais la même..
Que veux-tu dire par :
Le rang avant insertion est exactement tel que défini dans la base, mais c'est un string
La liste c'est une liste de string?ou de valeur numérique?si rang est de type string à l'intérieur de ta base, peut-être te faudra t-il utiliser la fonction cstr ?
L'expérience, c'est une connerie par jour, mais jamais la même..
- Messages postés
- 29
- Date d'inscription
- mardi 15 décembre 2009
- Dernière intervention
- 12 novembre 2010
En gros un formulaire va appeler la fonction d'ajout avec 4 paramètres, un nom, un prénom, un password et un rang.
Tout ça fonctionne, je vérifie que le rang est bien une des valeurs autorisées dans ma base
Public Function add_user(ByVal nom As String, ByVal prenom As String, ByVal pw As String, ByVal rank As String)
Try
dts.Clear()
cmd = New OleDbCommand("SELECT * FROM USERS")
dta = New OleDbDataAdapter(cmd)
cmd.Connection = connect
dta.Fill(dts, "USERS")
dtt = dts.Tables("USERS")
If dtt.Rows.Count > 0 Then
For i As Integer = 0 To dtt.Rows.Count - 1
If dtt.Rows(i).Item("NOM") nom And dtt.Rows(i).Item("PRENOM") prenom Then
MsgBox("La personne est déjà présente", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erreur de doublon")
Return False
End If
Next
End If
dtr = dts.Tables("USERS").NewRow()
With dtr
.Item("NOM") = nom
.Item("PRENOM") = prenom
.Item("PASSWORD") = pw
.Item("RANK") = rank
End With
MsgBox("nom : " & nom & " prénom : " & prenom & " mdp : " & pw & " droits : " & rank)
dts.Tables("USERS").Rows.Add(dtr)
cmdbld = New OleDbCommandBuilder(dta)
dta.Update(dts, "USERS")
Catch ex As Exception
MsgBox("Erreur : " & ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erreur détectée")
End Try
Return False
End Function
J'ai une fonction qui fonctionne à l'identique pour ajouter une affaire et elle ne pose pas problème, c'est ça que je ne comprends pas.
Tout ça fonctionne, je vérifie que le rang est bien une des valeurs autorisées dans ma base
Public Function add_user(ByVal nom As String, ByVal prenom As String, ByVal pw As String, ByVal rank As String)
Try
dts.Clear()
cmd = New OleDbCommand("SELECT * FROM USERS")
dta = New OleDbDataAdapter(cmd)
cmd.Connection = connect
dta.Fill(dts, "USERS")
dtt = dts.Tables("USERS")
If dtt.Rows.Count > 0 Then
For i As Integer = 0 To dtt.Rows.Count - 1
If dtt.Rows(i).Item("NOM") nom And dtt.Rows(i).Item("PRENOM") prenom Then
MsgBox("La personne est déjà présente", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Erreur de doublon")
Return False
End If
Next
End If
dtr = dts.Tables("USERS").NewRow()
With dtr
.Item("NOM") = nom
.Item("PRENOM") = prenom
.Item("PASSWORD") = pw
.Item("RANK") = rank
End With
MsgBox("nom : " & nom & " prénom : " & prenom & " mdp : " & pw & " droits : " & rank)
dts.Tables("USERS").Rows.Add(dtr)
cmdbld = New OleDbCommandBuilder(dta)
dta.Update(dts, "USERS")
Catch ex As Exception
MsgBox("Erreur : " & ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erreur détectée")
End Try
Return False
End Function
J'ai une fonction qui fonctionne à l'identique pour ajouter une affaire et elle ne pose pas problème, c'est ça que je ne comprends pas.
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Dernière intervention
- 26 novembre 2013
Si tu bosse avec une base de données tu as forcément une requête insert
Cette ligne permet de générer automatiquement des requêtes INSERT, UPDATE et DELETE en fonction de ta requête SELECT.
Crée ta propre requête INSERT en remplacent la ligne par celle-ci :
dta.InsertCommand.CommandText = "INSERT INTO USERS NOM, PRENOM, PASSWORD, RANK VALUES ('" & nom & "', '" & prenom & "', '" & pw & "', '" & rank & "')"
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
cmdbld = New OleDbCommandBuilder(dta)
Cette ligne permet de générer automatiquement des requêtes INSERT, UPDATE et DELETE en fonction de ta requête SELECT.
Crée ta propre requête INSERT en remplacent la ligne par celle-ci :
dta.InsertCommand.CommandText = "INSERT INTO USERS NOM, PRENOM, PASSWORD, RANK VALUES ('" & nom & "', '" & prenom & "', '" & pw & "', '" & rank & "')"
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.