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

المساعدة في إنشاء كود لجدول محاضرات

بدأه المدلهم في 31 يناير 2009 · 7 رد · 809 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

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

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

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

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

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

#2

up

#3

هل يمكن ان يساعدني أحد

#4

اخي الكريم ضع محاولتك او البرنامج الذي بدأت به وسوف نحاول مساعدتك

فكلنا هنا للتعلم

#5

Dim textime1 As String

Dim textime2 As String

textime1 = Me.BegDateTimePicker.Text ', "hh:mm tt")

textime2 = Me.EnDateTimePicker.Text ', "hh:mm tt")

Dim c, cc As New SqlClient.SqlConnection(constring)

Dim s As String = "select * from timtab where day like'" & Me.DayComboBox.Text & "' and rom_no ='" & Me.Rom_noComboBox.Text & "'and tecna like'" & Me.TecnaComboBox.Text & "'and beg between " & textime1 & "and" & textime2 & "and en between" & textime1 & "and" & textime2 & ""

Dim objCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand

objCommand.CommandType = CommandType.Text

objCommand.Connection = c

Dim objDataReader As SqlClient.SqlDataReader

Try

If c.State = ConnectionState.Open Then c.Close()

c.Open()

objCommand.CommandText = s

'Execute the SQL text

objDataReader = objCommand.ExecuteReader

'Check to see if we have data

If objDataReader.HasRows Then

MsgBox("teacher has anther course at this time")

Else

MsgBox("you can save the record")

End If

objDataReader.Close()

Catch OleDbExceptionErr As Common.DbException

MessageBox.Show(OleDbExceptionErr.Message, " SQL")

End Try

objCommand.Dispose()

objCommand = Nothing

objDataReader = Nothing

c.Close()

هذا ما وضعته

و لكن يعطيني خطأ بسبب عدم قبول ":" و التي تفصل الساعة عن الدقائق

تم تعديل هذه المشاركة بواسطة المدلهم في 18 فبراير 2009 في 19:04

#6

اخي الكريم انا قصدي ارفاق البرنامج كاملا وسوف احاول التعديل عليه ان استطعت وشكرا لتفهمك

#7

طيب أخي و لك الشكر الجزيل

timtable.rar

#8

أيعقل أن VB.net ليس فيها حل لهذه الإشكالية

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