Bonjour,
voila je travail actuellemement avec une base de données access, je mets a jours la listebox au load de la page
Tous ca se passe bien, maintenant j'ai sur ma page une bouton qui me permet d'ajouter une element dans ma base de données.
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 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Pointage\pointage.mdb") Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() MyConnexion.Open() Mycommand.CommandText = "SELECT * FROM Zones ORDER BY nom_Zone" Dim myReader As OleDbDataReader = Mycommand.ExecuteReader() Do While myReader.Read() ListBox1.Items.Add(myReader.GetString(1)) Loop myReader.Close() MyConnexion.Close() End Sub
que je clic dessus, voici le code qu'il execute :
La base de données est bien mise à jours, mais mon nouvel élément n'apparait pas dans ma liste box ! comment dois je faire pour mettre a jours cette liste box ?
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 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("vous devez remplir le champ pour pouvoir ajouter une zone") Else Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Pointage\pointage.mdb") Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() MyConnexion.Open() Mycommand.CommandText = "INSERT INTO Zones (nom_Zone) VALUES ('" + TextBox1.Text.ToString + "')" Mycommand.ExecuteNonQuery() MyConnexion.Close() End If ListBox1.DataBind() End Sub
Partager