Discussion :

[MarilynMaxich]

Bonjour à tous.

Je suis actuellement un train de développer une sorte de "PHPMyAdmin" pour mon entreprise.

Le but de ce programme est de récupérer la liste des tables (ça, aucun problème) et quand on sélectionne une table, afficher la liste des champs et un certain nombre d'informations :
-Nom du champ
-Type et taille du champ
-Clé primaire ?
-Valeur par défaut
-Null autorisé ?

Je récupère la liste des champs grace à "DESCRIBE" :

Code :

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

1
2
3
Set RsStr = New ADODB.Recordset
Cd_SQL = "DESCRIBE " & MSFlexGrid2.TextArray(Fgi_tables(Index_tables, 1)) & ";"
RsStr.Open Cd_SQL, ConnexionServ

Je parcours ensuite mon RecordSet et affiche les informations dans un MSFlexGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Not RsStr.EOF Then
    RsStr.MoveFirst
    Compteur = 1
    Do While Not RsStr.EOF
        If Compteur + 1 >= MSFlexGrid3.Rows Then MSFlexGrid3.AddItem ""
        MSFlexGrid3.TextArray(Fgi_champs(Compteur, 1)) = Majuscule(RsStr(0)) 'Nom du champ
        MSFlexGrid3.TextArray(Fgi_champs(Compteur, 2)) = Majuscule(RsStr(1)) 'Type/Taille du champ
        MSFlexGrid3.TextArray(Fgi_champs(Compteur, 3)) = Majuscule(RsStr(3)) 'Primary Key
        If IsNull(RsStr(4)) = False Then 'Valeur par défaut
                MSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = RsStr(4)
        End If

Seulement voilà, quand le champ est un TinyInt(1) et que RsStr(4) vaut Null, la fonction IsNull(RsStr(4)) renvoie "True" quand même... et je ne sais pas comment contourner le problème (à part sauter cette partie quand le champ est un Tinyint(1) mais c'est pas très propre quand même..)

En vous remerciant par avance pour vos réponses ^^

[ProgElecT]

Salut

IsNull(RsStr.Fields(4).Value) produit il le même problème ?

[MarilynMaxich]

Salut

IsNull(RsStr.Fields(4).Value) produit il le même problème ?

Oui, j'ai toujours la même erreur à la ligne :
MSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = RsStr(4)

Erreur d'execution 94
Utilisation non autorisé de "Null"

[ProgElecT]

Ok
la condition If Not IsNull(RsStr.Fields(4).Value) Then ne fonctionne pas ? et donc la ligneMSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = RsStr(4) est jouée ?

A essayer

Code :

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

1
2
3
4
5
If VarType(MeVar) = vbNull Then
    MsgBox "ma variable = null"
    Else
    MsgBox "ma variable n'est pas null"
End If

[MarilynMaxich]

Ok
la condition If Not IsNull(RsStr.Fields(4).Value) Then ne fonctionne pas ? et donc la ligneMSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = RsStr(4) est jouée ?

En effet, il passe dans la boucle If quand même et lance la ligne MSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = RsStr(4)

Ok
A essayer

Code :

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

1
2
3
4
5
6
 
If VarType(MeVar) = vbNull Then
    MsgBox "ma variable = null"
    Else
    MsgBox "ma variable n'est pas null"
End If

J'ai essayé de faire :

Code :

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

1
2
3
4
5
6
 
If VarType(RsStr(4)) = vbNull Then
     MSFlexGrid3.TextArray(Fgi_champs(Compteur, 4)) = "<Aucune>"
Else
     MsgBox (VarType(RsStr(4)))
End If

Je n'ai plus de problème avec les Tinyint(1) mais maintenant, j'ai un problème avec les champs qui ont des valeurs par défaut.. il me bloque sur toutes !
Quand un champ à une valeur par défaut, il me lance bien la ligne MsgBox (VarType(RsStr(4))) mais dans cette ligne VarType(RsStr(4)) renvoit 1, alors qu'il ne devrait pas puisque dans le If, VarType(RsStr(4)) est different de vbNull, et donc de 1..

C'est à n'y rien comprendre, comme si RsStr(4) était remis à Null après utilisation >_<

Merci quand même pour la début d'aide qui m'a enlevé une épine du pied !