موقع دروس

لنفرض ان هناك صفحة لإضافة الدروس سواء بمحرر كتابة Editor او رافع ملفات Uploader

كل ما هناك ان هناك حلان:

الأول والأسهل:

ان تقوم ببرمجة صفحة بها فقط جملة Select SQL تعرض الدروس .. عندما تكون قد عرضت 10 دروس و رفعت درس جديد.. اي مستخدم جديد يدخل الصفحة سوف يظهر له المتصفح 11 درس فلا داعي لعمل اي شيء .. سوف تتحدث الصفحة تلقائيا عند عمل Request لها.

الثاني:

يحتاج منك لمعرفة بال Ajax بحيث تقوم بعمل Ajax Panel تظهر بداخلها الدروس و كل فترة تقوم بعمل Auto Update فيظهر للمستخدم الدرس الجديد حتى لو لم يقم بعمل Refresh للصفحة ..

الاكواد مليئة بالانترنت .. المهم انت تفهم الفكرة و بعدها يمكن استخدام البحث هنا او في Google لمعرفة كيفية عمل ذلك

بالتوفيق

شكرا لك اخي العزيز

بما ان ليش لدي وقت لتعلم ال Ajax سوف اقوم بالخيار الاول..

اواجه الآن مشكله في اضافه مارفعت من دروس في الداتابيس..

التيبل مكون من حقلين.. حقل الاسم والدايروكتوري

اقوم بعمل اضافه للداتابيس بعد اكمال عمليه الرفع كالآتي:

	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim ImagesFolder As String = "Lessons"
		Dim savePath As String
		Dim saveFile As String

		Dim con As New OleDb.OleDbConnection
		Dim DBConn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("App_Data\DB.mdb"))
		Dim DBCmd As New OleDbCommand
		Dim DSet As New DataSet

		' upload the file
		If (FileUpload1.HasFile) Then
			' set the directories
			savePath = Path.Combine(Request.PhysicalApplicationPath, ImagesFolder)
			' save the image
			saveFile = Path.Combine(savePath, FileUpload1.FileName)
			FileUpload1.SaveAs(saveFile)
			' 
			' Notify the user that the file was uploaded successfully.
			StatusLabel.Text = "تم رفع الدرس بنجاح."

			' add the lesson to the database
			Try

				DBCmd.Connection = DBConn
				DBCmd.CommandType = CommandType.Text
				DBCmd.CommandText = "INSERT INTO Lessons(LessonName,LessonURL)" & _
			   "values ('" & TextLsn.Text & "','" & savePath & "') "
				DBConn.Open()
				DBCmd.ExecuteNonQuery()
				DBConn.Close()

			Catch exp As Exception
				Response.Write(exp)
			End Try

		Else
			' Notify the user that a file was not uploaded.
			StatusLabel.Text = "تأكد من تحديد الدرس المراد رفعه ثــم حاول مره أخرى"
		End If
	End Sub

End Class

اين الخطأ في الكود حيث لاتتم عمليه الاضافه

شكرا لك على جهودك وأثابك الله

هل تظهر لك رسالة خطأ؟؟

اعرضها

تظهر لدي هذه الرساله

System.Data.OleDb.OleDbException: No value given for one or more required parameters.
   at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
   at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
   at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
   at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
   at System.Data.OleDb.OleDbCommand.ExecuteReader()
   at addlesson.Button1_Click(Object sender, EventArgs e)

المشكله تظهر عند اضافه الباث للملف المرفوع... لما حذفته وقمت بتعديل الجمله لاضافه الاسم فقط تمشي معاي اوكي

؟؟؟

..

تأكد من بنية الجدول جيدا

تأكد من السم الحقل : LessonURL

البنيه صحيحه

lessonURL >>>> text

لما اضيف تكست عادي يمشي اوكي

المشكله في الباث وبس

هل السبب نوع الفيلد مثلا؟؟

ربما ال savePath تكون null

اعمل Debug و انظر إن كانت فارغة او لأ

الباث موجود

واستطعت عرضه في تكست للتأكد

ربما ال field Width لل savePath

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

عزيزي محمد

مستحيل ان يكون هذا هو السبب

فالفيلد يستوعب 255 كاركتر

البرمجة = منطق

افتح الكود امامك كاملا .. فكر بمنطقية في سؤال واحد فقط : أين يمكن ان يكون مصدر الخطأ؟؟؟

قد يكون الخطأ في سطر في الاعلى و لكن تظهر لك رسالة الخطأ في مكان بالأسفل تعتمد على ما سبقها..

نصيحتي استخدم ال Debug لمعرفة الخطأ فهو حلك الوحيد

يمكنك استخدام Trace فهو ميزة رائعة

لاستخدامه قم بوضع الخاصية :

<%@ Page Trace="true" ........

شكرا لكم على جهودكم يااخ محمد و arwany

قمت بعمل debug وايضا استخدمت خاصية ال trace...

تم حل المشكله ولو انني لم افهمها منطقيا

الكود كما هو لم يتغير ولكنني قمت بتعريف Textbox واسندت قيمة ال savepath اليه

قمت باستخدام الtextbox.text في جمله ال insert عوضا عن استخدام المتغير مباشره...

جزاكم الله خير وسدد خطاكم على جهودكم ياخبراؤنا