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 Requette sous win98 ou xp

Requette sous win98 ou xp

3 réponses
Avatar
Fredo_du_69
Bonjour,
j'ai fait un programme pour extraires des infos d'une base sur vb6.
je travaillais avec un PC sous winXp.
en essayant d'executer ce prog sur un autre équipé de Win98, pas moyen.
il bloque sur cette ligne avec erreur 13.

Sql = "Select * from Eleves where CodeEleve='" & Code & "'"
Set RsClasse = AdoConnexion.Execute(Sql)

A quoi peut être du le problème ?
doit on ecrire d'une manière differente la requette ?

merci.
Signaler un problème avec ce contenu

3 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
Axel Guerrier [MS]
Bonjour,

A mon avis, tu utilises DAO et ADO dans le même projet.

quand tu instancies ton objet Recordset, spécifie bien :

Dim myRecordset as New ADODB.Recordset


168335 INFO: Using ActiveX Data Objects (ADO) via Visual Basic
http://support.microsoft.com/?id8335

--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"Fredo_du_69" wrote in message
news:4BqRc.14934$
Bonjour,
j'ai fait un programme pour extraires des infos d'une base sur vb6.
je travaillais avec un PC sous winXp.
en essayant d'executer ce prog sur un autre équipé de Win98, pas moyen.
il bloque sur cette ligne avec erreur 13.

Sql = "Select * from Eleves where CodeEleve='" & Code & "'"
Set RsClasse = AdoConnexion.Execute(Sql)

A quoi peut être du le problème ?
doit on ecrire d'une manière differente la requette ?

merci.




Avatar
Fredo_du_69
je l'ai bien déclaré ainsi :
Dim RsClasse As New ADODB.Recordset.
mais mon application marche sans problème sur win xp.
elle deconne en win 98.
et je n'utilise pas de DAO.
merci de ta collabration.
Fred.

"Axel Guerrier [MS]" a écrit dans le message de
news:
Bonjour,

A mon avis, tu utilises DAO et ADO dans le même projet.

quand tu instancies ton objet Recordset, spécifie bien :

Dim myRecordset as New ADODB.Recordset


168335 INFO: Using ActiveX Data Objects (ADO) via Visual Basic
http://support.microsoft.com/?id8335

--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"Fredo_du_69" wrote in message
news:4BqRc.14934$
> Bonjour,
> j'ai fait un programme pour extraires des infos d'une base sur vb6.
> je travaillais avec un PC sous winXp.
> en essayant d'executer ce prog sur un autre équipé de Win98, pas moyen.
> il bloque sur cette ligne avec erreur 13.
>
> Sql = "Select * from Eleves where CodeEleve='" & Code & "'"
> Set RsClasse = AdoConnexion.Execute(Sql)
>
> A quoi peut être du le problème ?
> doit on ecrire d'une manière differente la requette ?
>
> merci.
>
>




Avatar
lolo
Coucou,
si cela ne marche essaye de faire comme ça :

Dim RsClasse As New ADODB.Recordset


Sql = "Select * from Eleves where CodeEleve='" & Code & "'"
RsClasse.open Sql ,AdoConnexion, ,adOpenStatic, adLockOptimistic

do until RsClasse.eof

loop.


"Fredo_du_69" a écrit dans le message de
news:4BqRc.14934$
Bonjour,
j'ai fait un programme pour extraires des infos d'une base sur vb6.
je travaillais avec un PC sous winXp.
en essayant d'executer ce prog sur un autre équipé de Win98, pas moyen.
il bloque sur cette ligne avec erreur 13.

Sql = "Select * from Eleves where CodeEleve='" & Code & "'"
Set RsClasse = AdoConnexion.Execute(Sql)

A quoi peut être du le problème ?
doit on ecrire d'une manière differente la requette ?

merci.