select count

[guima1642]

bonjour,

comment recuperer le resultat d'un select count fait dans une macro.
ex : select count(*) from toto where titi = "MOI"
comment récuperer le résultat : 0 ou 1 ou plus et s'en servir dans un if après.

d'avance merci

 

[PascalXLD]

Re : select count

Bonjour

c'est du SQL ou du VBA ?? 😀

sinon il suffit de mettre le resultat dans une variable

 

[guima1642]

Re : select count

bonjour Pascal XLD,
c'est du vb, avec une connexion sur une base oracle.
------------
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command")

myConn.Open = "Provider=MSDAORA.1;Password=toto;User ID=titi;Data Source=test;Persist Security Info=True"

For i = 20 To 2000

If Sheets("DEVIS").Rows(i).Cells(33) = 0 Then Exit For

resultat = "select count(*) from charact_prl where cd_charact = 'INDUS' and cd_param = 'DATE' and cd_prl = " & Sheets("DEVIS").Rows(i).Cells(33) & ""
-------------------------------------------------
c'est le contenu de resultat que je veux mettre sur une feuille par exemple pour continuer ma requete.

si qelqu'un peut m'aider

 

[PascalXLD]

Re : select count

re

dans ce cas là

un simple

sheets("toto").range("A1")=resultat

te mettra le resultat dans la cellule A1 de la feuille toto

si j'ai bien tout compris

 

[guima1642]

Re : select count

merci,
mais quand je fais ça, c'est le texte de ma requete qui est récuperé : select cou...., moi j'aimerai avoir 0 ou 1

C'est pas facile à expliquer.
Merci quand même

 

[Sylvain]

Re : select count

Bonjour au fil,

Une idée un peu moins délicate, moi j'utiliserais un outil du menu données données externes / nouvelle requête.
Du coup la requête serait à un endroit masqué du classeur. Il suffit de choisir comme option de faire le calcul au premier plan. Et à chaque boucle on fait le changement du texte de la requête et .refresh.

Ca devrait marcher en attendant que quelqu'un trouve mieux.

A+

 

[chris]

Re : select count

Bonjour
Essaye :
x=résultat.Fields(1).Value

 

[guima1642]

Re : select count

re le fil,

Quand j'écris sheets("DEVIS").range("A1")=résultat.Fields(1).Value ,
j'ai une erreur objet requis ???

Des idées
Merci d'avance

 

[MichelXld]

Re : select count

bonsoir


Tu peux tester et adapter:

Set myConn = CreateObject("ADODB.Connection")

myConn.Open = "Provider=MSDAORA.1;Password=toto;" & _
    "User ID=titi;Data Source=test;Persist Security Info=True"

Set Rs = CreateObject("ADODB.Recordset")
    
    
With Rs
    .ActiveConnection = myConn
    .Open "select count(*) from charact_prl where " & _
        "cd_charact = 'INDUS' and cd_param = 'DATE' and cd_prl = " & _
        Sheets("DEVIS").Rows(i).Cells(33) & "" _
        , , adOpenStatic, adLockOptimistic, adCmdText
End With
 
 
MsgBox Rs(0)
 
 
Rs.Close
Set Rs = Nothing
myConn.Close
Set myConn = Nothing

Bonne soirée
MichelXld

 

[guima1642]

Re : select count

Bonjour,

merci Michelxld
Je me sens tres nulle, mais je n'y arrive tjrs pas.

comment puis je recuperer le resultat de rs dans une cellule :
sheets("DEVIS").range("W5")

encore merci

 

[BOISGONTIER]

Re : select count

Bonjour,

Exemple avec ACCESS:

'Cocher Outils/Références Microsoft ActiveX Data Object 2.8
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Access2000.mdb"
rs.Open "SELECT count(*) AS Nb FROM client where ville='paris' ", cnn
Sheets("xx").Cells(1, 5) = rs("Nb")
rs.Close
cnn.Close

JB
Formation Excel VBA JB

 

[guima1642]

Re : select count

Ca fonctionne, merci à tous