Requête que passe bien sur XP, Vista mais pas sous Windows 7...

Question

Bonjour,

J'ai une simple requête SQL qui passe sans problème sous XP et Vista mais pas sur la version beta de Windows 7.

Si vous avez une idée ? Merci d'avance.

Requête :
Call CrtRecordset(ConnexionADO, RecorsetADOtemp, "delete * from lKey")

Procédure CrtRecordset :
Screen.MousePointer = vbHourglass
Set ado = New ADODB.Recordset
ado.CursorLocation = adUseClient
ado.Open textsql, cnt, adOpenDynamic, adLockOptimistic
Screen.MousePointer = vbDefault
Exit Sub
GestErr:
Screen.MousePointer = vbDefault
If Err.Number <> 0 Then
    MsgBox Err.Description, vbCritical, "F-> : CrtRecordset " & Titre
    Err.Clear
End If

1er Message d'erreur : 
Impossible de supprimer les tables spécifiées
 
2eme Message d'erreur : 
L' opération doit utiliser une requête qui peut être mise à jour



tolt

PCPT · Answer

salut,

tu pourrais nous montrer la déclaration de la sub ?

* pourquoi passer RecorsetADOtemp (un RS??) en paramètre si tu ne l'utilises pas

* tu crées un nouveau RS. nommé "ado"? y'a de quoi s'y perdre!!

* et surtout : je m'étonne que çà fonctionne même sous XP : ta requête n'est pas bonne :
"DELETE FROM lKey;"
(à supposer que LKEY soit bien un nom de table et non une variable)
pas d'étoile !!
http://sql.1keydata.com/fr/sql-delete.php

++
[hr]

cs_tolt · Answer

Voilà ma déclaration.
Global RecorsetADOtemp As ADODB.Recordset

Sinon lKey est bien un fichier en effet.
Je vois pas pourquoi ça ne devrait pas passer ?

Je suis sous VB6 vian une base access 2000.

Merci en tout cas de ta réponse.
Amicalement,


tolt

cs_Ayr · Answer

Salut,

Je ne vois pas pourquoi une requête serai incompatible avec Windows 7. S'il devait y avoir une incompatibilité elle devrait se trouver ailleurs dans le code à mon avis. Ou dans "l'esprit" du code ou de la requête.

Global ? utilise plutôt Public, Global est obsolète.

Sinon lKey est bien un fichier en effet

Un fichier ?(??)

PS: La requête "DELETE * FROM lKey;" fonctionne sous Access et fournit le même résultat que "DELETE FROM lKey;", soit, à supposer que lKey est une Table, celà revient à supprimer tout les enregistrements de la table ! C'est bien ce que tu veux faire ?

cs_tolt · Answer

Oui en effet je veux supprimer tout les enregisrements de la table lKey.

Merci.

tolt

cs_Ayr · Answer

Au Temps pour moi...

De manière générale tu peux, si je ne m'abuse, pour executer une requête action qui ne renvois pas d'enregistrements, la commande suivante :

Call ConnexionADO.Execute("DELETE FROM lKey;", , adExecuteNoRecords) 
ou pas loin

cs_tolt · Answer

J'ai trouvé chez Micosoft ceci qui semble bien marcher.
@++

delete DISTINCTROW lKey.* from lKey

tolt

cs_Jack · Answer

Salut
Comme l'a dit Ayr, une commande Delete ou Insert Into ne se fait pas avec la méthode Open d'un RecordSet, mais avec la méthode Execute de la connexion.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_tolt · Answer

OK Jack Merci mais jusque là jamais eu de soucis avec XP et Vista.
Juste avec Windows 7.Auriez-vous une idée ?
Merci à tous vraiment super se site.

tolt

cs_Jack · Answer

Je dirais qu'il est étonnant que cela fonctionne auparavant ...

cs_tolt · Answer

Juste pour info Jack et vraiment amicalement.
Je viens de comprendre et ça marche parfaitement avec Windows 7 aussi...

Il faut juste lancer le programme en mode Administrateur.
Voilà et encore une fois ça marche impec ma méthode.

Alors une petite question.
Savez-vous comment lancer un programme VB6 en mode Administrateur sans que l'utilisateur soit obligé de faire clique droit etc...?

Bonne soirée à tous.

tolt

PCPT · Answer

page d'accueil

hier Démander automatiquement les droits administrateur pour votre application Par vicosta

à tester

Requête que passe bien sur XP, Vista mais pas sous Windows 7...

11 réponses

Votre réponse

Discussions similaires