Discussion :

[benjamindu42]

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 :

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

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 :

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

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

[tsuji]

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 :

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

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

[benjamindu42]

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

Ma solution:

Code :

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

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