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

ماهو الخطاء بهذه الكود

بدأه مازن الاحمر في 7 نوفمبر 2011 · 26 رد · 2,943 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي مشكلة في كود الحذف .. لا اعلم لمــــــــــــــــــــآذ لا يقـــــــــــوم بحـذف ا لسجل الذي اضغط عليه

هذه الكود ياليت تقولو لي شنو الخطاء فيه

Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")

Dim com As New SqlCommand()

Dim sql As String

Dim rowIndex As Boolean '= Convert.ToInt32(e.GetType)

Dim row As GridViewRow = GridView1.Rows(rowIndex)

Dim act As GridViewRow = TryCast(row.FindControl("GridView2"), GridViewRow)

Dim lin As Label = TryCast(act.FindControl("Label1"), Label)

sql = "delete from specialty where specialtyid=" & lin.Text & ""

com = New SqlCommand(sql, con)

con.Open()

com.ExecuteNonQuery()

con.Close()

#2

السلام عليكم ...

ما هو الحدث الذي أخذت منه الكود ..

الخطأ في هذا السطر 

Dim rowIndex As Boolean '= Convert.ToInt32(e.GetType)

فلو كان الحدث هو GridView1_RowDeleting فاكتب مباشرة :

Dim row As GridViewRow = GridView1.Rows(e.RowIndex)

حاول استخدام التنقيح لمعرفة قيم المتحولات ..

post-91400-1180095795.jpg

3

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3
houssam11350_11350 كتب:

السلام عليكم ...

ما هو الحدث الذي أخذت منه الكود ..

الخطأ في هذا السطر 

Dim rowIndex As Boolean '= Convert.ToInt32(e.GetType)

فلو كان الحدث هو GridView1_RowDeleting فاكتب مباشرة :

Dim row As GridViewRow = GridView1.Rows(e.RowIndex)

حاول استخدام التنقيح لمعرفة قيم المتحولات ..

post-91400-1180095795.jpg

-----------------------------------------------

اخي العزيز مشكور على ردك السريع .. وكل عام وانت بخير .. وعساك من عواده ..

سويت مثل ماقلت لي .. بس طلعت هذا الخطاء

(لم يتم تعيين مرجع كائن لمثيل كائن.)

ومؤشر الخطاء يطلع عند الكودهذه

Dim lin As Label = TryCast(act.FindControl("Label1"), Label)

اخي العزيز

كل الحكاية من الكود هذه اني عندي .. غرد فيو وداخلها غرد فيو اخرى واريد ان اضع زر حذف داخل الغرد فيو .. الثانية ... بس مارضي يشتغل ..

سوف ارفق لك االمثال ياليت تشوف ايش الخطاء فيه

WebSite8.rar

#4

السلام عليكم ...

 Protected Sub GridView2_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs)

    	Dim x As GridView = TryCast(sender, GridView)
    	Dim lin As Label = TryCast(x.Rows(e.RowIndex).FindControl("Label4"), Label)
    	MsgBox(lin.Text)
    	SqlDataSource1.DeleteParameters.Clear()
    	SqlDataSource1.DeleteParameters.Add("@id", lin.Text)

	End Sub

و الــ markup

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
        	DataKeyNames="id" DataSourceID="SqlDataSource1">
        	<Columns>
            	<asp:TemplateField>
                	<ItemTemplate>
                    	<asp:Label ID="Label1" runat="server" Text='<%# Eval("id") %>'></asp:Label>
                    	<asp:Label ID="Label2" runat="server" Text='<%# Eval("name") %>'></asp:Label>
                    	<asp:Label ID="Label3" runat="server" Text='<%# Eval("sal") %>'></asp:Label>
                    	<br />
                    	<br />
                    	<asp:GridView ID="GridView2" runat="server" AutoGenerateColumns="False" 
                        	DataKeyNames="id" DataSourceID="SqlDataSource1" 
                        	onrowdeleting="GridView2_RowDeleting">
                        	<Columns>
                            	<asp:TemplateField>
                                	<ItemTemplate>
                                    	<asp:Label ID="Label4" runat="server" Text='<%# Eval("id") %>'></asp:Label>
                                    	  :
                                    	<asp:Label ID="Label5" runat="server" Text='<%# Eval("name") %>'></asp:Label>
                                    	 :
                                    	<asp:Label ID="Label6" runat="server" Text='<%# Eval("age") %>'></asp:Label>
                                    	<br />
                                    	<asp:LinkButton ID="LinkButton1" runat="server" CommandName="delete" 
                                        	onclick="LinkButton1_Click">delete1</asp:LinkButton>
                                	</ItemTemplate>
                            	</asp:TemplateField>
                        	</Columns>
                    	</asp:GridView>
                    	<asp:SqlDataSource ID="SqlDataSource1" runat="server" 
                        	ConnectionString="<%$ ConnectionStrings:ConnectionString %>" 
                        	SelectCommand="SELECT * FROM " 
                        	DeleteCommand="delete from  where id=@id" ></asp:SqlDataSource>
                	</ItemTemplate>
            	</asp:TemplateField>
        	</Columns>
    	</asp:GridView>

انتبه أين تمت إضافة السطر ..

DeleteCommand="delete from  where id=@id"

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 7 نوفمبر 2011 في 16:44

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#5
houssam11350_11350 كتب:

السلام عليكم ...

 Protected Sub GridView2_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs)

    	Dim x As GridView = TryCast(sender, GridView)
    	Dim lin As Label = TryCast(x.Rows(e.RowIndex).FindControl("Label4"), Label)
    	MsgBox(lin.Text)
    	SqlDataSource1.DeleteParameters.Clear()
    	SqlDataSource1.DeleteParameters.Add("@id", lin.Text)

	End Sub

و الــ markup

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
        	DataKeyNames="id" DataSourceID="SqlDataSource1">
        	<Columns>
            	<asp:TemplateField>
                	<ItemTemplate>
                    	<asp:Label ID="Label1" runat="server" Text='<%# Eval("id") %>'></asp:Label>
                    	<asp:Label ID="Label2" runat="server" Text='<%# Eval("name") %>'></asp:Label>
                    	<asp:Label ID="Label3" runat="server" Text='<%# Eval("sal") %>'></asp:Label>
                    	<br />
                    	<br />
                    	<asp:GridView ID="GridView2" runat="server" AutoGenerateColumns="False" 
                        	DataKeyNames="id" DataSourceID="SqlDataSource1" 
                        	onrowdeleting="GridView2_RowDeleting">
                        	<Columns>
                            	<asp:TemplateField>
                                	<ItemTemplate>
                                    	<asp:Label ID="Label4" runat="server" Text='<%# Eval("id") %>'></asp:Label>
                                    	  :
                                    	<asp:Label ID="Label5" runat="server" Text='<%# Eval("name") %>'></asp:Label>
                                    	 :
                                    	<asp:Label ID="Label6" runat="server" Text='<%# Eval("age") %>'></asp:Label>
                                    	<br />
                                    	<asp:LinkButton ID="LinkButton1" runat="server" CommandName="delete" 
                                        	onclick="LinkButton1_Click">delete1</asp:LinkButton>
                                	</ItemTemplate>
                            	</asp:TemplateField>
                        	</Columns>
                    	</asp:GridView>
                    	<asp:SqlDataSource ID="SqlDataSource1" runat="server" 
                        	ConnectionString="<%$ ConnectionStrings:ConnectionString %>" 
                        	SelectCommand="SELECT * FROM " 
                        	DeleteCommand="delete from  where id=@id" ></asp:SqlDataSource>
                	</ItemTemplate>
            	</asp:TemplateField>
        	</Columns>
    	</asp:GridView>

انتبه أين تمت إضافة السطر ..

DeleteCommand="delete from  where id=@id"

----------------------------

مبدع يا استاذي . مشاء الله عليك ومشــــــــــــــــــــــــكور ربنا يوفقك يااارب

#6
مازن الاحمر كتب:

----------------------------

مبدع يا استاذي . مشاء الله عليك ومشــــــــــــــــــــــــكور ربنا يوفقك يااارب

------------------------------

اخي .. حصلت عندي مشكلة عندما حاولت ان اعمل نفس الفكرة بس في الدتا لست .. اضفة 2 دتا لست . وكنت احاول اولاُ ان اقوم باضافة موضوع في الدتا لست الثانية ومن بعد اقوم بحذف الموضوع في الدتا لست الاول والثاني ولكن .. يطلع لي الخطاء هذه

ExecuteNonQuery: لم تتم تهيئة الخاصية Connection.

وهذه المثال الي قلت بتصميمة ..

ادري اخي اني ثقلت عليك .. لكن انتم مرجعنا في التعلم وحاب استفيد من خبرتكم وان شاء الله ربي يجعل هذه في ميزان حسناتك

سوف اقوم بارفاق المثال في المرفقات

WebSite8.rar

#7

السلام عليكم ..

الــ command يحتاج إلى Connection حتى يعمل .... هذا هو مضمون رسالة الخطأ ...

Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    	Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
    	Dim com As New SqlCommand()
    	com.CommandType = Data.CommandType.Text
    	com.CommandText = "insert into nots (nots) values(@nots)"
    	Dim link As LinkButton = TryCast(sender, LinkButton)
    	Dim dli As DataListItem = (CType((link.NamingContainer), DataListItem))

    	con.Open()
    	Dim txt As String = (CType(dli.FindControl("TextBox2"), TextBox)).Text
    	com.Connection = con
    	com.Parameters.AddWithValue("@nots", txt)
    	com.ExecuteNonQuery()
    	con.Close()
    	Response.Redirect("Default2.aspx")

	End Sub

طبعا الكود فيه أخطاء كثيرة منطقية .. فأنت نضيف في جدول و تحذف من آخر ...

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

و هنا رابط مفيد ..

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#8
houssam11350_11350 كتب:

السلام عليكم ..

الــ command يحتاج إلى Connection حتى يعمل .... هذا هو مضمون رسالة الخطأ ...

Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    	Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
    	Dim com As New SqlCommand()
    	com.CommandType = Data.CommandType.Text
    	com.CommandText = "insert into nots (nots) values(@nots)"
    	Dim link As LinkButton = TryCast(sender, LinkButton)
    	Dim dli As DataListItem = (CType((link.NamingContainer), DataListItem))

    	con.Open()
    	Dim txt As String = (CType(dli.FindControl("TextBox2"), TextBox)).Text
    	com.Connection = con
    	com.Parameters.AddWithValue("@nots", txt)
    	com.ExecuteNonQuery()
    	con.Close()
    	Response.Redirect("Default2.aspx")

	End Sub

طبعا الكود فيه أخطاء كثيرة منطقية .. فأنت نضيف في جدول و تحذف من آخر ...

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

و هنا رابط مفيد ..

------------------------------------------

اشكرك يا استاذي العزيز على المعلومات القيمة .. وكمان على الكتب القيمة ..

ايوة اعمل اخي انه في اخطاء بس .. انا جالس احاول اطبق فكرة براسي ... والفكرة اني مثل اعمل موضوع صغير واقوم بالتعليق عليه .. وعندما اقوم بحذف الموضوع الرئيسي طبعاُ لازم تنحذف كل التعليقات .. سوف احاول في هذه الفكرة .. واذا صادفتني اي مشكلة .. سوف استعين بقدراتك اخي العزيز .. واسئل الله ان يجعل كل اعمالك في ميزان حسناتك .. والسموحة لو تعبتك معي

#9

السلام عليكم

اخي العزيز قمت بعمل الفكرة الي قلت لك بسويها . والحمد لله كل شي اوكية بس في مشكلة .. في زر حذف الموضوع .. وهذه تلخيص للمشكلة

--------------------------------------------------------------------------------

1- عندما اكتب موضوع انا . واقوم باتعليق علية ويدخل اي شخص يعلق على موضوعي .. واريد احذف الموضوع الذي قمت بكتابته .. يحذف لي الموضوع مع التعاليق من الدتا لست .. لكن يقوم بحذف التعاليق والموضوع من الدتا لست الاول والثانية ولكن في قاعدت البيانات يحذف لي بس تعليقي وتعاليق الاشخاص الاخرين لايحذفهم .. لاني رابط حذف التعليق عن طريق السيشن .. الاستعلام يروح يشوف هل الي كتب التعليق نفس الشخص الذي يريد ان يحذف التعليق فيلاحظ انه شخص ثاني .. عندها لايقوم بالحذف ..

الخطاء الثاني

2- عندما يدخل شخص غير الي كتب الموضوع .. ويريد ان يحذف الموضوع الذي كتبة شخص اخر .. ويقوم بالضغط على زر حذف للموضوع .. يقوم بحذف تعليقة المفروض مايحذف تعليقة الا لو ضغط فقط على زر حذف تعليق ..( السبب اني مسوي في زر حذف الموضوع اقوله روح احذف في كل التعاليق المتعلقة بهذه الموضوع بشرط ان الاسم يساوي السيشن .. فيروح يشيك هل السيشن صحيح يشوف انه صحيح ويحذف تعليق .. بس المفروض مايحذفة الا في حالة ان ضغط على حذف تعليق )

هذه الاخطا كلها في زر حذف الموضوع

--------------------------------------------

وهذه الكود

  Try
            Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
            Dim com As New SqlCommand()
            com.CommandType = Data.CommandType.Text
            com.CommandText = "delete from comnd where id=@id and name=@name"
            Dim link As LinkButton = TryCast(sender, LinkButton)
            Dim dli As DataListItem = (CType((link.NamingContainer), DataListItem))

            con.Open()
            Dim txt As String = (CType(dli.FindControl("Label3"), Label)).Text
            com.Connection = con
            com.Parameters.AddWithValue("@id", txt)
            com.Parameters.AddWithValue("@name", Session("name"))
            com.ExecuteNonQuery()
            con.Close()
            com.Parameters.Clear()

            com.CommandText = "delete from nots where id_com=@id_com and name=@name "
            con.Open()
            Dim txt1 As String = (CType(dli.FindControl("Label3"), Label)).Text
            com.Connection = con
            com.Parameters.AddWithValue("@id_com", txt)
            com.Parameters.AddWithValue("@name", Session("name"))
            com.ExecuteNonQuery()
            con.Close()
            DataList1.DataBind()
        Catch ex As Exception
            MsgBox("ليس لديك صلاحية بحذف الموضوع ")
        End Try

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

WebSite8.rar

#10
مازن الاحمر كتب:

السلام عليكم

اخي العزيز قمت بعمل الفكرة الي قلت لك بسويها . والحمد لله كل شي اوكية بس في مشكلة .. في زر حذف الموضوع .. وهذه تلخيص للمشكلة

--------------------------------------------------------------------------------

1- عندما اكتب موضوع انا . واقوم باتعليق علية ويدخل اي شخص يعلق على موضوعي .. واريد احذف الموضوع الذي قمت بكتابته .. يحذف لي الموضوع مع التعاليق من الدتا لست .. لكن يقوم بحذف التعاليق والموضوع من الدتا لست الاول والثانية ولكن في قاعدت البيانات يحذف لي بس تعليقي وتعاليق الاشخاص الاخرين لايحذفهم .. لاني رابط حذف التعليق عن طريق السيشن .. الاستعلام يروح يشوف هل الي كتب التعليق نفس الشخص الذي يريد ان يحذف التعليق فيلاحظ انه شخص ثاني .. عندها لايقوم بالحذف ..

الخطاء الثاني

2- عندما يدخل شخص غير الي كتب الموضوع .. ويريد ان يحذف الموضوع الذي كتبة شخص اخر .. ويقوم بالضغط على زر حذف للموضوع .. يقوم بحذف تعليقة المفروض مايحذف تعليقة الا لو ضغط فقط على زر حذف تعليق ..( السبب اني مسوي في زر حذف الموضوع اقوله روح احذف في كل التعاليق المتعلقة بهذه الموضوع بشرط ان الاسم يساوي السيشن .. فيروح يشيك هل السيشن صحيح يشوف انه صحيح ويحذف تعليق .. بس المفروض مايحذفة الا في حالة ان ضغط على حذف تعليق )

هذه الاخطا كلها في زر حذف الموضوع

--------------------------------------------

وهذه الكود

  Try
            Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
            Dim com As New SqlCommand()
            com.CommandType = Data.CommandType.Text
            com.CommandText = "delete from comnd where id=@id and name=@name"
            Dim link As LinkButton = TryCast(sender, LinkButton)
            Dim dli As DataListItem = (CType((link.NamingContainer), DataListItem))

            con.Open()
            Dim txt As String = (CType(dli.FindControl("Label3"), Label)).Text
            com.Connection = con
            com.Parameters.AddWithValue("@id", txt)
            com.Parameters.AddWithValue("@name", Session("name"))
            com.ExecuteNonQuery()
            con.Close()
            com.Parameters.Clear()

            com.CommandText = "delete from nots where id_com=@id_com and name=@name "
            con.Open()
            Dim txt1 As String = (CType(dli.FindControl("Label3"), Label)).Text
            com.Connection = con
            com.Parameters.AddWithValue("@id_com", txt)
            com.Parameters.AddWithValue("@name", Session("name"))
            com.ExecuteNonQuery()
            con.Close()
            DataList1.DataBind()
        Catch ex As Exception
            MsgBox("ليس لديك صلاحية بحذف الموضوع ")
        End Try

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

-------------------------------------

خلاص يا استاذي العزيز . حليت المشكلة وهذه بفضل الله . ثم انت .. واسئل الله ان يجعل هذه في ميزان حسناتك يااااااااااااااارب ويزيدك من علمة ياااارب

استاذي العزيز اريد منك فقط ان تقوم بمراجعت اكوادي .. وتقولي هل فيها اخطاء منطقية .... اريد ان استفيد منك ياخي العزيز ولك جزيل الشكر سوف اقوم بارفاق المثال الي قمت بتصميمة

استاذي العزيز : حسام اريد منك ان تقوم بمراجعت اكوادي .. وتقولي هل فيها اخطاء منطقية .... اريد ان استفيد منك ياخي العزيز ولك جزيل الشكر سوف اقوم بارفاق المثال الي قمت بتصميمة

WebSite8.rar

تم تعديل هذه المشاركة بواسطة مازن الاحمر في 9 نوفمبر 2011 في 09:46

#11

السلام عليكم ...

بشكل عام الأكواد جيدة .. لكن كما قلت لك .. في نسخة سابقة .. اعتقد أنك كنت تقوم بالإضافة بجدول (التعليقات) , لكن الحذف كان يتم من جدول آخر ...

بالتوفيق ...

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#12
houssam11350_11350 كتب:

السلام عليكم ...

بشكل عام الأكواد جيدة .. لكن كما قلت لك .. في نسخة سابقة .. اعتقد أنك كنت تقوم بالإضافة بجدول (التعليقات) , لكن الحذف كان يتم من جدول آخر ...

بالتوفيق ...

----------------------------

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

لكن عندي سوال .. لو عندي كنترول Image1 . داخل الدتا لست .. واريد ان اجعلها مخفيه موقتاً ..وعندما ارفع صورة داخل الدتا لست اقوم باظهرها .. كيف اعمل هذه الشي ..؟

#13

السلام عليكم ..

اقتباس
لكن عندي سوال .. لو عندي كنترول Image1 . داخل الدتا لست .. واريد ان اجعلها مخفيه موقتاً ..وعندما ارفع صورة داخل الدتا لست اقوم باظهرها .. كيف اعمل هذه الشي ..؟

في الملف Default3.aspx.vb اكتب الكود التالي :

 Public Function IsImageExists(ByVal filePath As String) As Boolean
    	If IO.File.Exists(filePath) Then
        	Return True
    	Else
        	Return False
    	End If
End Function

و في الملف Default3.aspx اكتب مايلي :

<asp:Image ID="Image1" runat="server" Height="54px" 
                            	ImageUrl='<%# "~/imags/" +  Eval("img").ToString().Trim() %>' Width="79px"  Visible='<%#IsImageExists(Server.MapPath("~/imags/" + Eval("img").ToString().Trim())) %>' />

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 9 نوفمبر 2011 في 12:56

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#14
houssam11350_11350 كتب:

السلام عليكم ..

في الملف Default3.aspx.vb اكتب الكود التالي :

 Public Function IsImageExists(ByVal filePath As String) As Boolean
    	If IO.File.Exists(filePath) Then
        	Return True
    	Else
        	Return False
    	End If
End Function

و في الملف Default3.aspx اكتب مايلي :

<asp:Image ID="Image1" runat="server" Height="54px" 
                            	ImageUrl='<%# "~/imags/" +  Eval("img").ToString().Trim() %>' Width="79px"  Visible='<%#IsImageExists(Server.MapPath("~/imags/" + Eval("img").ToString().Trim())) %>' />

---------------------------------

مشكور استاذي العزيز .. جاري التجربة ..

#15
houssam11350_11350 كتب:

السلام عليكم ..

في الملف Default3.aspx.vb اكتب الكود التالي :

 Public Function IsImageExists(ByVal filePath As String) As Boolean
    	If IO.File.Exists(filePath) Then
        	Return True
    	Else
        	Return False
    	End If
End Function

و في الملف Default3.aspx اكتب مايلي :

<asp:Image ID="Image1" runat="server" Height="54px" 
                            	ImageUrl='<%# "~/imags/" +  Eval("img").ToString().Trim() %>' Width="79px"  Visible='<%#IsImageExists(Server.MapPath("~/imags/" + Eval("img").ToString().Trim())) %>' />

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

استاذي العزيز .. كتبة الكود الي قلت لي عليه ولكن .. عند الاضافة يقوم بتخزين لي القيمة المنطقة .. true .. والصورة لاتظهر وهذه الكود الذي قمت بكتابته

----------------------------------

Dim filepath = Server.MapPath("files")
Dim filename As String = ""
If (FileUpload1.HasFile) Then
filename = FileUpload1.FileName
filepath = filepath + "//" + filename
FileUpload1.SaveAs(filepath)

End If
Dim xx As String = (IsImageExists(filepath))
x.sql = " insert into comnd (name,img,comn,image) values(@name,@img,@comn,@image)"
x.cm = New SqlCommand(x.sql, x.con)
x.con.Open()
x.cm.Parameters.AddWithValue("@name", Session("name"))
x.cm.Parameters.AddWithValue("@img", Session("img"))
x.cm.Parameters.AddWithValue("@comn", TextBox1.Text)
x.cm.Parameters.AddWithValue("@image", xx.ToString)
x.cm.ExecuteNonQuery()
x.con.Close()
DataList1.DataBind()
TextBox1.Text = ""
TextBox1.Focus()
MsgBox(xx.ToString)
Catch ex As Exception

End Try

------------------------

هل الكود صحيح هكذا ام فية خطاء ..؟

تم تعديل هذه المشاركة بواسطة مازن الاحمر في 9 نوفمبر 2011 في 18:02

#16

السلام عليكم ..

x.cm.Parameters.AddWithValue("@image",filename)

طالما اننا نخزن أسماء الملفات فقط في القاعدة ... حسب طريقة العمل السابقة ..

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#17
houssam11350_11350 كتب:

السلام عليكم ..

x.cm.Parameters.AddWithValue("@image",filename)

طالما اننا نخزن أسماء الملفات فقط في القاعدة ... حسب طريقة العمل السابقة ..

-------------------------

مشكور استاذي العزيز .. كم انت مبدع ... الله يجزيك الف خير .. نجحت العملية ياغالي . اشكرك والله

#18

السلام عليكم

استاذي العزيز واجهتني مشكلة في زر حذف الموضوع : المشكلة كتالي :

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

هذه هو الكود 

  Try

            Dim x As New clas
            x.sql = "select name from comnd"
            x.da = New SqlDataAdapter(x.sql, x.con)
            x.ds = New DataSet
            x.da.Fill(x.ds)
            Session("d_name") = x.ds.Tables(0).Rows(0)(0)

            If Session("d_name") = Session("name") Then
                Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
                Dim com As New SqlCommand()
                com.CommandType = Data.CommandType.Text
                com.CommandText = "delete from comnd where id=@id"
                Dim link As LinkButton = TryCast(sender, LinkButton)
                Dim dli As DataListItem = (CType((link.NamingContainer), DataListItem))

                con.Open()
                Dim txt As String = (CType(dli.FindControl("Label3"), Label)).Text
                com.Connection = con
                com.Parameters.AddWithValue("@id", txt)
                'com.Parameters.AddWithValue("@name", Session("name"))
                com.ExecuteNonQuery()
                con.Close()
                com.Parameters.Clear()

                com.CommandText = "delete from nots where id_com=@id_com "
                con.Open()
                Dim txt1 As String = (CType(dli.FindControl("Label3"), Label)).Text
                com.Connection = con
                com.Parameters.AddWithValue("@id_com", txt)
                'com.Parameters.AddWithValue("@name", Session("name"))
                com.ExecuteNonQuery()
                con.Close()
                DataList1.DataBind()
                Session.Abandon()
            Else
                Response.Write("ليس لديك صلاحية بالحذف")
            End If

        Catch ex As Exception
            ' MsgBox("ليس لديك صلاحية بحذف الموضوع ")
        End Try
#19

السلام عليكم ..

تضع لكل تعليق رقم المستخدم الذي اضافه userID و عند الحذف نحدد هل المستخدم الذي يقوم بالحذف ( من Session) هو المستخدم الذي قام بإضافة التعليق ...عندها نحذف و إلا نظهر رسالة خطأ ..

حاول بالأمثلة ... حتى و لو أخطأت ... لا مشكلة ...

لكن للأسف .. قاعدة البيانات التي أرسلتها يبدو أنها تعمل على سيكوال سيرفر 2008 لم استطع فتحها و الجداول غير واضحة فلدينا nots , comn , comnd ...

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 10 نوفمبر 2011 في 17:27

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#20
houssam11350_11350 كتب:

السلام عليكم ..

تضع لكل تعليق رقم المستخدم الذي اضافه userID و عند الحذف نحدد هل المستخدم الذي يقوم بالحذف ( من Session) هو المستخدم الذي قام بإضافة التعليق ...عندها نحذف و إلا نظهر رسالة خطأ ..

حاول بالأمثلة ... حتى و لو أخطأت ... لا مشكلة ...

لكن للأسف .. قاعدة البيانات التي أرسلتها يبدو أنها تعمل على سيكوال سيرفر 2008 لم استطع فتحها و الجداول غير واضحة فلدينا nots , comn , comnd ...

-------------------------

خلاص ضبط معي اخي العزيز . الله يجزيك كل خير ياغالي .. ومشكور استاذي العزيز

تم تعديل هذه المشاركة بواسطة مازن الاحمر في 10 نوفمبر 2011 في 22:45

#21

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

جمعه مباركة يا استاذي العزيز حسام

عندي سوال ... يا غالي ... اريد ان اجعل التكست بوكس حق اضافة تعليق الي موجود داخل الدتا لست الثانية مخفي .. واريد ان اضع لينك بوتون في الدتا لست الاول .. فعندما اقوم بكتابة موضوع جديد .. يظهر لي الموضوع وتحته الينك بوتون (اضف تعليق ) وعند الضغط على الزر هذه يروح يظهر لي التكس بوكس حق التعليق واكتب التعليق هل استطيع ان اعمل هكذا يا استاذي حسام ؟

#22

السلام عليكم ..

نحتاج لاستخدام الجافا سكربت ...و الــ CssClass كمايلي ..

<head runat="server">
	<title></title>
	<script type="text/javascript"  language="javascript">
	function MakeVisible(textBox)
	{
   	document.getElementById(textBox).style.visibility='visible';

	}
	</script>

	<style type="text/css">
    	.style1
    	{
        	width: 100%;
    	}
    	.style2
    	{
        	width: 78px;
    	}
    	.style3
    	{
        	width: 43px;
    	}
    	.myClass
    	{
    		visibility:hidden;
    	}
	</style>
</head>

ثم نضيف ال HyperLink

<asp:HyperLink ID="HyperLink1" runat="server" >Show Comment Box</asp:HyperLink>
            	<asp:TextBox ID="TextBox2" runat="server" Height="41px" TextMode="MultiLine" 
                	Width="357px" CssClass="myClass" ></asp:TextBox>
            	<br />

            	<asp:LinkButton ID="LinkButton2" runat="server" onclick="LinkButton2_Click">إضف تعليق</asp:LinkButton>

            	<br />

ثم الحدث DataList1_ItemDataBound

Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
    	Dim hyperLink As HyperLink = TryCast(e.Item.FindControl("HyperLink1"), HyperLink)
    	Dim textBox As TextBox = TryCast(e.Item.FindControl("TextBox2"), TextBox)
    	hyperLink.Attributes.Add("href", "javascript:MakeVisible('" & textBox.ClientID & "');")
	End Sub
1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#23
houssam11350_11350 كتب:

السلام عليكم ..

نحتاج لاستخدام الجافا سكربت ...و الــ CssClass كمايلي ..

<head runat="server">
	<title></title>
	<script type="text/javascript"  language="javascript">
	function MakeVisible(textBox)
	{
   	document.getElementById(textBox).style.visibility='visible';

	}
	</script>

	<style type="text/css">
    	.style1
    	{
        	width: 100%;
    	}
    	.style2
    	{
        	width: 78px;
    	}
    	.style3
    	{
        	width: 43px;
    	}
    	.myClass
    	{
    		visibility:hidden;
    	}
	</style>
</head>

ثم نضيف ال HyperLink

<asp:HyperLink ID="HyperLink1" runat="server" >Show Comment Box</asp:HyperLink>
            	<asp:TextBox ID="TextBox2" runat="server" Height="41px" TextMode="MultiLine" 
                	Width="357px" CssClass="myClass" ></asp:TextBox>
            	<br />

            	<asp:LinkButton ID="LinkButton2" runat="server" onclick="LinkButton2_Click">إضف تعليق</asp:LinkButton>

            	<br />

ثم الحدث DataList1_ItemDataBound

Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
    	Dim hyperLink As HyperLink = TryCast(e.Item.FindControl("HyperLink1"), HyperLink)
    	Dim textBox As TextBox = TryCast(e.Item.FindControl("TextBox2"), TextBox)
    	hyperLink.Attributes.Add("href", "javascript:MakeVisible('" & textBox.ClientID & "');")
	End Sub

---------------------------

جاري التجربة يا استاذي العزيز حسام .. بصراحة ( والله انت مبدع بالشرح واسلوبك حلو وسلسل وسهل الفهم .. يا استاذي العزيز ) ماقدر كيف اكافيك على تعبك معي غير اني اقول الله يرزقك الجنه ويغفر لك ولوالديك ويرزقهم الجنه .. يااارب

#24

السلام عليكم

مششكور استاذي العزيز .. تمة العملية بنجاح

#25

السلام عليكم

كيف حالك استاذي العزيز . حاب اسئلك سوال

لو عندي data set

وفيها بيانات .. مخزنه مسبقاْ واريد ان اضيف فوق هذه البيانات بيانات اخرى .. بحيث اني عندما اقوم باضافات بيانات في الدتا لست . لا اريد ان تنحذف البيانات القديمة اريد ان تخزن معاها ؟

طبعاُ ان مخزن الدتا ست في سيشن ..

ياليت لو توضح لي بمثال صغير كيف اسوي هذه الكود

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