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

انشاء لجدول حصص

بدأه المدلهم في 31 يناير 2009 · 4 رد · 841 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أخواني في هذا المنتدى الرائع

أحاول إيجاد كود لجدول محاضرات يقوم بفحص بيانات المدخلة لمنع التداخل أو التكرار حجز قاعة دراسية لمحاضرتين في نفس التوقيت و اليوم أو توزيع حصتين لمحاضر واحد في نفس التوقيت و اليوم و تفاصيل البيانات في قاعدة البيانات كالآتي :

القسم - التخصص - رمز الدورة - اليوم - بداية المحاضرة - نهاية المحاضرة - رقم الغرفة الدراسية - اسم المحاضر.

و الغرض من الكود : -

أولا: فحص إذا كانت الغرفة الدراسية المختارة (رقم الغرفة الدراسية) محجوزة من قبل محاضر آخر في نفس التوقيت(بداية المحاضرة - نهاية المحاضرة ) و اليوم

ثانيا:- فحص إذا كان المحاضر لدية محاضرة آخرى في نفس التوقيت (بداية المحاضرة - نهاية المحاضرة ) و اليوم

اتمنى أن تساعدوني لحل هذا الإشكال و لكم جزيل الشكر مقدما

#2

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

هذا مشروع اتمنى البداء فية و اذا واجهتك المشكلة تطرحها وسوف نجيبك باذن الله

و البرنامج بسيط يحتاج الوقت و القيل من الخبرة

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

Mail : pc-moon@hotmail.com

من تواضع لله رفعه

قل خيرا أو اصمت

#3

السلام عليكم

هذا هو الكود الذي كتبته و لكن يعطيني خطأ فما العيب فيه

TextBox1.Text = Format("hh:mm tt")
		TextBox2.Text = Format("hh:mm tt")
		Dim cc As New SqlClient.SqlConnection(constring)
		Dim sd As String = "select * from timtab where day like'" & Me.DayComboBox.Text & "' and tecna like'" & Me.TecnaComboBox.Text & "' and beg between " & TextBox1.Text & "and" & TextBox2.Text & ""
		Dim objCommand As New SqlClient.SqlCommand
		objCommand.CommandType = CommandType.Text
		objCommand.Connection = cc
		Dim objDataReader As SqlClient.SqlDataReader
		Try
			'   If c.State = ConnectionState.Open Then c.Close()
			cc.Open()
			objCommand.Connection = cc
			objCommand.CommandType = CommandType.Text
			objCommand.CommandText = sd
			objDataReader = objCommand.ExecuteReader
			If objDataReader.HasRows Then

				MsgBox("teacher has anther course at this time")
			 Else
				MsgBox("its ok save it")
			End If


			'Close the reader
			objDataReader.Close()
		Catch SqlErrorCollection As Common.DbException
			MessageBox.Show(SqlErrorCollection.Message, " SQL")
		End Try
		objCommand.Dispose()
		objCommand = Nothing
		objDataReader = Nothing
		cc.Close()

تم تعديل هذه المشاركة بواسطة المدلهم في 1 فبراير 2009 في 08:03

#4

بسم الله الرحمن الرحيم

هذا مثال عمله أحد الأخوة لعملية الحجز في غرف الفندق ..

يمكن أن تأخذ الفكرة وتحاول تعديلها

مع خالص شكري وتقديري

__________________.rar

#5

شكرا لك أخي الحبيب على تقديم المساعدة

إلا أن المثال المرفق لا يعتمد على وقت من - - - إلى

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