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
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é
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...
