Discussion :

[abitaf]

Bonsoir,

je suis entrin d’apprendre vb.net avec la version 2003 pour l'utilisé avec des base de donnée, j'ai créer une bdd avec sql server nommé BDD_ETUDE qui contient deux table :

Code :

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

1
2
3
4
5
6
CREATE TABLE [dbo].[TB_ETUDIANT] (
	[ET_NUM] [int] IDENTITY (1, 1) NOT NULL ,
	[ET_NOM] [char] (10) COLLATE French_CI_AS NULL ,
	[ET_PRENOM] [char] (10) COLLATE French_CI_AS NULL 
) ON [PRIMARY]
GO

Code :

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

1
2
3
4
5
6
7
CREATE TABLE [dbo].[TB_NOTE] (
	[ET_NUM] [int] NOT NULL ,
	[ET_NOTE1] [int] NULL ,
	[ET_NOTE2] [int] NULL ,
	[ET_NOTE3] [int] NULL 
) ON [PRIMARY]
GO

j'ai créer une application web, avec une interface pour remplir la base de donnée tout fonctionne correctement, mais j'ai un problème avec une fonction pour supprimer des enregistrement, la fonction findby ne fait pas son travaille quand je lui donne la valeur de ET_NUM en paramètre, normalement elle devrait me retourné un datarow avec la ligne trouvé.

voici ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Sub DG_NOTE_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DG_NOTE.DeleteCommand
        Dim DR_ETUDIANT As DAL.DS_GLOBAL.TB_ETUDIANTRow
        Dim DR_NOTE As DAL.DS_GLOBAL.TB_NOTERow
        Me.DS_GLOBAL1.TB_ETUDIANT.FindByET_NUM(e.Item.Cells(0).Text)
        Me.DS_GLOBAL1.TB_NOTE.FindByET_NUM(e.Item.Cells(0).Text)
        DR_NOTE.Delete()
        DR_ETUDIANT.Delete()
        MyDataEtudiant.SAVE_TB_ETUDIANT(Me.DS_GLOBAL1)
        MyDataNote.SAVE_TB_NOTE(Me.DS_GLOBAL1)
        LOAD_DG_ETUDE()
    End Sub

[sinople]

Tu es sur que ton dataset a été chargé à l'aide d'une instruction fill d'un tableadapter?

[abitaf]

oui g bien rempli mon dataset avec l'instruction fill sur un dataadapter : "SQL_DA_TB_ETUDIANT"

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
#Region "TABLE ETUDIANT"
    Public Sub LOAD_TB_ETUDIANT(ByVal ds As DS_GLOBAL)
        Try
            Me.SQL_CONNECT.Open()
            Me.SQL_DA_TB_ETUDIANT.Fill(ds.TB_ETUDIANT)
        Catch ex As Exception
            Me.SQL_CONNECT.Close()
            Throw ex
        Finally
            Me.SQL_CONNECT.Close()
        End Try
    End Sub
    Public Sub SAVE_TB_ETUDIANT(ByVal ds As DS_GLOBAL)
        Try
            Me.SQL_CONNECT.Open()
            Me.SQL_DA_TB_ETUDIANT.Update(ds.TB_ETUDIANT)
        Catch ex As Exception
            Me.SQL_CONNECT.Close()
            Throw ex
        Finally
            Me.SQL_CONNECT.Close()
        End Try
    End Sub
#End Region

[abitaf]

Désolé erreur de fatigue g oublié de faire l'affectation :

Code :

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

1
2
DR_ETUDIANT = Me.DS_GLOBAL1.TB_ETUDIANT.FindByET_NUM(e.Item.Cells(0).Text)
DR_NOTE = Me.DS_GLOBAL1.TB_NOTE.FindByET_NUM(e.Item.Cells(0).Text)

Merci pour l'aide

[Danyel]

Merci de penser au bouton si tel est la cas