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 ADO

erreur sur ADO

3 réponses
Avatar
JCM
Bonjour

quand je lance la requete suivante, j'ai le message=20
suivant :
BOF ou EOF est =E9gal =E0 true.L'op=E9ration demand=E9e necessite=20
un enregistrement actuel.

Quelle correction je dois faire ?

Public Function UpdateMyFichGS(MAJ As String) As String
'Requete sur le magasin
Set ADOfiche =3D New ADODB.Recordset
With ADOfiche
.ActiveConnection =3D ADOcn
.CursorType =3D adOpenDynamic
.Open "Select * from " & TableSelection & " where=20
enseign=3D'" & EnseigneSelect & " and ville=3D" & VilleSelect=20
& "'"
End With

lblEnseigne.Caption =3D ADOfiche("Enseign")

Merci de vos reponses
cordialement=20
JCM
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
Pascal B.
Salut,

Ton Recordset est vide (ta requête renvoie aucun enregistrement)
Revois ta requête.

Pascal


"JCM" a écrit dans le message de news:959301c3ea6b$42a73340$
Bonjour

quand je lance la requete suivante, j'ai le message
suivant :
BOF ou EOF est égal à true.L'opération demandée necessite
un enregistrement actuel.

Quelle correction je dois faire ?

Public Function UpdateMyFichGS(MAJ As String) As String
'Requete sur le magasin
Set ADOfiche = New ADODB.Recordset
With ADOfiche
.ActiveConnection = ADOcn
.CursorType = adOpenDynamic
.Open "Select * from " & TableSelection & " where
enseign='" & EnseigneSelect & " and ville=" & VilleSelect
& "'"
End With

lblEnseigne.Caption = ADOfiche("Enseign")

Merci de vos reponses
cordialement
JCM
Avatar
Christophe QUEVAL
Bonjour,

A mon avis, vous avez déjà un problème d'apostrophes manquantes. De plus (et
surtout pour les villes), vous devriez utiliser la fonction Replace de VB6
pour doubler les apostrophes dans le cas de villes en possédant.

Vous écrivez :
.Open "Select * from " & TableSelection & " where enseign='" &
EnseigneSelect & " and ville=" & VilleSelect & "'"

J'écrirais :
.Open "SELECT * FROM " & TableSelection & " WHERE enseign = '" &
Replace(EnseigneSelect, "'", "''") & "' AND ville = '" &
Replace(VilleSelect, "'", "''") & "'"

Bon courage.
Christophe


"JCM" a écrit dans le message de
news:959301c3ea6b$42a73340$
Bonjour

quand je lance la requete suivante, j'ai le message
suivant :
BOF ou EOF est égal à true.L'opération demandée necessite
un enregistrement actuel.

Quelle correction je dois faire ?

Public Function UpdateMyFichGS(MAJ As String) As String
'Requete sur le magasin
Set ADOfiche = New ADODB.Recordset
With ADOfiche
.ActiveConnection = ADOcn
.CursorType = adOpenDynamic
.Open "Select * from " & TableSelection & " where
enseign='" & EnseigneSelect & " and ville=" & VilleSelect
& "'"
End With

lblEnseigne.Caption = ADOfiche("Enseign")

Merci de vos reponses
cordialement
JCM
Avatar
JCM
Bonjour

merci pour votre réponse, l'erreur se situait bien à ce
niveau

Cordialement
JCM
-----Message d'origine-----
Bonjour,

A mon avis, vous avez déjà un problème d'apostrophes


manquantes. De plus (et
surtout pour les villes), vous devriez utiliser la


fonction Replace de VB6
pour doubler les apostrophes dans le cas de villes en


possédant.

Vous écrivez :
..Open "Select * from " & TableSelection & " where


enseign='" &
EnseigneSelect & " and ville=" & VilleSelect & "'"

J'écrirais :
..Open "SELECT * FROM " & TableSelection & " WHERE


enseign = '" &
Replace(EnseigneSelect, "'", "''") & "' AND ville = '" &
Replace(VilleSelect, "'", "''") & "'"

Bon courage.
Christophe


"JCM" a écrit dans le


message de
news:959301c3ea6b$42a73340$
Bonjour

quand je lance la requete suivante, j'ai le message
suivant :
BOF ou EOF est égal à true.L'opération demandée necessite
un enregistrement actuel.

Quelle correction je dois faire ?

Public Function UpdateMyFichGS(MAJ As String) As String
'Requete sur le magasin
Set ADOfiche = New ADODB.Recordset
With ADOfiche
.ActiveConnection = ADOcn
.CursorType = adOpenDynamic
.Open "Select * from " & TableSelection & " where
enseign='" & EnseigneSelect & " and ville=" & VilleSelect
& "'"
End With

lblEnseigne.Caption = ADOfiche("Enseign")

Merci de vos reponses
cordialement
JCM


.