遍历表中每条记录，修改并保存

Dim con As New SqlConnection("Data Source=./SQLEXPRESS;AttachDbFilename=|DataDirectory|/db.mdf;Integrated Security=True;User Instance=True")

        con.Open()

        Dim cmd As New SqlCommand("select * from tb", con)

        Dim adp As New SqlDataAdapter

        Dim cb As New SqlCommandBuilder(adp)

 

        adp.SelectCommand = cmd

        Dim ds As New DataSet

        adp.Fill(ds, "tb")

        For Each dr As DataRow In ds.Tables("tb").Rows

            dr("name") = "aaa"

        Next

        adp.Update(ds.Tables("tb"))

        '或adp.Update(ds, "tb")

        con.Close()

        ds = Nothing

        adp = Nothing

 注：必须在数据表中设置主键，才能使用adp.Update(ds.Tables("tb"))'或adp.Update(ds, "tb")