Discussion :

[zemeilleurofgreg]

Bonjour à tous,

un étrange phénomème se présente :

je me connecte à une base de données avec ADO, dans cette DB il y a une query que j'execute avec ADO.

Quand j'exécute cette query directement dans ACCESS, j'ai un résultat correct (clause where), mais lorsque je l'exécute via ADO on dirait que la clause where est zappée.

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
DB.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Data\DRP11\DRP11_TEST.accdb;"
    Set cmd.ActiveConnection = DB
    cmd.CommandText = "[Query 01 Help Consolidation per Goods Recipient]"
    cmd.CommandType = adCmdStoredProc
    Set rst = cmd.Execute(, MyDate, cmd.CommandType)

Et le plus étrange, c'est que si j'utilise DAO à la place de ADO ça fonctionne.

Avez-vous une idée de ce qui se passe ?

Merci beaucoup

[zemeilleurofgreg]

Personne na d'idée sur ce qui pourrait bien se passer ?
C'est totalement incompréhensible

J'ai modifié le code comme suit mais rien de changé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & DBSource
    Set cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdTable
    cmd.Parameters.Append cmd.CreateParameter("[Date ? (xx/xx/xxxx)]", adDBDate, adParamInput, 8, MyDate)
    cmd.CommandText = "[Query 01 Help Consolidation per Goods Recipient]"
    Set rst = cmd.Execute()

Quand j'exécute cette même requête dans ACCESS la clause WHERE est bien traitée (c'est à dire qu'elle n'affiche pas les records dont les données d'un certain champ commence par "K"), mais dans VBA (via EXCEL) avec ADODB il ne se préoccupe pas de la clause where.