[اسامه الهرماوي]

السلام عليكم...
هذا كود لنقل البيانات من جدول لأخر يمكنك إستخدامة وإضافة له شرط WHERE،
تفضل:

كود :

If con.State = ConnectionState.Closed Then
           con.Open()
       End If

   Dim cmd As New SqlCommand
       cmd.Connection = con
       cmd.CommandText = "INSERT INTO TABLE2 SELECT name,age FROM TABLE1;"
       cmd.ExecuteNonQuery()
       cmd.CommandText = "Delete From TABLE1"
       cmd.ExecuteNonQuery()
       con.Close()