liocifer
Messages postés33Date d'inscriptionmercredi 15 mars 2006StatutMembreDernière intervention 5 mars 2010
-
5 mars 2010 à 12:52
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDerniè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.
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