VB .NET 读取数据库数据处理后再循环插入数据库

读取数据库数据处理后再插入数据库，很多语句都可以使用inset into实现，但有些批量处理业务，需要逐条记录处理后，在写回数据库。

网上查了很多资料，竟然没有这样的例子，很是奇怪，难道我学的路子不对头？

小白学习过程中的记录，高手勿笑，有不当之处烦请指点。

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        '数据循环 插入数据库  仅作举例 字段无任何意义

        Dim con, con1 As SqlConnection

        Dim com, com1 As SqlCommand

        con = New SqlConnection("Data Source=.;Initial Catalog=hyzx;Integrated Security=false;User ID=sa;Password=123456;")

        con.Open()

        Dim str, str1 As String

        str = "select * from 登录表"

        com = New SqlCommand(str, con)

        Dim da As SqlDataReader

        da = com.ExecuteReader

        con1 = New SqlConnection("Data Source=.;Initial Catalog=hyzx;Integrated Security=false;User ID=sa;Password=123456;")

        con1.Open()

        Do While da.Read()

            '此处可处理一些数据

            str1 = ""

            str1 = "update 登录表 set 密码='" + Trim（da.Item("密码").ToStr
4000
ing) & "处理后的数据'" + " where 工号=" + da.GetSqlValue(0).ToString

            com1 = New SqlCommand(str1, con1)

            Try

                TextBox4.Text = com1.ExecuteNonQuery()

            Catch ex As Exception

                TextBox5.Text = (ex.Message)

            End Try

        Loop

        con1.Close()

        con.Close()

    End Sub

这里感觉不妥的地方是，需要两次连接，下次研究一下dataset的循环处理。