1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Pb date requete sql access [Résolu]

Signaler
Messages postés
4
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
2 janvier 2008
 -
Messages postés
4
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
2 janvier 2008
 -
Bonjour,

Je rencontre l'erreur suivante sur une macro vba 
"run time error '3065' cannot execute a select query"

Le code est le suivant :

Sub test()
Static sql2 As String

Dim db As Database
Dim isin_oc As String


isin_oc = "XS0329434970"
'OUVERTURE DE LA BASE
Set db = OpenDatabase("C:\Documents and Settings\kelhah\Desktop\TEST.mdb")


sql2 = "select distinct vi_ask from histovol where dat=(date()-1) and ISIN='" & isin_oc & "'"

db.Execute sql2db.Close


End Sub

La structure de la table est la suivante :

Table : Histovol
Champs:
ISIN de type Text
VI_ASK de type Text
DAT de type Date\Time

Merci pour votre aide

3 réponses

Réponse 1 / 3
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 68
??

une requete SQL qui fais un SELECT ne se lance pas avec la méthode Execute, qui est reservée aux UPDATE, INSERT, DELETE ou autres DROP...

tentes plutot un db.OpenRecordSet
Réponse 2 / 3
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 41
salut,

remplacer
sql2 = "select distinct vi_ask from histovol where dat=(date()-1) and ISIN='" & isin_oc & "'"
db.Execute sql2db.Close

par
sql2 = "select distinct vi_ask from histovol where dat=#" & date()-1 & "# and ISIN='" & isin_oc & "'"
db.Execute sql2
'ICI récupérer le contenu......
db.Close

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Réponse 3 / 3
Messages postés
4
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
2 janvier 2008
ok ca marche, merci bcp pour votre aide et bonne année
Répondre Posez votre question