sql en vba j'arrive pas

[Alex]

Bonjour,

Aprés de nombreuse tentative je m'avoue vaincu
qqn pourrait me dire d'ou viens le pb svp

voici mon code qui est une reprise d'un post que l'on ma conseillé

Sub controleValeurTable()
Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim Fichier As String, rSQL As String


Fichier = ThisWorkbook.Path & '\\EquiGest.mdb'

'termes à controler dans la base

Cible1 = '11/08/2005' 'Range('B' & i).Value
Cible2 = 'conrad' 'Range('D' & i).Value

Set Conn = New ADODB.Connection
Conn.Open 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' & _
Fichier & ';'

rSQL = 'SELECT count(*) FROM Prévisions_tri WHERE date_timbre=' & Cible1 & ' AND nom_op='' & Cible2 & ' ''
MsgBox (rSQL)

Set rsT = New ADODB.Recordset

With rsT
.ActiveConnection = Conn
.Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
End With


'If rsT.RecordCount = 0 Then
If rsT.EOF Then
MsgBox 'Le numéro ' & Cible1 & Cible2 & ' n'existe pas dans la table . '
Else
MsgBox 'Le numéro ' & Cible1 & Cible2 & ' existe la table . '
End If

rsT.Close
Conn.Close
End Sub


Il n'y a pas de différence si les cible sont ou pas dans la bdd

Merci de m'aider....

 

[michel_m]

Re,

Une règle sur ce forum est de ne pas changer de fil pour la m^me question ! ....

La réponse probable à ton souci se trouve dans le fil que je t'avais conseillé de regarder.

A savoir que ta variable Excel cible 1 est une date et possède une syntaxe particulière; comme au départ, tu ne l'avais pas précisé il a été considéré que cible 1 était une valeur numérique.

Voici ce qu'écrit MichelXLD dans ce fameux fil:
...
pour une date ( il faut un dièse '#' de chaque coté de la donnée recherchée ):
de plus chez moi cela fonctionne uniquement au format mois/jour/annee

rSQL = 'SELECT * FROM [Feuil1$] WHERE [laDate] =#' & Format(Range('F3'), 'mm/dd/yyyy') & '#'

....

Un autre principe du forum: on aide mais on n'assure pas la livraison PAC (Prêt A Cuire )


Bonne soirée et bon courage

Michel_M