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

M
  • Résolu(e)
Microsoft 365 Formule si est vide
Réponses
9
Affichages
471
Marvin57
M
G
  • Question
Microsoft 365 Comment adapter des variables date SQL dans VBA
Réponses
3
Affichages
2 K
dysorthographie
dysorthographie
Y
  • Question
Boucle pour trouver la valeur minimale
Réponses
3
Affichages
419
sylvanu
sylvanu
Lisette
  • Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
549
Lisette
Lisette
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
1 K
job75
job75
tbft
  • Question
Microsoft 365 Découper du texte (sans VBA)
2
Réponses
20
Affichages
657
tbft
tbft
VBA_dev_Anne_Marie
  • Question
Microsoft 365 Left join sans doublons
Réponses
0
Affichages
648
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
  • Question
Microsoft 365 ADODB Excel
Réponses
1
Affichages
713
dysorthographie
dysorthographie
J
  • Question
Microsoft 365 VBA Userform recherche multiple d'une valeur
Réponses
3
Affichages
489
justine.valck
J
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
260
ma6me
M

Membres actuellement en ligne

11 membres et 129 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
315 093
Messages
2 116 120
Membres
112 666
dernier inscrit
Coco0505