verification dans une base de donnée MySQL

Version imprimable

Bonjours,
J'ai un soucis, je souhaite vérifier dans une base de donnée l’existence d'un numéro de tel. Ma connexion à ma base fonction, je peux bien ecrire des informations, mais je ne parviens pas à mes fin pour cette partie la.
Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 Set mConnection = CreateObject("ADODB.Connection") Set mRecordset = CreateObject("ADODB.Recordset") mConnection.Open "DRIVER={MySql ODBC 5.1 Driver};SERVER=localhost;DATABASE=nom_de_ma_base;UID=MDP;PASSWORD=pwd;" set mRecordset = mConnection.OpenRecordset("SELECT COUNT( * ) FROM personne WHERE nom = '"& destinataire &"'") MsgBox mRecordset.Fields("id")
Je souhaite récupéré le résultat de ma requête ( 0 pour existe pas et 1 pour existe) pour pouvoir faire un traitement par la suite.
Malheureusement je ne parvient pas à récupérer celui-ci.

Mon code de base étant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DRIVER={MySql ODBC 5.1 Driver};SERVER=localhost;DATABASE=nom_de_ma_base;UID=MDP;PASSWORD=pwd;" objRecordset.CursorLocation = adUseClient strSQLQuery = "SELECT COUNT( * ) FROM personne WHERE nom = '"& destinataire &"'" objRecordset.Open strSQLQuery , objConnection, adOpenStatic, adLockOptimistic objRecordset.Close objConnection.Close If ( mysql_num_rows( result ) = 0 ) Then ' Puis j'effectue mon traitement
I need help

Citation:

If ( mysql_num_rows( result ) = 0 ) Then

Il me semble qui ce soit un code possiblement venant de php. Ce n'est donc pas vbs.

Vous pouvez faire ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            objRecordset.Open strSQLQuery , objConnection, adOpenStatic, adLockOptimistic
            'dim ncount
            ncount=0
            if not objRecordset.eof then
                ncount=objRecordset(0).value
            end if
            objRecordset.Close
            objConnection.Close
            if ncount<>0 then
                'faites ce qu'il faut faire quand il existe.
            else
                'faites ce qu'il faut faire quand il n'existe pas.
            end if

Merci tsuji, mais finalement j'avais fais autrement et sa marche.
Mais je vais tout de même essayer ta solution.

Ma solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Set objConnection = CreateObject("ADODB.Connection")
		Set objRecordset = CreateObject("ADODB.Recordset")
 
		objConnection.Open "DRIVER={MySql ODBC 5.1 Driver};SERVER=localhost;DATABASE=nom base;UID=****;PASSWORD=password;"
 
		strSQLQuery = "SELECT COUNT( * ) FROM personne WHERE numerofax='"& destinataire &"'"
		objRecordset.Open strSQLQuery , objConnection
		nbcontact = objRecordset.Fields("COUNT( * )")
		objRecordset.Close
		objConnection.Close
 
	'	MsgBox "count(*) = " & nbcontact
			valeurContact = 0
	'	MsgBox "valeurContact = " & valeurContact
 
		If ( nbcontact = "0" ) Then
			testvariable =  "True"
			'MsgBox testvariable
		Else
			testvariable =  "False"
			'MsgBox "false" & testvariable
		End If
 
		If ( testvariable = "True") Then
                    'faires ce qu'il faut faire quand il existe. 
                else 
                     'faites ce qu'il faut faire quand il n'existe pas
                end if