VB.NET 2005 ListView Refresh

Version imprimable

BONJOUR,

là en fait j'ai 2 questions concernant les listView

Question 1 :

j'ai une list view et au moment d'un ajout ou de mise à jour des données , je n'arrive pas à rafraichir la listview alors que pour la suppression ça marche nikel, ça le fait une fois que j'ai cliqué sur le bouton.

J'ai essayé avec

Code:

ListView.refresh()

mais rien ne se passe ,

j'ai aussi tester
Code:

1 2 ListView.clear() ME.afficheRow(conn.ConnectionString)
mais là ça m'enlève les données ainsi que les titres des colonnes de la listView

Question 2 :

j'ai une table INTERVENTION (NUM,LIB)
une listeView où apparaissent avec 2 colonnes NUM , LIB.
Lors de mon ajout d'une intervention , je souhaiterai comparer si le numéro ou si le libellé se trouve déjà dans la listview.

j'ai fais ça mais ça ne marche que pour l'index = 0 après j'ai un message d'erreur , d'autre part ça m'effectue quand même l'ajout dans la table ce qui me donne des doublons !!!

Citation:

ORA-00001: unique constraint (ACTIVUS.INTERVENTION_PK) violated
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim intervention As String = Txt_Ajout.Text Dim num As String cmd.Connection = conn For i As Integer = 0 To Me.List_Intervention.SelectedItems.Count() If intervention.CompareTo(List_Intervention.Items(i).ToString) Then num = List_Intervention.Items.Count() + 1 cmd.CommandText = "INSERT INTO INTERVENTION (INT_NUM_INT, INT_LIB_INT) values ('" & num & "','" & intervention & "' )" cmd.CommandType = CommandType.Text cmd.ExecuteNonQuery() Txt_Ajout.Text = "" Bt_Ajouter.Enabled = False Else MsgBox("Intervention existante", MsgBoxStyle.OkOnly) End If Next i
merci d'avance pour l'aide ...

11/07/2008, 11h53
tro2blabla

par rapport au rafraichissement de la listview suite à un ajout

est-ce qu'il ne serait préferable de faire un sleep ?

si quelqu'un a une piste parce que là je suis bloquée ! :aie::aie::aie::aie::aie:;)
11/07/2008, 11h56
schwarzy2

et tu n'as pas la fonction Update?
11/07/2008, 14h15
tro2blabla

j'ai fait avec

Code:

Listview.update()

mais la listview ne se met pas à jour, ça fait comme le refresh () , ça reste telle quelle .
A chaque fois , il faut que je ferme le formulaire et le rouvrir pour constater l'ajout dans la listview !!
alors que ce n'est pas cela que je souhaite
11/07/2008, 14h58
schwarzy2

alors là franchement, désolé mais je ne vois pas...
moi un update, ça m'a toujours suffit.
11/07/2008, 15h35
tro2blabla

merci quand meme , en fait je pense que dans mon code y'a une erreur que j'ai pas vu et que je vois toujours pas
11/07/2008, 16h03
schwarzy2

ben...poste ton code! on peut essayer de regarder ça ensemble! :D

Ma table INTERVENTION (INT_NUM_INT, INT_LIB_INT)
Ma listView se nomme List_Intervention , ne s'y trouve qu'une seule colonne où s'affiche les données correspondantes à INT_LIB_INT .
PArce que là j'essaie de gérer dans l'ajout le fait de ne pas insérer le même libellé et d'ajouter +1 au numéro dans le cas où l'ajout s'effectue.
(là je travail avec une bdd sous ORacle )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  'insert une intervention 
        Dim intervention As String = Txt_Ajout.Text
        Dim num As String
        cmd.Connection = conn
        cmd.CommandText = "SELECT MAX(INT_NUM_INT) from INTERVENTION"
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        'num = CInt(dr.Read()) +1 
        'MsgBox(num.ToString) --->>> cela renvoie 0 
       ' num = Me.List_Intervention.Items.Count() + 1  -->> renvoie FALSE
    '    MsgBox(num.ToString)
        For i As Integer = 0 To Me.List_Intervention.Items.Count()
            If intervention.Equals(List_Intervention.Items(i).ToString) = False Then
                cmd.CommandText = "INSERT INTO INTERVENTION (INT_NUM_INT, INT_LIB_INT) values ('" & num & "','" & intervention & "' )"
                cmd.CommandType = CommandType.Text
                cmd.ExecuteNonQuery()
                List_Intervention.Update()
                ' Me.AfficheRow(conn.ConnectionString)
            Else
                MsgBox("Intervention existante", MsgBoxStyle.OkOnly)
            End If
        Next i

11/07/2008, 16h31
schwarzy2

est-ce que tu as essayé de ne pas updater ta liste mais ton form?
est-ce que quand tu tapes ton texte VB te propose la fonction update dans la liste des fonctions pour ta liste?

là j'ai fais
Code:

1 2 3 4 cmd.CommandText = "INSERT INTO INTERVENTION (INT_NUM_INT, INT_LIB_INT) values ('" & num & "','" & intervention & "' )" cmd.CommandType = CommandType.Text cmd.ExecuteNonQuery() Me.Update()
j'ai ce message là , ça bug au moment de l'execution de la requete mais sans nul doute le update marche ; c'est juste que je ne l'atteint pas vu que j'ai l'erreur avant

Citation:

ORA-00001: unique constraint (ACTIVUS.INTERVENTION_PK) violated

est-ce que mon erreur viens du fait que je fasses un executeNonquery pour un insert ?!

11/07/2008, 22h47
Ouija33

moi, je tenterai de faire mon update en dehors de ma requête, j'imagine que ta connection est ouverte et surement qu'elle tente de se rouvrir quand tu reviens de ton update:aie:

ton nonquery pour un insert est parfait ;)
13/07/2008, 08h44
schwarzy2

ton problème a l'air de venir d'une question de droit avec Oracle, tu as essayé de faire ta requête directement dans ta base de données pour voir ce que ça donne?