07-10-22, 03:18 AM
السلام عليكم ورحمة الله
لدى داتا جريد فيو تاخد قيمها من جدول A فى قاعدة بيانات SQL
اريد عمل LOOP لكود INSERT لنقل كل بيانات العمود 2 الى جدول اخر B
علما بأن كود INSERT لدى هو كما يلى
حتى لا ارهق الاخوة الافاضل
ولاننى لم اجد طريقة لحذف الموضوع
تم الحل بفضل الله وبفضل تعاليمكم
لدى داتا جريد فيو تاخد قيمها من جدول 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حتى لا ارهق الاخوة الافاضل
ولاننى لم اجد طريقة لحذف الموضوع
تم الحل بفضل الله وبفضل تعاليمكم