[الطالب]

سلام

راجع جملت الاتصال واسم الجدول واسم الحقلين id و value1

كود :

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using dt As New DataTable

        Using da As New OleDbDataAdapter("SELECT * FROM [table1]", connectionString)
            da.Fill(dt)
        End Using

        Dim lastval As String = String.Empty

        Using conn As New OleDbConnection(connectionString)
            conn.Open()

            Using cmd As New OleDbCommand("UPDATE [table1] SET [value1]=? WHERE [id]=?", conn)

                For Each row As DataRow In dt.Rows

                    If row("value1").GetType.ToString <> "System.DBNull" Then
                        lastval = row("value1")

                    Else
                        cmd.Parameters.Clear()
                        cmd.Parameters.AddWithValue("@value1", lastval)
                        cmd.Parameters.AddWithValue("@id", row("id"))
                        cmd.ExecuteNonQuery()
                    End If

                Next

            End Using

            conn.Close()
        End Using

    End Using
End Sub

موفقين