Microsoft 365 VBA ADODB : fonction datepart()

VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

Voici mon code pour trouver une date sur les 15 dernières années :
VB: 
datepart(year,ev.dt_effet)>=(datepart(year,Getdate())-15)

Je reçois l'erreur suivante :
1631387622285.png


Pourriez-vous m'aider s'il vous plaît ?

Merci beaucoup !
 
Trier par date Trier par votes
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
dysorthographie à dit:
Bonsoir,
VB: 
extract(year from ev.dt_effet)>= extract(year from current_timestamp) -15
Cliquez pour agrandir...
Merci, malheureusement je reçois toujours une erreur :
1631392203951.png

Voici mon code :
VB: 
 Dim RECSET As New ADODB.Recordset
    RECSET.Open "select count(distinct(ev.d_effet)) as nombre_versement_15ans from db_evenement ev, dp_classe_evt classe" & _
                " where ev.no_police = '" & NO_POLICE & "'  and classe.b_ea =1  and classe.b_rachat = 1  and ev.is_classe_evt=classe.is_classe_evt and extract(year from ev.dt_effet)>=extract(year from current_timestamp)-15", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
essai comme ça!
VB: 
 RECSET.Open "select count(distinct(ev.d_effet)) as nombre_versement_15ans from db_evenement ev, dp_classe_evt classe" & _
                " where ev.no_police = '" & NO_POLICE & "'  and classe.b_ea =1  and classe.b_rachat = 1  and ev.is_classe_evt=classe.is_classe_evt and extract(year from db_evenement.dt_effet)>=extract(year from current_timestamp)-15", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
 
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
dysorthographie à dit:
essai comme ça!
VB: 
 RECSET.Open "select count(distinct(ev.d_effet)) as nombre_versement_15ans from db_evenement ev, dp_classe_evt classe" & _
                " where ev.no_police = '" & NO_POLICE & "'  and classe.b_ea =1  and classe.b_rachat = 1  and ev.is_classe_evt=classe.is_classe_evt and extract(year from db_evenement.dt_effet)>=extract(year from current_timestamp)-15", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
Cliquez pour agrandir...
Merci, ça marche !!
Je me demande pourquoi la fonction Datepart ne marche pas en sql adodb ?
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
Ce n'est pas un problème SQL ADODB mais un problème Oracle SQL !

Notes que tu utilises SAS qui peut travailler avec SQL SERVUER, MYSQL, ORACLE etc.
SAS gère sa propre syntaxe SQL alors qu'ADODB gère l'a syntaxe SQL lié à la connexion donc Oracle !

Dans tous ce que j'ai trouvé sur internet concernant DatePart ça me ramène toujours à Extract!

J'ai même trouvé un site qui parle d'équivalence entre SQL serveur DatePart et Oracle Extract!

De là dire que DatePart n'existe pas dans Oracle ???!!!

Pour ce qui concerne ev.d_effet invalid identifier il semblerait qu'Oracle gère mal les alias !
 
Dernière édition:
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
dysorthographie à dit:
Ce n'est pas un problème SQL ADODB mais un problème Oracle SQL !

Notes que tu utilises SAS qui peut travailler avec SQL SERVUER, MYSQL, ORACLE etc.
SAS gère sa propre syntaxe SQL alors qu'ADODB gère l'a syntaxe SQL lié à la connexion donc Oracle !

Dans tous ce que j'ai trouvé sur internet concernant DatePart ça me ramène toujours à Extract!

J'ai même trouvé un site qui parle d'équivalence entre SQL serveur DatePart et Oracle Extract!

De là dire que DatePart n'existe pas dans Oracle ???!!!

Pour ce qui concerne ev.d_effet invalid identifier il semblerait qu'Oracle gère mal les alias !
Cliquez pour agrandir...
Merci beaucoup !
Où je pourrais apprendre la syntaxe SQL lié à la connexion donc Oracle, s’il vous plaît ? Je confonds tout pour l’instant )
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
Quand j'étais encore jeune et beau je faisais du SQL Oracle et j'avais accès à la Bible de 150 000 pages ! Mais là Google m'a été d'une aide précieuse en comblant les trous de ma mémoire défaillante !

oracle.developpez.com

Les meilleurs cours et tutoriels pour apprendre Oracle

Les meilleurs cours et tutoriels pour apprendre Oracle
oracle.developpez.com oracle.developpez.com
 
Dernière édition:
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
dysorthographie à dit:
Quand j'étais encore jeune et beau je faisais du SQL Oracle et j'avais accès à la Bible de 150 000 pages ! Mais là Google m'a été d'une aide précieuse en comblant les trous de ma mémoire défaillante !

oracle.developpez.com

Les meilleurs cours et tutoriels pour apprendre Oracle

Les meilleurs cours et tutoriels pour apprendre Oracle
oracle.developpez.com oracle.developpez.com
Cliquez pour agrandir...
Merci beaucoup ! Si j'ai bien compris, VBA ADODB Recordset demande la syntaxe SQL Oracle et le SQL de SAS c'est pas la même chose.
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
MarieParis à dit:
Merci beaucoup ! Si j'ai bien compris, VBA ADODB Recordset demande la syntaxe SQL Oracle et le SQL de SAS c'est pas la même chose.
Cliquez pour agrandir...
ADODB est un composant permettant de ce connecter à une base de données;
chaque fournisseur de base de données fournis ses propre connecteur ODBC pour permettre à ADODB d'établir une connexion et manipuler les données;
ce sont les driver ODBC fourni par SQL serveur, MySQL Oracle, Access etc qui définissent la syntaxe SQL approprié!

SAS met à ses utilisateur un requêteur, mais ce sont les utilisateurs qui choisissent le type de base de données choisir SQL serveur, MySQL Oracle

donc SAS à mis au point sa propre syntaxe SQL en fonction de ce qui ce pratique le plus généralement!

voici un panel des connexion ADODB possible!
VB: 
Select Case TYPEBASE
    Case Xls
            GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base & ";Extended Properties=""Excel 12.0;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";"""
    Case ACCESS97
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & fichier
    Case ACCESS2000
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fichier & ";Persist Security Info=False"
    Case ACCESS2012
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";"
    Case MySQL
    GenereCSTRING = " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & Base & ";Password=" & PassWord
    Case ODBC
        GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    Case ORACLE
        GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    Case SQLSERVER2005
        GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
    Case SQLServer2008R2
        GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"
    Case SQLite
        GenereCSTRING = "Provider=OleSQLite.SQLiteSource.3; Data Source=" & fichier
        GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & fichier & ";StepAPI=;Timeout="
    Case SQLite3
        GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
    Case CSV
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";FMT=Delimited;"""
    Case Else
        GenereCSTRING = "PAS ASSEZ DE PARAMETRES RENSEIGNES !!!"
End Select
 
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
dysorthographie à dit:
ADODB est un composant permettant de ce connecter à une base de données;
chaque fournisseur de base de données fournis ses propre connecteur ODBC pour permettre à ADODB d'établir une connexion et manipuler les données;
ce sont les driver ODBC fourni par SQL serveur, MySQL Oracle, Access etc qui définissent la syntaxe SQL approprié!

SAS met à ses utilisateur un requêteur, mais ce sont les utilisateurs qui choisissent le type de base de données choisir SQL serveur, MySQL Oracle

donc SAS à mis au point sa propre syntaxe SQL en fonction de ce qui ce pratique le plus généralement!

voici un panel des connexion ADODB possible!
VB: 
Select Case TYPEBASE
    Case Xls
            GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base & ";Extended Properties=""Excel 12.0;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";"""
    Case ACCESS97
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & fichier
    Case ACCESS2000
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fichier & ";Persist Security Info=False"
    Case ACCESS2012
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";"
    Case MySQL
    GenereCSTRING = " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & Base & ";Password=" & PassWord
    Case ODBC
        GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    Case ORACLE
        GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    Case SQLSERVER2005
        GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
    Case SQLServer2008R2
        GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"
    Case SQLite
        GenereCSTRING = "Provider=OleSQLite.SQLiteSource.3; Data Source=" & fichier
        GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & fichier & ";StepAPI=;Timeout="
    Case SQLite3
        GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
    Case CSV
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";FMT=Delimited;"""
    Case Else
        GenereCSTRING = "PAS ASSEZ DE PARAMETRES RENSEIGNES !!!"
End Select
Cliquez pour agrandir...
Merci beaucoup pour votre réponse !
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
Microsoft 365 Comment adapter des variables date SQL dans VBA
Réponses
3
Affichages
587
dysorthographie
dysorthographie
VBA_dev_Anne_Marie
  • Question
Microsoft 365 Left join sans doublons
Réponses
0
Affichages
561
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
  • Question
Microsoft 365 ADODB Excel
Réponses
1
Affichages
622
dysorthographie
dysorthographie
J
  • Question
Microsoft 365 VBA Userform recherche multiple d'une valeur
Réponses
3
Affichages
368
justine.valck
J
VBA_dev_Anne_Marie
  • Résolu(e)
XL 2019 SQL ADODB avec plusieurs lignes en input
2
Réponses
17
Affichages
1 K
fanch55
fanch55
VBA_dev_Anne_Marie
  • Question
Microsoft 365 ADODB VBA sql : First en Last
Réponses
2
Affichages
592
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
P
  • Résolu(e)
Microsoft 365 Espace pile insuffisant
Réponses
3
Affichages
197
pat66
P
L
  • Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
153
l.et.lilou
L
VBA_dev_Anne_Marie
  • Question
Microsoft 365 First and Last en ADODB VBA
3 4 5
Réponses
68
Affichages
5 K
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
S
  • Question
Microsoft 365 Calendrier dynamique avec sauvegarde
2
Réponses
29
Affichages
867
samsam2212
S

Membres actuellement en ligne

16 membres et 170 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 145
Messages
2 085 759
Membres
102 965
dernier inscrit
Mael44