[ORACLE] Intérogation SQL via VBA/ADODB

Résolu/Fermé

Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007 - 22 mai 2007 à 18:05
Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007 - 25 mai 2007 à 14:11

Bonjour,

Voici mon problème:

Nous avons une BD Oracle sur notre réseau et j'y accède via Excel/VBA ADODB. Ma requête SQL recherche des données selon une certaine période de temps. Sur mon PC je formate les dates selon "d/m/yyyy" et cela fonctionne très bien.

Malheureusement, sur le site, il y a plusieurs version de Windows (2000, XP), d'Excel (2000, 2003) et en anglais et en français.

Les seuls points communs sont les paramètres régionaux (Anglais - États-Unis) et tous les formats de date.

Présentement, dépendamment du PC, j'utilise "d/m/yyyy" ou "yyyy/m/d".

Est-ce qu'il existe une façon d'utiliser un format de date général? Ou bien encore une manière d'identifier, par programmation, les version de Windows et d'Excel pour que je puisse utiliser le bon format?

Merci d'avance de votre aide...

A voir également:

[ORACLE] Intérogation SQL via VBA/ADODB
Partager des photos via un lien - Guide
Via michelin carte - Télécharger - Transports & Cartes
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Sql lister les tables ✓ - Forum Programmation
Find vba - Astuces et Solutions

3 réponses

Réponse 1 / 3

pretender
22 mai 2007 à 18:33

Une autre solution serait de mettre des colonnes pour chaque nombres : année , jour et mois ainsi tu n'aurais pas à te soucier de la version ou de la langue des programmes

Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007
22 mai 2007 à 19:26

Merci Pretender...

Mais je ne suis pas sûr de comprendre...

Voici ma requête SQL :

"SELECT * FROM MaTable WHERE DateFacture >= ' " & Format(strDateDébut, "yyyy/mm/dd") & " ' AND DateFacture <= ' " & Format(strDateFin, "yyyy/mm/dd") & " ' "

Ce que tu proposes serait :

"SELECT * FROM MaTable WHERE Substr(DateFacture,7,2) >= 'année' AND Substr(DateFacture,4,2) >= 'mois' AND ...etc

????

Si cela est le cas, j'aurais un problème avec le mois et le jour car >= Mars va éliminer janvier et février si mon intérogation porte sur plus de 10 mois...

SVP m'expliquer ton idée...

J'espère beaucoup que cela va marcher...

Réponse 2 / 3

Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007
22 mai 2007 à 18:59

Réponse 3 / 3

pretender
22 mai 2007 à 23:00

Ce que je proposais c'etait d'abandonner le "date" et de faire trois champs "int". En requete ca ce traduirait par

CREATE TABLE Facture ( .......,

.......,
jour int NOT NULL,
mois int NOT NULL,
annee int NOT NULL);

C'est sur que c'est plus pratique avec 'date' mais si tu as des problemes de compatibilité, c'est comme ca que je ferais en gerant apres les champs un à un.

Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007
23 mai 2007 à 12:13

Merci Pretender...

J'essai et je t'en reparle...

Ti-Gars Messages postés 7 Date d'inscription lundi 21 mai 2007 Statut Membre Dernière intervention 8 juin 2007
25 mai 2007 à 14:11

Finalement, après avoir essayé le truc de Pretender, j'en suis venu à la conclusion qu'il serait plus facile de forcer le format de date de Oracle pour s'adapter à celui "forcer" de VBA. Ce qui donne :

"SELECT * FROM MaTable WHERE To_Char(DateFacture,'yyy/mm/dd') >= ' " & Format(strDateDébut, "yyyy/mm/dd") & " ' AND To_Char(DateFacture,'yyy/mm/dd') <= ' " & Format(strDateFin, "yyyy/mm/dd") & " ' "

Encore une fois merci Pretender...

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

[PL/SQL] le rôle exact du (+) dans une clause

Bonjour,
quelqu'un pourrait m'expliquer précisémment le role du "(+)" dans la requete suivante svp ?

select * from table1 t, table2 t2 where
t.t1 = 'toto' AND
t.t2 > 3 AND
t.t4(+) = t2.t1

Merci !

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

message "impossible d'envoyer le message via free erreur 0"

Bonjour, J'ai un Samsung A52S J'en suis très contente sauf que depuis qq temps j'ai au moins minimum une fois par jour un pb pour envoyer les sms et j'ai ce message qui revient sans cesse meme si j'appuie sur "renvoyer" le message suivant s'affiche : impossible d'envoyer le message via free erreur 0 À ce moment là j'ai bien la connexion en 5 ou 4 G et je suis donc à chaque fois obligée de redémarrer mon téléphone pour que ça refonctionne mais c'est énervant et stressant aussi de ne pas être sûre de pouvoir envoyer un sms rapidement ! Y-a-t-il une explication et une solution pour que ce pb ne se reproduise pas car aujourd’hui c'est déjà la 2e fois qu'il me le fait ! Merci

Equivalent du DATEDIFF de SqlServer en Oracle

Bonjour,
quelqu'un aurait-il une fonction en Oracle qui serait l'équivalent du DATEDIFF de SqlServer ?
Sauf erreur de ma part cela n'existe pas en Oracle.
J'aimerai connaitre la différence qu'il peut exister entre deux dates, soit en mois ou jours ou heures, ou en minutes, ...

Merci d'avance

Configuration: Windows XP / Firefox 3.5.5