读取数据库数据处理后再插入数据库,很多语句都可以使用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("密码").ToString) & "处理后的数据'" + " 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的循环处理。
