[asemshahen5]

PHP كود :

Dim StrSQL as string = "select * from Data1 where ID = " & Text1.Text
 Dim cn As New SqlConnection("Server =(local);database=TestDB;integrated security=true")
 Dim da As New SqlDataAdapter(StrSQL, cn)
 Dim dt As New DataTable
 da.Fill(dt)
If DT.Rows.Count > 0 Then
   Dim i As Integer = 0
   Dim x As Integer = 0
   For i = 0 To DT.Rows.Count - 1
       x += 1
       DT.Rows(i)("ID") = x
   Next
   DT.AcceptChanges()
   da.Update(DT)
End If