Vb6 et table mysql vide

Signaler
Messages postés
33
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
5 mars 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,


J' aimerais savoir comment verifier si une table mysql est vide en VB6 : je débute en VB6.

Table mysql qui ressemble à celle-ci

NUM_DS NUM_DT DEBUT_ABS FIN_ABS LIBELLE_ABS CREATION_ABS MODIFICATION_ABS

l'extrait du code de la procédure

Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim ChampVide As Boolean
'Connexion à la base de données
cnx.CursorLocation = adUseServer
cnx.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & servdb & ";DATABASE=" & nomdb & ";USER=" & logindb & ";PASSWORD=" & pwddb & ";OPTION=" & optdb & ""
If cnx.State = adStateOpen Then
'je voudrais vérifier si le champ CREATION_ABS (de type Date) de la table est vide et la passer à "True" si c'est le cas
rst.Open "SELECT CREATION_ABS FROM absence WHERE CREATION_ABS Is NULL", cnx 
If IsNull(rst("CREATION_ABS")) = True Then ' ne semble pas fonctionner me ramène toujours "False"
     ChampVide = True
Else
     ChampVide = False        
End If
End If
Set rst = Nothing


En éspérant avoir été assez clair dans ma demande, vos suggestions seront les bienvenues car là je bloque total même après de multiples tests

Merci d'avance pour vos réponses.

Bonne fin de journée.

Cordialement.

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

rst.Open "SELECT COUNT(`NUM_DS`) FROM `absence` WHERE 1=1;", cnx, adOpenDynamic, adLockOptimistic, -1 
ChampVide (rst.Fields(0).Value 0)


++
[hr]