اضافة التعليقات والنصوص على الصفحة

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

أخى العزيز

اللى انت عاوزه ده يتم عن طريق كنترول اسمها DataList1

بعد كده هتجيب SqlDataSource1

و هتعطى له جملة ال select

طبعا هتعطى له اللى انت عاوزه بس يظهر

و بعد كده هتعطى لل datalist1 اللى فى datasource

SqlDataSource1

بس كده من غير جملة كود واحدة

طبعا انت عارف ازاى تعمل جملة الأدخال

اتمنى اكون افدتك

جرب و انا معك اهو

سوف أقوم بالتجربة أخي وعزيزي bodaman ومن ثم سوف أقوم بالرد عليك وجزاك الله خيراً

أخي الكريم bodaman

أضفت الكنترول اللي هو data list

وعملت AccessDataSource2

واخترت الجدول

واضفت الحقول اللازمة والمطلوبة

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

A field or property with the name 'emp_comment' was not found on the selected data source.

والكود اللي هو هدا

Dim con As New Data.OleDb.OleDbConnection

Dim cmd As New Data.OleDb.OleDbCommand

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

con.ConnectionString = ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + Server.MapPath(".\\App_Data\db1.mdb"))

cmd.Connection = con

cmd.CommandText = "insert into problems (emp_no,emp_name,emp_comment) values (@emp_no,@emp_name,@emp_comment)"

cmd.Parameters.AddWithValue("@emp_no", Session("emp_no").ToString())

cmd.Parameters.AddWithValue("@emp_name", Session("emp_name").ToString())

cmd.Parameters.AddWithValue("@emp_comment", Me.TextBox1.Text).ToString()

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("sent ok")

End Sub

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

اخى العزيز

تاكد بس انك دخلت جملة ال select صحيحة فيها 'emp_comment'

لانه بيقول انه مش لاقى الحقل ده فى حالة ا لعرض

جرب و انا معك

السلام عليكم اخي العزيز bodaman

اخي الكريم لقد اضفت الحقل في select

ولا أدري ما هو السبب اعتقد ربما لأن في نفس الصفحة اكثر من AccessDataSource

وهذا هو الملف

أرجو أن تساعدني ونصل الى حل

والله يا اخي الكريم bodaman لقد خجلت كثيراً منك

يعني صرت بمعدل كل يوم اسألك سؤال وحضرتك ما تركتني احتار في سؤال الا وحاولت مساعدتي وكنت جمبي توصلني الى ما احتاجه

حقاً جزاك الله خير وبارك الله فيك

databaselink.rar

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

أخى العزيز

ده رابط للمشروع بالتعديل

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

أخى العزيز

ناقص تحط الكود ده بعد الحفظ

DataList1.DataSourceID = AccessDataSource2.ID
        DataList1.DataBind()

أخي الكريم لقد عمل البرنامج صحيح

لكن للأسف ليش هذا ما اريده

انا لا اريد ان تعمل الصفحة كصفحة افتراضية اطلاقاً

لاحظت انك قمت بتعطيل هذا الكود

If Session("emp_name") = "" Then

'Response.Redirect("default.aspx")

Else

End If

مع العلم بأني اريد هذا الكود لكي لا يتم الدخول تلقائياً الى هذه الصفحة بدون تسجيل الدخول بصفة admin من الصفحة الاولى

وايضاً

لو لاحظت اني وضعت emp_no و emp_name في session اي اني اريد ان يظهر لي في الdata list رقم الموظف واسمه الذي تم تسجيل الدخول بيهما من صفحة تسجيل الدخول في البداية أي اني لا اريد ان ادخلهما بنفسي اريد تؤخذ قيمهم من الداتا بيز

أرجو أن تكون وصلت الفكرة يا أخي الكريم

المعذرة لك يا اخي الفاضل

أخي الكريم هو فعلاً عرض البيانات التي قمت بتخزينها

لكن انا اريد أن ادخل بيانات الى الجدول ومن ثم يقوم بعرضها

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

اخى العزيز

انا عطلت الكود اللى انت بتقول عليه علشان انا لما عملت رن عملت على الصفحة مرة دى مرة واحدة فبالتالى قيمة ال session

هتطلع null

و ده خطأ علشان كده انا شيلت اى حاجة فى ال session

اللى عليك ان ترجع الكود اللى انا شلته ده

و تحفظ من ال session

مش من textbox2

جرب و ان امعك

اتمنى اكون افدتك

أخي bodaman

أنا عايز قيمة emp_no و emp_name من الsession

وقيمة emp_comment من اللي حدخله في الtextbox

وفي النهاية يتخزنو عندي في الداتا بيز

واوبعد ما يتخزن يتعرض عندي التعليق على الشاشة مع اسم الموظف ورقمه

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

أخى العزيز

رابطي

أخي الكريم جزاك الله خير :lol: أخيرأ زبط واشتغل والحمدلله

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

وان شاء الله رح احلها

وجزاك الله خير اخي bodaman بجد تعبتك كتير

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