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

عملية تأكد من الحجوزات

بدأه BLEACHHeart في 30 سبتمبر 2008 · 3 رد · 641 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام عليكم

لدي مشكلة كنت أعمل عليها لكني لحد الأن لم أجد لها.. و توقفت بعد شهر رمضان لكن بما أن العيد جاء فقعد عدنا..

المشكلة كالتالي..

على المستخدم أن يقوم بأداخل رقم بطاقته بعد أن يدخل رقم البطاقة، يتأكد الستسم أن كان قام بالحجز مسبقاً تظهر له جملة "حاجز من قبل" أن لم تكن لا تظهر له..

هذا الكود الذي كتبته.. 

Dim myconnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\football.mdf;Integrated Security=True;User Instance=True")
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

		Dim mid As String
		mid = Session("matachid")

		Dim weekno As String
		weekno = Session("WeekNo")

		If mid & weekno <> Nothing Then
			weekno = Session("WeekNo")
			mid = Session("matachid")
		Else
			Response.Redirect("ball.aspx")
		End If

		myconnection.Open()
		Dim insertcommand As New SqlCommand
		insertcommand.Connection = myconnection
		insertcommand.CommandType = Data.CommandType.Text
		insertcommand.CommandText = "insert into reservation(matchid,CardSerialN) values(@matchid,@CardSerialN)"
		insertcommand.Parameters.Clear()
		insertcommand.Parameters.AddWithValue("@matchid", mid)
		insertcommand.Parameters.AddWithValue("@CardSerialN", weekno)
		insertcommand.ExecuteNonQuery()
		insertcommand.Dispose()
		myconnection.Close()

تم تعديل هذه المشاركة بواسطة BLEACHHeart في 30 سبتمبر 2008 في 16:45

#2

هذا الكود ليس له أي أهمية 

If mid & weekno <> Nothing Then
			weekno = Session("WeekNo")
			mid = Session("matachid")
		Else
			Response.Redirect("ball.aspx")
		End If

فأنت بالفعل قمت بوضع قيم الSessions في المتغيرات في السطور التي تسبقه

كل ما تحتاجة هو اضافة جملة SQL أخرى لتتأكد اذا كان هناك حجز مسبق لهذا الشخص , و لكن أعتقد أنك تحتاج المزيد من المعلومات حتى تستطيع كتابة هذا الquery مثل اسم أو رقم المستخدم أو أي شئ مميٍز يمكنك أن تعرف به الحجز

Sr. Software Development Engineer
Hulu, LLC
My Blogs

#3

أخي حاولت مسبقاً أضافت أكثر من Sql query

لكن لم أعرف كيف كل ما مرة أقوم بها ، يظهر لي أني فاتح أكثر من كونشنسن أو بورت..

لا أعرف ما الحل

أسف وضعت الكود الخطأ.. ليس هذا O_O

	   
		Dim mid As String
		mid = Session("matachid")

		Dim weekno As String
		weekno = Session("WeekNo")
		Dim serial As String
		serial = Session("Cardserial")

	 If mid & weekno <> Nothing Then
			weekno = Session("WeekNo")
			mid = Session("matachid")
		Else
			Response.Redirect("ball.aspx")
		End If



		Dim myconnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\football.mdf;Integrated Security=True;User Instance=True")
		Dim MyReserv As New SqlCommand
		Dim myreadreser As SqlDataReader
		myconnection.Open()
		MyReserv.Connection = myconnection
		MyReserv.CommandText = "select matchid from reservation where matchid = '" & mid & "'"
		If MyReserv.CommandType = CommandType.Text Then
			myreadreser = MyReserv.ExecuteReader
			If myreadreser.Read Then
				If myreadreser.Item("matchid") = mid Then

					Label2.Text = "قد قمت بالحجز مبسقاً لا داعي"

				End If
				myreadreser.Close()
			End If
		Else
			Label2.Text = "new reservation"
		End If


		myconnection.Close()

تم تعديل هذه المشاركة بواسطة BLEACHHeart في 2 أكتوبر 2008 في 16:57

#4

ممكن مساعدة شباب..

لأن كل ما يقوم بقرأته هو أول صف من الداتا بيس..

لا أعرف ماذا إفعل !!

علماً الكود الأول ليس هو أنما الكود الثاني

خطأ في الأدراج

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…