Discussion :

[fikou]

Bonjour,

J'aimerai connaitre le nombres de champs null d'un enregistreent/ligne d'une table Acess.

J'ouvre ma table comme ceci :

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
29
30
sSQL = "SELECT * FROM " & tabConcours(NomTable) & " ORDER BY I_Total DESC, I_Passe6 DESC, I_Passe5 DESC, I_Passe4 DESC, " & _
                       "I_Passe3 DESC, I_Passe2 DESC, I_Passe1 DESC, I_Nom;"
        OuvreBaseClassement(sSQL, "Cl25m.mdb", tabConcours(NomTable))
 
 
Public Sub OuvreBaseClassement(ByVal sSQL As String, ByVal sNomBase As String, ByVal sNomTable As String)
        ''Ouverture base
        'Initialisation de la chaîne de paramètres pour la connexion
        sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                              "Data Source = " & Application.StartupPath & "\" & sNomBase & ";"
        ''Connection base
        Classement_Connection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        Classement_Connection.ConnectionString = sConnect
        ''Ouvrir la connection
        Classement_Connection.Open()
        ''Instancier un objet commande
        Classement_Command = New OleDbCommand(sSQL)
        ''Instancier un objet Adapter
        Classement_DataAdapter = New OleDbDataAdapter(Classement_Command)
        ''init objet command
        Classement_Command.Connection = Classement_Connection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        Classement_DataAdapter.Fill(Classement_DataSet, CStr(sNomTable))
        'Mettre dans un Objet DataTable une table du DataSet
        Classement_DataTable = Classement_DataSet.Tables(CStr(sNomTable))
        Classement_Connection.Close()
        ''Premier enregistrement
        iNumLigne = 0
    End Sub

Merci d'avance
FikoU

[Elwe31]

Code :

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

1
2
3
4
5
 
For Each r As DataRow In Classement_DataSet.Tables(CStr(sNomTable)).rows
   tu le fais pour tous les champs du row...
   if r.item(0) is DBNull.Value then nbnull=nbnull+1
Next

[fikou]

Merci Elwe31,

Je vais tester, je pensai que l'ont pouvai le faire avec une requete.

FikoU

[Elwe31]

Tu peux aussi le faire avec une requete....
Je crois que c'est "est Null" dans access....

[fikou]

Re,

Je n'arrive pas à déclarer l'objet Datarow

Cela plante sur cette ligne :

Code :

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

For Each r As DataRow In Classement_DataSet.Tables(CStr(sNomTable)).rows

J'ai l'erreur suivante :

La référence d'objet n'est pas définie à une instance d'un objet

FikoU