Discussion :

[WriteLN]

Bonjout à tous,

Sur un bouton, j'ai le code suivant:

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
Try
            Dim strRequest = "SELECT * FROM services WHERE service = '" & Me.txt_service.Text & "'"
            Dim oCommand As New OleDb.OleDbCommand(strRequest, oConnectionDept)
 
            dataReaderDept = oCommand.ExecuteReader
            If Not dataReaderDept.Read() Then   'INSERT
                dataReaderDept.Close()
                strRequest = "INSERT INTO services VALUES ('" & SupprimeAccent(Me.txt_service.Text) & "','" & Me.txt_local.Text & "', '', 0)"
                oCommand = New OleDb.OleDbCommand(strRequest, oConnectionDept)
                oCommand.ExecuteNonQuery()
            Else
                dataReaderDept.Close()
                MsgBox("Ce département est déjà stocké dans la base de données.")
            End If
 
            dataAdapterDept.Update(DS.Tables("services"))
            DataGrid1.DataSource = DS.Tables("services")
            DataGrid1.Refresh()
        Catch ex As Exception
            dataReaderDept.Close()
            MsgBox(ex.Message)
        End Try

Au chargement de ma form, j'alimente un datagrid comme suit:

Code :

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

1
2
3
 dataAdapterDept = New OleDb.OleDbDataAdapter("select * from services", oConnectionDept)
            dataAdapterDept.Fill(DS, "services")
            DataGrid1.DataSource = DS.Tables("services")

J'ai deux problèmes:
- Mon datagrid ne se remet pas à jour avec cette ligne:
dataAdapterDept.Update(DS.Tables("services"))

- Si j'appuie une seconde fois sur le bouton, j'ai une erreur me disant que le record existe déjà (duplicates). Alors que je viens de l'insèrer et que je fais un test via le select pour voir s'il si trouve ou non.

Quelqu'un aurait un exemple ou une idée pour m'aider sur ce point?

Merci d'avance.

[rockcoeur]

Salut a toi

Ajoute un DataBind() comme indiqué ci dessous ca devrait peut etre supprimer le 1er problème

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
Try
            Dim strRequest = "SELECT * FROM services WHERE service = '" & Me.txt_service.Text & "'"
            Dim oCommand As New OleDb.OleDbCommand(strRequest, oConnectionDept)

            dataReaderDept = oCommand.ExecuteReader
            If Not dataReaderDept.Read() Then   'INSERT
                dataReaderDept.Close()
                strRequest = "INSERT INTO services VALUES ('" & SupprimeAccent(Me.txt_service.Text) & "','" & Me.txt_local.Text & "', '', 0)"
                oCommand = New OleDb.OleDbCommand(strRequest, oConnectionDept)
                oCommand.ExecuteNonQuery()
            Else
                dataReaderDept.Close()
                MsgBox("Ce département est déjà stocké dans la base de données.")
            End If

            dataAdapterDept.Update(DS.Tables("services"))
            DataGrid1.DataSource = DS.Tables("services")
            DataGrid1.Refresh()
            
            DataGrid1.DataBind()  
            
        Catch ex As Exception
            dataReaderDept.Close()
            MsgBox(ex.Message)
        End Try

Je n'ai pas testé cette solution alors tiens moi au courant si ca marche pas.

a+ Rockcoeur

[WriteLN]

Je n'ai pas de méthode dataBind sur mon datagrid.
Je précise que je suis sous VS.net 2003

[WriteLN]

datagrid1.update() résout mon second problème il me semble.
Mais mon datagrid ne se met quand même pas à jour visuellement.

[WriteLN]

Bonjour,

Je me remet dans mon projet mais je reste toujours bloqué sur ce problème du refresh du datagrid.
Avec mon bindingNavigator, si je clique sur supprimer record, malgré mes contraintes définies dans mon dataSet, il supprime bien la ligne mais ne m'avertit pas que cette ligne de cette table est liée avec une autre table. C'est seulement lors de l'update (sauvegarde) qu'il m'avertit.

En plaçant l'update juste après ma suppression, il m'affiche bien l'erreur directement MAIS à l'écran, la ligne à quand même disparue.

Quel astuce faut-il utiliser pour réussir à faire comprendre cette contrainte à VS2005?

Merci d'avance pour vos infos.

[arthenius]

pour ma part apres un update je recharge les données du dataset depuis la base je refais un fill ...

pas trouver mieux pour mettre a jour le dataset/datagrid