compter de nouveau les elements d'une base de donnee

Question

bonjour,

je desire compter les elements de ma base de donné j'ai ecrit ces 2 facons et aucune ne marche :

sbConnect.Open "basepromethee", "palm_admin", "palm_admin" Set tblscout = sbConnect.Execute("SELECT * from SYNCHRO_SCOUT")
tblscout.MoveLast
test = tblscout.RecordCount

test vaut -1

sbConnect.Open "basepromethee", "palm_admin", "palm_admin"
tblscout.Open "SELECT * from SYNCHRO_SCOUT", sbConnect
tblscout.MoveLast
test = tblscout.RecordCount

test vaut aussi -1

merci d'avance pour la réponse

Muad-dib · Answer

dim l_recordset as ADODB.RECORDSET

set l_recordset = sbConnect.Execute("SELECT * from SYNCHRO_SCOUT")
while not l_recordset.EOF
    unCompteur = unCompteur + 1
    l_recordset.moveNext
wend

unCompteur va te sortir le nombre d'éléments de ta base
Démerde toi avec ca

 :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)   :sad)

sadus · Answer

merci Muad-dib
je viens de trouver la solution:

Dim sbConnect As New ADODB.Connection
Dim tblscout As New ADODB.Recordset
Dim test2 As Long

sbConnect.Open "basepromethee", "palm_admin", "palm_admin"  Set tblscout = sbConnect.Execute("SELECT count(*) as test2 from SYNCHRO_SCOUT")
msgbox tblscout!test2
tblscout.Close       

la reponse se trouve dans tblscout!test2

Compter de nouveau les elements d'une base de donnee

2 réponses

Discussions similaires