Remplir un combovb en utilisant une tablesql

Signaler
Messages postés
2
Date d'inscription
dimanche 5 décembre 2010
Statut
Membre
Dernière intervention
7 décembre 2010
-
Messages postés
540
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
1 février 2013
-
bonjour je suis debutt en programation vb je veux remplir un combo en utilisant les infos d une table en sql server , c est un combo consernan " des mode de payement " que j ai deja dans ma base , cette table = type payemet= a ID et modpayement

Quelqu'un pourrait-il m'aider svp?
merci d avance

3 réponses

Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
Bonsoir,

Il faut plus d'information :

Qu'avez vous développé comme code ?

La connexion à la base est réalisée ?

Il vous manque quoi comme commande SQL ?

Merci

Didier
Messages postés
2
Date d'inscription
dimanche 5 décembre 2010
Statut
Membre
Dernière intervention
7 décembre 2010

bonsoir
merci de me donné un px de votre temps :)
******pour la connection a la base j utilise cette methode et sa marche

----Public con As New SqlConnection
Public cmd As New SqlCommand
Public da As New SqlDataAdapter
Dim ds As New DataSet

----Public Sub seconnecter()
If con.State = ConnectionState.Closed Then
con.ConnectionString = "integrated security=true ;database=GRH ;server = ."
con.Open()
End If
End Sub

***** pour remplir mon combo je vien de creer cette methode qui marche pour tt les combo elle a comme attribut un combobox , la table qui contient l information recherchée ainsi que le display et la value
juste ici j 'ai un petit confondus et j espér que vous me donné des explications concernant le *** display et la value :
j ai une table payement avec IDpayement et modepayement
je vx avoir dans le combo le modepayement affiché
veuillez voir si mon code et bien etablie pour mon cas


-----Public Sub remplircombobox(ByVal cmb As ComboBox, ByVal table As String, ByVal display As String, ByVal value As String)
seconnecter()
cmd.CommandText = "select * from " & table ' la table payement
cmd.Connection = con
da.SelectCommand = cmd
da.Fill(ds, "table")
cmb.DataSource = ds.Tables("table")
cmb.DisplayMember = display ' j'affecte l ID payement
cmb.ValueMember = value ' j'affecte le modepayement que je vx affiché

sedeconnecter()
End Sub


merci d avance DIDIER

TIM
Messages postés
540
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
1 février 2013
1
Bonsoir!!

Quelques choses comme ceci devrait t'aider à t'en sortir:
 Public con As New SqlConnection("integrated security=true ;database=GRH ;server = ." )
 Public cmd As New SqlCommand("select * from "& table, con)
 Public da As SqlDataReader

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        con.Open()
        da = cmd.ExecuteReader
        While da.Read
            cmb.Items.Add(da(0)) 'le 0 est l'indice du champ à afficher dans le combo
            '0 pour le 1er champ
            '1 pour le 2nd champ
            '...
        End While
        da.Close()
        con.Close()
    End Sub


PS:tu peux également utiliser les noms des champs à la place des indices donc si ton champ se nomme:
ex:'Nom'
tu feras comme ceci:
...
While da.Read
            cmb.Items.Add(da("Nom"))
End While
...


bonne continuation!!
Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
and vb6.0