PDA

View Full Version : بهينه سازي كد اصلاح ركورد در vb.net



sh2007
سه شنبه 05 آبان 1388, 08:20 صبح
دوستان سلام
يه كد براي اصلاح نوشتم جواب ميده اما به نظر اساتيد كدهاش از لحاظ فني مشكل داره يا نه



If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim Da As New SqlClient.SqlDataAdapter(Nothing, Cn)

Da.SelectCommand = New SqlClient.SqlCommand("SELECT * FROM Table1 WHERE Id=" & dgv.CurrentRow.Cells(0).Value, Cn)
Da.UpdateCommand = New SqlClient.SqlCommand("UPDATE Table1 Set Feild1='" & dgvOo.CurrentRow.Cells(6).Value & "' WHERE ID= " & dgv.CurrentRow.Cells(0).Value, Cn)
Da.UpdateCommand.ExecuteNonQuery()
Da.Update(Ds.Table1)
Cn.Close()