Discussion :

[Basicnav]

Bonjour,

j'ai une requêtte SQL intégrée dans mon vba qui pointe vers une base Oracle, j'ai un problème de syntaxe avec la date système que je dois tronquer (et oui, oracle met l'heure dans ses date...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
USER = "utilisateur"
MDP = "motdepasse"
DRV_ODBC = "Microsoft ODBC for Oracle"
INSTANCE = "adressebasededonnée"
PL_SQL = "SELECT DISTINCT NUM_ORDRE_TRANSP FROM colis  WHERE TRANSPORTEUR='montransporteur' and dat_creation=trunc(sysdate)"
 
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={" & DRV_ODBC & "};UID=" & USER & ";PWD=" & MDP & ";SERVER=" & INSTANCE & ";", Destination:=ActiveCell)
.Sql = PL_SQL
.HasAutoFormat = False
.Refresh BackgroundQuery:=False
End With
 
End Sub

tout fonctionne bien si ma requette s'arrête à :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT DISTINCT NUM_ORDRE_TRANSP FROM colis  WHERE TRANSPORTEUR='montransporteur'

dès que je mets la date rien ne fonctionne, j'ai des difficulté avec les dates sous SQL
Quelqu'un peux me guider ? Si toutefois je suis dans le bon forum

[Fvandermeulen]

Salut,
Hormis le format exact de ce que Oracle attend, il me semble que la date doit également être entre '
Tu dis aussi, que si tu n'utilise pas la date ça tourne, mais je suis surpris que montransporteur (si c'est bien une variable) retourne ce qui est attendu alors qu'il est entre guillement.

J'écrirais donc, si trunc est la "manip" adéquoite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
PL_SQL = "SELECT DISTINCT NUM_ORDRE_TRANSP FROM colis  WHERE TRANSPORTEUR=' " & montransporteur & " ' and dat_creation=' " & trunc(sysdate) & " ' "
...

A+