Bonjour tout le monde j’espère que vous allez bien, j'ai un problème j’espère que vous pouvez m'aider:
J'ai développé une application Gestion des stagiaires avec VB.NET j'utilise VS 2010, et j'ai créée la base de données avec Access 2007, au niveau de la compilation tous les requête marche très bien j'ai aucun problème et aucune erreur mais quand je crée le setup il y a 2 problème j'arrive pas à ajouter dans la base ni modifier l’application s'affiche l'erreur suivante:
L’opération doit utiliser une requête qui peut être mise à jour
et aussi quand je veux supprimer l'application s'affiche l'erreur suivante:
impossible de supprimer dans les tables spécifiées
j'ai essayé d'exécuter le setup en tant qu'administrateur, j'ai partager la base de données avec tout le monde avec le droit d’écrire/lecture, mais toujours le même problème, je précise que au cours de la compilation c'est-à-dire le débogage tous marche très bien je peux ajouter supprimer et modifier.
aidez moi SVP je sais pas quoi faire si vous voulez je peux vous donner le code pour modifier, supprimer et ajouter.
L'opération doit utiliser une requête qui peut être mise à jour,
signifie que tu tentes de mettre à jour une table (T) avec le resultat d' une requete (R) qui utilise ou fait référence à cette même table (T).
impossible de supprimer dans les tables spécifiées, signifie que les tables en questions sont liées entre elles ou à d' autres dans une relation d' integrité reférentielle.
Dans un tel cas tu ne peux supprimer une ligne d' un table sans avoir supprimer aupréalable toutes les lignes correspondantes dans les autres tables liées.
Ou alors dans la propriété de cette relation, autoriser la suppression en cascade.
Bonjour LIBRE_MAX, merci de votre réponse mais mes tables ne sont pas liées entre elles. mais en tout cas je vais essayer avec la suppression en cascade mais que je dois faire pour l'ajout??
Try
If MsgBox(" Voulez Vous vraiment supprimer le stagiaire", 1 + 32, "Confiramtion de la suppression") = MsgBoxResult.Ok Then
con.Close()
con.Open()
cmd.CommandType = CommandType.Text
cmd.CommandText = " DELETE FROM Stagiaires WHERE N°=" & Val(TxtNumero.Text)
cmd.Connection = con
cmd.ExecuteNonQuery()
MsgBox("Le stagiaire a été bien Supprimé", MsgBoxStyle.Information, "Confirmation")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
je précise que au cours la compilation j'ajoute et je supprime facilement mais quand je crée le setup et j'installe ce setup je peux pas ni ajouter ni supprimer
Pour l' expression ajout, l' expression me semble correcte.
Pour la suppression, il manque l' operateur All (*).Ou alors tu dois énuméré les champs
de la ligne à supprimer.Sinon, il ne trouve rien à supprimer.
Ceci dit, j' ai jamais vu une telle écriture pour l' éxécution d' une commande.
Si cmd est un objet Command, la transaction doit être faite de cette façon:
Dim MaCmd As ADODB.Command
Set MaCmd = New ADODB.Command
Dim As sQuery String
sQuery="DELETE * FROM Stagiaires WHERE N°=" & _
Cint(TxtNumero.Text) ' si N° est un Entier
' CLng(TxtNumero.Text) si N° est un Long
' l' utilisation de Val() est à éviter dans ce contexte.
If con.State = 0 Then con.Open
con.BeginTrans
With MaCmd
.ActiveConnection = con
.CommandType = adCmdText
.CommandText = sQuery
.Execute
End With
con.CommitTrans
Même chose pour l' ajout.Tu dois suivre le même schéma.
