VB + Excel + SQL + Soucis requête avec des dates

Version imprimable

11/03/2009, 15h18
Invité

VB + Excel + SQL + Soucis requête avec des dates
Bonjour,

Je vous explique mon petit soucis. Je me connecte, via VB sous Excel, à une base de données SQL Server.

J'ai une requête que je n'arrive pas à faire tourner (sachant qu'une requête plus simple type select * passe sans soucis).

La requête fonctionne bien sous SQL Excel et sous le SQL Server, mais elle ne semble pas passer sous VBA.

Excel semble ne pas envoyer mes requêtes correctement quand il y a des dates dedans.

Si par exemple je fais ça :

Code:

SELECT aaa FROM matable WHERE aaa >= '2007-01-01' AND bbb = 'valeur'

Ca fonctionne.

Mais si je fais ça :

Code:

SELECT aaa FROM matable WHERE (aaa >= '2007-01-01' AND aaa <= '2007-03-30') AND bbb = 'valeur'

Ou ça :

Code:

SELECT aaa FROM matable WHERE (aaa BETWEEN '2007-01-01' AND '2007-03-30') AND bbb = 'valeur'

Ca ne marche plus. Quand j'utilise plusieurs dates en fait.

Sachant qu'en fait j'ai une variable du genre :
Code:

1 2 Dim Requete As String. Requete = "SELECT blablablabla ..."
Une idée sur la mise en forme à adopter ?

Pour information j'ai l'erreur suivante :

Erreur d'exécution '-2147217913 (80040e07)':
Erreur Automation

Edit : Alors grande découverte dans Excel, si je change une date ça fonctionne, donc j'aurai éventuellement un problème de formatage quelque part ?

Si je mets ça

Code:

SELECT aaa FROM matable WHERE (aaa BETWEEN '2006-01-01' AND '2006-12-10') AND bbb = 'valeur'

Ca ne fonctionne pas, mais si je mets ça :

Code:

SELECT aaa FROM matable WHERE (aaa BETWEEN '2006-01-01' AND '2007-01-01') AND bbb = 'valeur'

Ca fonctionne ! Même si je n'ai aucune valeur au 31/12/2006 et au 01/01/2007 !!

Là je suis COMPLETEMENT perdu :p !

Bonsoir,

Pour les dates, il faut inverser le jour et le mois:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub essaiDate()
    'cocher Microsoft DAO 3.6 dans Outils/Références
    Dim début As Date, fin As Date
    Dim bd As Database
    Dim rs As Recordset
    Set bd = OpenDatabase(ActiveWorkbook.Path & "\access2000.mdb")
    début = #5/21/1970#
    fin = #6/21/1970#
    Sql = "Select * From Client Where dateNaiss>=" & ConvDate(début) & " AND dateNaiss<=" & ConvDate(fin)
    Set rs = bd.OpenRecordset(Sql)
    i = 2
    Do While Not rs.EOF
        Cells(i, 1) = rs!Nom_Client
        Cells(i, 2) = rs!Ville
        Cells(i, 3) = rs!Salaire
        Cells(i, 4) = rs!datenaiss
        rs.MoveNext
        i = i + 1
    Loop
End Sub
 
Function ConvDate(MaDate As Date) As String
  ConvDate = "#" & Month(MaDate) & "/" & Day(MaDate) & "/" & Year(MaDate) & "#"
End Function

12/03/2009, 08h15
Invité

En fait c'était même la date entière qu'il fallait inverser !

Quand je faisais une requête via SQL Excel ça mettait AAAA-MM-JJ mais en fait pour que ça fonctionne sous Excel AVEC DEUX DATES il fallait que je mette JJ/MM/AAAA (comme c'est écrit dans les champs en fait).

Du coup là où c'est bizarre c'est qu'avec une seule date je n'avais pas de soucis de format ... des fois il ne faut pas trop chercher à comprendre :mouarf: