Discussion :

[blida02]

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim cmd As New OleDbCommand() With {.Connection = conn}
            Dim sql As String
            Dim result As Integer
            conn.Open()
            For Each row As DataGridViewRow In DataGridView1.Rows
                sql = "INSERT INTO Table3 (matricule,ref_cour,exam) VALUES ('" _
                            & CStr(row.Cells(0).Value) & "','" _
                            & CStr(row.Cells(5).Value) & "','" _
                            & CStr(row.Cells(7).Value) & "')"
 
                With cmd
                    .Connection = conn
                    .CommandText = sql
                End With
                result = cmd.ExecuteNonQuery
            Next
            If result = 0 Then
                MsgBox("No saved Record.")
            Else
                MsgBox("All Records Saved.")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn.Close()
    End Sub

[nouanda]

Bonjour,

N’hésite pas a relire les règles du forum, on peut y apprendre plein de choses. En particulier que la politesse de base n'est pas une option, que la mise en forme est importante (la balise [CODE] par exemple), et surtout, que si tu veux une réponse, il faut poser une question.

Cela dit, je vais extrapoler, et supposer que tu cherches une piste pour éliminer cette erreur. Et bien je dirai simplement que la database ne supporte pas de valeur vide dans la colonne exam, et que row.Cells(7).Value est une chaîne vide. Regarde le type d'exception qui est levée. Active le suivi des exceptions dans Visual Studio pour avoir plus de détails.

Bonne journée

[blida02]

Merci, le problème a été résolu