[حماده ممدوح البحيرى]

السلام عليكم ورحمة الله
لدى داتا جريد فيو تاخد قيمها من جدول A   فى قاعدة بيانات SQL  

اريد عمل LOOP  لكود INSERT لنقل كل بيانات العمود 2  الى جدول اخر B 
علما بأن كود INSERT لدى هو كما يلى

كود :

Public Sub Insert_stock_materials()
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into stock_materials ( ,prd_id,recpie_id,matriyal_recpie,Quantity_imports,Quantity_Outside,Store_Balance)values(,@prd_id,@recpie_id,@matriyal_recpie,@Quantity_imports,@Quantity_Outside,@Store_Balance)"
           .Parameters.Clear()
           .Parameters.AddWithValue("@prd_id", SqlDbType.Int).Value = prd_id
           .Parameters.AddWithValue("@recpie_id", SqlDbType.Int).Value = recpie_id.TXT
           .Parameters.AddWithValue("@matriyal_recpie", SqlDbType.VarChar).Value = matriyal_recpie.TXT
           .Parameters.AddWithValue("@Quantity_imports", SqlDbType.Decimal).Value = Quantity_imports.TXT
           .Parameters.AddWithValue("@Quantity_Outside", SqlDbType.Decimal).Value = Quantity_Outside.TXT
           .Parameters.AddWithValue("@Store_Balance", SqlDbType.Decimal).Value = Store_Balance.TXT
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       Cmd = Nothing
   End Sub

---

حتى لا ارهق الاخوة الافاضل
ولاننى لم اجد طريقة لحذف الموضوع

تم الحل بفضل الله وبفضل تعاليمكم