Rafraichir les données d'une listebox

Version imprimable

Bonjour,

voila je travail actuellemement avec une base de données access, je mets a jours la listebox au load de la page

Code:

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

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.
que je clic dessus, voici le code qu'il execute :

Code:

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

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 ?

29/07/2008, 12h14
tomlev

ben comme ça :

Code:

ListBox1.Items.Add(TextBox1.Text)

Tu mets tout ton code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 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()
dans un fonction que tu nommes ListBox1Fill() par exemple. Le mieux serait d'extraire la partie connexion a la base de données qui n'a rien a voir a ce moment la avec ta fonction. Ensuite tu appel ListBox1Fill() dans ton Load() et dans l'evenemnt ButtonCLick(), le tour est joué.
Apres tout depend de ce que tu souhaite faire, la solution de TomLev est toute simple aussi.
Remarque: si tu veux que ta listbox soit "rafraichit" a chaque fois que tu fais une modif sur ta table, tu devrais pllutôt cherche du cotes des dataset, non?

Salut

j'ai eu le meme soucis que toi que j'ai pu résoudre ( sau f que moi je travail sous ORACLE) cela n'empeche que la programmation reste la meme.

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.Open()
        Me.AfficheRow(conn.ConnectionString)
 
    End Sub
 
 
Public Sub InsertRow(ByVal connectionString As String)
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
 
 
 
Public Sub InsertRow(ByVal connectionString As String)
 
  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
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Ajouter.Click
        Me.InsertRow(conn.ConnectionString)
        Me.List_Intervention.Items.Clear()
        Me.AfficheRow(conn.ConnectionString)
    End Sub

j'espere t'avoir aidé

____________________________
suis-moi je te fuis