[VB.net] Problème incrémentation auto (VB-SQLServer)

Version imprimable

18/11/2009, 11h20
daily14

[VB.net] Problème incrémentation auto (VB-SQLServer)
Salut,
Voila j'ai un petit problème avec l'application que je suis entrain de programer en vb:

J'ai une base de données sql server avec une table RAM :
Code:

1 2 3 CREATE TABLE ( IDRam Integer not null IDENTITY(1,1), TypeRam Varchar(10) ... )
Dans mon appli j'ai les options Ajouter , Modifier, Supprimer

Exemple:

J'ai 1 DDR , 2 DIMM (OK)

J'ajoute SIMM ==> 1 DDR , 2 DIMM , 3 SIMM (OK)

Je supprime SIMM ==> 1 DDR , 2 DIMM (OK)

J'ajoute SDRAM ==> 1 DDR , 2 DIMM , 4 SDRAM (IDRam passe directement à 4) 8O

Merci :ccool:
18/11/2009, 11h31
Ogotcha

Tu peux nous montrer ton code au moment de tes insertions, suppressions,... stp ;)

Par contre c'est un peu le bordel :aie: (j'ai pas encore appris le fonctionement des procédures et fonctions en vb :mrgreen: )

Insertion :

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
 Private Sub BtnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValider.Click
 
        Dim strRequete As String
        strRequete = "INSERT INTO Ram (TypeRam, CapaciteRam) VALUES ('" & Me.combotyperam.Text & "', '" & Me.txtcaparam.Text & "')"
 
        'connexion'
        Dim Connexion As New SqlClient.SqlConnection
        Try
            Connexion.ConnectionString = "User ID=**; Pwd=*******; Server=***; Database=***;"
            Connexion.Open()
        Catch problem As Exception
            MessageBox.Show("Connexion impossible")
        End Try
 
        'chargement contenu table
        If Connexion.State <> 1 Then
            MessageBox.Show("La connexion au serveur n'a pas été réalisée")
        Else
            Try
                Dim Command As New SqlClient.SqlCommand(strRequete, Connexion)
                'Execution requete'
                Command.ExecuteNonQuery()
                Connexion.Close()
                AjRam.Visible = False
                'Procedure liste ram'
 
 
            Catch ex As Exception
                MessageBox.Show("Erreur")
            End Try
            MessageBox.Show("Nouvelle RAM ajoutée avec succès!", "Ajout Ram", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

Suppression :

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
  Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click
        If MessageBox.Show("Confirmez-vous la suppression de cette Ram ?", "Suppression", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            'Suppression'
            Dim StrRequete As String
            StrRequete = "Delete Ram where idram = '" & DataListeRam.CurrentRow.Cells("id").Value & "'"
            'connexion'
            Dim Connexion As New SqlClient.SqlConnection
            Try
                Connexion.ConnectionString = "User ID=***; Pwd=**; Server=**; Database=***;"
                Connexion.Open()
            Catch problem As Exception
                MessageBox.Show("Connexion impossible")
            End Try
 
            'chargement contenu table
            If Connexion.State <> 1 Then
                MessageBox.Show("La connexion au serveur n'a pas été réalisée")
            Else
                Try
                    Dim Command As New SqlClient.SqlCommand(StrRequete, Connexion)
                    'Execution requete'
                    Command.ExecuteNonQuery()
                    Connexion.Close()
                    AjRam.Visible = False
                    'Procedure liste ram'
 
 
                Catch ex As Exception
                    MessageBox.Show("Erreur")
                End Try
                MessageBox.Show("Suppression RAM réussie!", "Suppression Ram", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
    End Sub

18/11/2009, 12h02
Ogotcha

C'est normal que ton dernier enregistrement passe à 4 car tu as :

Code:

IDRam Integer not null IDENTITY(1,1)

Donc donc IDRam est en incrémentation automatique, si tu supprimer le 3ème ton IDRam s'incrémente de 1
18/11/2009, 13h50
Pol63

fonctionnement normal des champs auto incrément

si tu mets 1 2 3 puis 4 et que tu supprimes 2, il ne va pas rendre disponible 2, c'est un auto incrément donc ca incrémente ...

mais ca n'a rien de choquant, une clé de table est rarement montrée à l'utilisateur ...
18/11/2009, 14h20
daily14

ahh d'accord merci pour les réponses donc je peux laisser comme ça ?
18/11/2009, 14h27
daily14

et je cherche aussi à actualiser la liste des RAM quand l'utilisateur click sur OK dans la fenetre de confirmation (d'ajout, de modification ou de suppression)

faut-il que je remette le code pour afficher la liste des RAM ou il ya un code spécial pour recharger la page ??
18/11/2009, 16h21
m-mas

Essai frm.refresh, si tu travailles avec des objets il suffit d'ajouter cet enregistrement au data set sinon il faudra re-exécuter la requête ce qui n'est pas du tout conseillé !
18/11/2009, 16h30
Pol63

tout dépend si tu est sur un client lourd ou du web

frm.Refresh c'est pour du windows form et ca rafraichit graphiquement, ce qui est fait de tout manière automatiquement donc ca ne sert pas à grand chose

sur un logiciel monoposte, pour mettre à jour l'ihm, il suffit de modifier ta collection de données, pas besoin de repasser par une requete

pour rafraichir des données d'un logiciel multiposte, la méthode la plus simple c'est de rééexecuter la requete, ce qui n'est pas bien grave sur un réseau local ...

j'ai essayé frm.refresh mais ça ne fonctionne pas.

j'ai essayé ça aussi :
Code:

1 2 3 4 5 6 7 8 9 10 'fin de l'insertion' ... Catch ex As Exception MessageBox.Show("Erreur") End Try Me.close() MessageBox.Show("Nouvelle RAM ajoutée avec succès!", "Ajout Ram", MessageBoxButtons.OK, MessageBoxIcon.Information) Me.show() End If End Sub
mais j'ai l'erreur sur me.show() :

Citation:

Impossible d'accéder à un objet supprimé.
Nom de l'objet : 'FrmRam'