Formulaire vb.net automatisé avec bdd access

Fermé
mp1989 - 5 nov. 2011 à 13:44
 mp1989 - 5 nov. 2011 à 20:28
Bonjour,
je suis actuellement en train de développer en vb.net un formulaire qui interagi avec une base de donnée access. Donc je travailler avec l'ado.net et en mode de connexion oledb.

Voici mon problème :

j'ai tout d'abord fait une liste déroulante avec les identifiants client, et quand on sélectionne un identifiant, le formulaire se complète tout seul grâce à une requête sql.
Pour ce qui est du remplissage de la liste déroulante cela fonctionne mais quand je veut que sa remplisse les textbox avec l'identifiant sélectionné cela ne fonctionne pas.
J'ai rechercher sur internet des solutions à mon problème mais aucuns ne fonctionnent.

Voici les codes que j'ai réalisé
==> Remplir la liste déroulante avec la base de données : (celui la fonctionne parfaitement)

Public Class réservation
Private Sub réservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connexion As New OleDb.OleDbConnection(My.Settings.LocaSkiConnectionString)
connexion.Open()
Dim sql As New OleDb.OleDbCommand("SELECT * FROM CLIENT", connexion)
Dim drListId As OleDbDataReader
drListId = sql.ExecuteReader

Dim dataTable As New DataTable
dataTable.Load(drListId)

cb_idcli.DisplayMember = "civilite"
cb_idcli.DisplayMember = "nomCli"
cb_idcli.DisplayMember = "prenomCli"
cb_idcli.DisplayMember = "adCli"
cb_idcli.DisplayMember = "CpCli"
cb_idcli.DisplayMember = "villeCli"
cb_idcli.DisplayMember = "idCli"
cb_idcli.ValueMember = "nomCli"

cb_idcli.DataSource = dataTable

connexion.Close()
End Sub

==> remplir un textbox avec l'identifiant sélectionné dans la combobox : (celui la ne fonctionne pas)

Private Sub cb_idcli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_idcli.SelectedIndexChanged
Dim connexion As New OleDb.OleDbConnection(My.Settings.LocaSkiConnectionString)
connexion.Open()
Dim sql2 As String
sql2 = ("SELECT * FROM CLIENT WHERE idCli= '" & Me.cb_idcli.SelectedValue & "'")
Dim requete2 As New OleDbCommand(sql2, connexion)
Dim drListId As OleDbDataReader
drListId = requete2.ExecuteReader
While (drListId.Read())
txt_nomCli.Text = drListId("nomCli")
End While
connexion.Close()
End Sub
End Class


En espérant que quelqu'un puisse m'aider ^^

Cordialement,
MP1989
.

1 réponse

up ^^
je commence à despérer =)

merci
mp1989
0