Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Erreur sur DELETE dans Ado.command

Erreur sur DELETE dans Ado.command

2 réponses
Avatar
Eric
bonjour
j'ai un petit problème avec le code ci-dessous au niveau de la commande DELETE

gcnDbsHistoADO.Provider = "Microsoft.Jet.OLEDB.4.0"
UserID$ = ""
PassWord$ = ""
gcnDbsHistoADO.Mode = adModeShareDenyWrite
gcnDbsHistoADO.Open "C:\data\Ed_Of.mdb", UserID$, PassWord$

Dim cmdHisto As New ADODB.Command
StrCritere$ = "DELETE * FROM Lig_Of"
cmdHisto.ActiveConnection = gcnDbsHistoADO
cmdHisto.CommandText = StrCritere$

jusque là aucun problème

cmdHisto.Execute

la commande cmdhisto.execute renvoi une erreur -2147467259
"impossible de supprimer dans les tables spécifiées"

la table Lig_Of existe bien dans la base access Ed_Of.mdb

merci pour vos remarques ou commentaire
cordialement
Eric
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques
Bonjour,
Eric wrote:
bonjour
j'ai un petit problème avec le code ci-dessous au niveau de la commande DELETE

gcnDbsHistoADO.Provider = "Microsoft.Jet.OLEDB.4.0"
UserID$ = ""
PassWord$ = ""
gcnDbsHistoADO.Mode = adModeShareDenyWrite



[... ]

Je crois que tes paramètres d'ouverture ne te permettent ni d'écrire ni
de supprimer :

http://minilien.com/?C1UiWoHrDi


--
Cordialement,

Jacques.
Avatar
FL
Bonjour. Supprime l'étoile de ta requête SQL : DELETE FROM Lig_Of



"Eric" a écrit dans le message de news:

bonjour
j'ai un petit problème avec le code ci-dessous au niveau de la commande


DELETE

gcnDbsHistoADO.Provider = "Microsoft.Jet.OLEDB.4.0"
UserID$ = ""
PassWord$ = ""
gcnDbsHistoADO.Mode = adModeShareDenyWrite
gcnDbsHistoADO.Open "C:dataEd_Of.mdb", UserID$, PassWord$

Dim cmdHisto As New ADODB.Command
StrCritere$ = "DELETE * FROM Lig_Of"
cmdHisto.ActiveConnection = gcnDbsHistoADO
cmdHisto.CommandText = StrCritere$

jusque là aucun problème

cmdHisto.Execute

la commande cmdhisto.execute renvoi une erreur -2147467259
"impossible de supprimer dans les tables spécifiées"

la table Lig_Of existe bien dans la base access Ed_Of.mdb

merci pour vos remarques ou commentaire
cordialement
Eric