Discussion :

[titeZ]

Bnjour je souhaite savoir par un count(*) que j'execute directement dans le cde ( eXCEL)si ma table contient des données ou pas et effectué une action si c le cas et j'ai un pb!
ET J4BTIENS le message d'erreur impossible d'utiliser cette connection pour effectuer cette operation

Quelqu'un a une idée svp ?
Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Repertoire = "F:\EQCuser\- Bureau -\Docs de depart\KJa\"
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
    Repertoire & "FuturesOptions.mdb"
rs.Open "SELECT count(*)AS Nb FROM B05-FUT-ABSENCE-CONTRATS, cnn"
nuloupa = rs("Nb")
If nuloupa <> "0" Then
MsgBox ("Un contrat est absent, merci de le renseigner")
rs.Close
cnn.Close

[cafeine]

Hello,

a priori un problème de concaténation :

Code :

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

rs.Open "SELECT count(0)AS Nb FROM B05-FUT-ABSENCE-CONTRATS, cnn"

au lieu de

Code :

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

rs.Open "SELECT count(0)AS Nb FROM B05-FUT-ABSENCE-CONTRATS", cnn

ensuite c'est quoi ce Count(0) ?

[titeZ]

Merci pour ta réponse
il semble qu'effectivement ce soit a ce niveau là que ça coince, mais le meme message apparait
"Impossible d'utiliser cette connection pour effectuer cette opération elle est fermé ou nn valide dans ce contexte"

c'est un count(*) c une erreur de frappe ms ca ne change pas mon pb

[cafeine]

erreur de frappe ?

Code :

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

"SELECT count(*)AS Nb FROM B05-FUT-ABSENCE-CONTRATS", cnn

ou

Code :

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

"SELECT count(*) AS Nb FROM B05-FUT-ABSENCE-CONTRATS", cnn

L'interpréteur SQL de ADO doit préférer un espace entre As et l'alias du champs