[VB.Net][ADO.Net] Pb suppression de données dans ma base
Bonjour,
je dvp en asp.net avec visual studio 2003 et SQL Server
Mon pb est que je n'arrive pas à inserer ou supprimer des données dans la base de données alors que toutes mes commandes s'execute sans erreur, je ne comprend pas!
code d'une classe qui me permet de manipuler mes données de ma BD :
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
47
48
49
| Public Class Cargo
Private dstCargo As DataSet
'Private dstCargo2 As DataSet
Private conCargo As SqlConnection
Private adpCli As SqlDataAdapter
Public Sub New()
conCargo = New SqlConnection
conCargo.ConnectionString = "Data Source=localhost;Initial Catalog=Cargo;User Id=****; Password=****;Integrated Security=True;"
End Sub
Public Sub ObtenirClients()
adpCli = New SqlDataAdapter("Select NumID, Nom, Prenom, Email from testal", conCargo)
dstCargo = New DataSet
adpCli.Fill(dstCargo, "CliTable")
End Sub
Public ReadOnly Property ClientListe() As DataTable
Get
Return dstCargo.Tables("CliTable")
End Get
End Property
' Fonction qui s'excute mais ne fait rien
'
'
Public Function SuppClient(ByVal RowNum As Integer, ByVal ID As String) As String
Dim strRep As String = "ok"
Try
conCargo.Open()
Dim maRequete As String
maRequete = "delete from testal where numId='" & ID & "'"
Dim commDelete As New SqlCommand(maRequete, conCargo)
adpCli.DeleteCommand = commDelete
adpCli.Update(dstCargo, "CliTable")
Catch ex As Exception
strRep = ex.Message
Finally
conCargo.Close()
End Try
Return strRep
End Function
..... |
dans mon fichier .VB je l'utilise ainsi :
objCargo.ObtenirClients()
Response.Write(objCargo.SuppClient(int_LigneMaj, str_numId))
il ne me fait pas d'erreur, mais il ne me supprime pas mon enregistrement.... je suis à la recherche d'une aide pour résoudre ce pb sachant que j'ai déjà modifié mon utilisateur pour qu'il est les droits de modifications sur la base de données
merci d'Avance
