Discussion :

[daily14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)



Merci

[Ogotcha]

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

[daily14]

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

Insertion :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ogotcha]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ...

[daily14]

ahh d'accord merci pour les réponses donc je peux laisser comme ça ?