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 probleme sql

probleme sql

1 réponse
Avatar
Marc Paquin
Bonjour
J'ai un probleme sql
Private Sub Command2_Click()
Dim sql As String
sql = "SELECT valeur.Close"
sql = sql & " FROM valeur;"

valeurrecord sql
Doevents
MsgBox compte.RecordCount ' Retourne 1
End Sub

Sub valeurrecord(sql As String)
Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\valeur.mdb")
Set compte = db.OpenRecordset(sql)
MsgBox compte.RecordCount 'Retourne 53
End Sub

Pourquoi il y a une différence entre les valeurs retournées par le programme

Merci d'avance

Marc

Ps. J'utilise DAO 3,6
Signaler un problème avec ce contenu

1 réponse

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
JF P
Bonjour Marc,
Meme si je ne comprends pas bien pourquoi il y a cette
différence (sans doute le DoEvents...), tu dois toujours
faire un MoveLast sur ton recordset avant de demander un
RecordCount. Si tu le fais, tu obtiendras sans doute les
memes valeurs
JF P

-----Message d'origine-----
Bonjour
J'ai un probleme sql
Private Sub Command2_Click()
Dim sql As String
sql = "SELECT valeur.Close"
sql = sql & " FROM valeur;"

valeurrecord sql
Doevents
MsgBox compte.RecordCount ' Retourne 1
End Sub

Sub valeurrecord(sql As String)
Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path


& "valeur.mdb")
Set compte = db.OpenRecordset(sql)
MsgBox compte.RecordCount 'Retourne 53
End Sub

Pourquoi il y a une différence entre les valeurs


retournées par le programme

Merci d'avance

Marc

Ps. J'utilise DAO 3,6


.