الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكله في ادخال البيانات من datagrid الى database

مغلق
بدأه nour_mohamed في 24 يوليو 2007 · 1 رد · 1,022 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني اني اواجه مشكله في كود ادخال البيانات من ال datagrid الى database

كما نعلم ان datagrid تحتوي على عدة اسطر وما اريده هو ادخال كل سطر الى data base مع العلم انني استخدمت for loop فهو يدخل بيانات السطر الاول بعدد الاسطر في datagrid ولا ينتقل الى السطر التالي لادخاله في database وهذا هو الكود :

Dim i As Integer

Dim M As Integer

For i = 0 To M

M = dg2.Items.Count - 1

' to insert data into res_hotel (select from and insert into

Dim cmd89 As New SqlCommand

cmd89.Connection = conn

cmd89.CommandType = CommandType.StoredProcedure

cmd89.CommandText = "StoredProcedure9"

cmd89.Parameters.Add("@res_hotel_id", Me.dg1.SelectedItem.Cells(1).Text)

cmd89.Parameters.Add("@res_id", RES_ID)

cmd89.Parameters.Add("@hot_id", HOTEL_ID)

cmd89.Parameters.Add("@res_hotel_rt", ROOM_ID)

cmd89.Parameters.Add("@res_hotel_date", DAY)

cmd89.Parameters.Add("@room_id", Hotel_Rooms_Status_id)

cmd89.ExecuteNonQuery()

'********************************************************************

Next i

Response.Write("<script>alert('Done');</script>")

#2

شكرا لكم اخواني ولكني وجدت الحل وساضع الكود الصحيح حتى يستفيد منه الاخرون :D

Dim i As Integer

For i = 0 To dg2.Items.Count - 1

Dim cmd11 As New SqlCommand("SELECT MAX (Hotel_id) FROM RES_HOTEL", conn)

Dim r5 As SqlDataReader

r5 = cmd11.ExecuteReader

r5.Read()

HOTEL_ID = r5(0) + 1

r5.Close()

Dim cmd9 As New SqlCommand("insert into res_hotel (hotel_id,res_id,res_hotel_id,res_hotel_date,res_hotel_rt) values (@hotel_id,@res_id,@res_hotel_id,@res_hotel_date,@res_hotel_rt)", conn)

cmd9.Parameters.Add("@hotel_id", HOTEL_ID)

cmd9.Parameters.Add("@res_id", RES_ID)

cmd9.Parameters.Add("@res_hotel_id", Me.dg1.SelectedItem.Cells(1).Text)

cmd9.Parameters.Add("@res_hotel_date", Me.dg2.Items(i).Cells(0).Text)

cmd9.Parameters.Add("@res_hotel_rt", Me.dg2.Items(i).Cells(6).Text)

cmd9.ExecuteNonQuery()

Next i

وشكرا -waf

تم تعديل هذه المشاركة بواسطة nour_mohamed في 24 يوليو 2007 في 13:39

هذا الموضوع مغلق.

مواضيع مشابهة