Discussion :

[kisamba1]

Bonjour,

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
Dim con As New SqlConnection("Data Source=STLDB3\STLDB;Initial Catalog=VISITEURS;Integrated Security=True")
        con.Open()
        Dim dellete As New SqlCommand
        Dim k As Integer
        k = InputBox("Entrez le Numéro Carte à suprimer")
        temptable.Rows[e.RowIndex].Delete()
            MsgBox("entrer une valeur")
            dellete.CommandText = "DELETE FROM visiteur WHERE Numéro_Carte=" & k & "'"
            dellete.Connection = con
            dellete.CommandType = CommandType.Text
            dellete.ExecuteNonQuery()
            MsgBox("Numéro suprimer")
        Else
            MsgBox("Rien suprimer")
        End If
        con.Close()
    End Sub

[ARTURO83]

Bonjour,

Faites du pas à pas avec la touche F8, vous verrez bien ce qui cloche.

Les lignes avec "Msgbox" ne doivent pas contenir de parenthèses, exemple:

Code :

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

MsgBox "entrer une valeur"

Cdlt