Discussion :

[joe12260]

Bonjour,

J'ai un problème pour alimenter une combobox à partir d'une requete.

Voici le programme :

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
Dim strConn As String
        strConn = "Driver={Client Access ODBC Driver (32-bit)};System=192.168.109.3;Uid=BADGE;Pwd=GTIVDR"
        Dim strSql As String
        strSql = "SELECT CDANC, CDMOIC, CDJOUC, CDANSE, CDNOSE, CDNBJ, CDTP08, CDANCP, CDANEX FROM BADGEV5F.PCALND WHERE CDANC = " & Now.Year & " AND CDMOIC = " & Now.Month & " AND CDJOUC = " & Now.Day & ""
        Dim conn As System.Data.Odbc.OdbcConnection
        conn = New System.Data.Odbc.OdbcConnection(strConn)
        conn.Open()
        Dim CmdS As System.Data.Odbc.OdbcCommand
        CmdS = New Odbc.OdbcCommand(strSql)
        Dim da As Odbc.OdbcDataAdapter
        da = New Odbc.OdbcDataAdapter(CmdS)
        CmdS.Connection() = conn
        Dim ds As DataSet
        da.Fill(ds, "BADGEV5F.PCALND")
        Dim dt As DataTable
        dt = ds.Tables("BADGEV5F.PCALND")
        Form3.CbAnnee.DisplayMember = "CDANC"
        Form3.CbAnnee.DataSource = ds.Tables("BADGEV5F.PCALND")
        Form3.CbAnnee.Refresh()
        Form3.Show()

Quand je lance de débug voici le message

La valeur ne peut être Null.

Pouvez vous m'aider ?
Merci d'avance.

[tilily]

a quelle ligne le message d'erreur s'affiche ?

[Entela]

Déjà en mettant les balises code sa serait plus clair ^^
Ensuite même question à quel ligne ton programme plante ?

[joe12260]

Code :

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

da.Fill(ds, "BADGEV5F.PCALND")

Merci

[Ouggada]

si tu programme avec vs 2005

il faut faire :

Code :

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

da.Fill(Ta_Table)

[AJemni]

Ajoute

Code :

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

ds = New DataSet()

[Carmel_O]

Voila comment j'ai rempli ma comboxBox sur ma dernière application en vb.net 2005
A partir d'une Connexion a une base de donnée SQL server 2005

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
 Private Sub UserControl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Declare la connection
        Dim Connect As New System.Data.SqlClient.SqlConnection("Persist Security Info=False;Integrated Security=False;uid =id; password =tonpassword;Initial Catalog=Tabase;server=tonserveur")
 
        'Ouvre la Connection
        Connect.Open()
 
        'Requete sql
        Dim myCommand As New SqlCommand("SELECT Action FROM T_REF_ACTION", Connect)
        Dim myReader As SqlDataReader
        myReader = myCommand.ExecuteReader()
 
        'initialisation du combobox
        ComboBox_Action.Items.Clear()
 
        'Tant que la table n'est pas vide on incremente la combobox
        Do While myReader.Read()
            ComboBox_Action.Items.Add(myReader.GetString(0))
        Loop
 
        myReader.Close()
        Connect.Close()

Et c'est vrai qu'avec les balise Code se serait plus lisible

J'espère que ca peut t'aider

Carmel_O

[AJemni]

Je pense qu'un petit Try...catch assure un bon fonctionnement de votre code :

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
31
32
 
Private Sub UserControl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Declare la connection
        Dim Connect As New System.Data.SqlClient.SqlConnection("Persist Security Info=False;Integrated Security=False;uid =id; password =tonpassword;Initial Catalog=Tabase;server=tonserveur")
 
        'Ouvre la Connection
        Connect.Open()
 
        'Requete sql
        Dim myCommand As New SqlClient.SqlCommand("SELECT Action FROM T_REF_ACTION", Connect)
        Dim myReader As SqlClient.SqlDataReader
        Try
            myReader = myCommand.ExecuteReader()
 
            'initialisation du combobox
            ComboBox_Action.Items.Clear()
 
            'Tant que la table n'est pas vide on incremente la combobox
            Do While myReader.Read()
                ComboBox_Action.Items.Add(myReader.GetString(0))
            Loop
 
            myReader.Close()
            Connect.Close()
        Catch ex As Exception
            If myReader IsNot Nothing Then
                If Not myReader.IsClosed Then myReader.Close()
            End If
            Throw ex
        End Try
 
    End Sub

[Carmel_O]

Je vois ce que tu veux faire mais j'ai mis qu'une petite parti de mon code juste pour aider jo12260 "l'orienter".
Mais je vais potasser ça

Merci Ajemni

Carmel_O