Vb6 et table mysql vide

liocifer Messages postés 33 Date d'inscription mercredi 15 mars 2006 Statut Membre Dernière intervention 5 mars 2010 - 5 mars 2010 à 12:52
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 5 mars 2010 à 13:16
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

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
5 mars 2010 à 13:16
salut,

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


++
[hr]
0