[تنبيه - عنوان غير مناسب : ]مشكلة في التحديث

بدأه thepast في 11 أغسطس 2012 · 10 رد · 460 مشاهدة · في ASP.NET

#111 أغسطس 2012 في 23:50 صاحب الموضوع

انا عندي صفحة وعندي زر الابديت

وضعت فيه الكود التالي

con = New OleDbConnection("Provider=MSDAORA.1;Password=dbateam;User ID=admin;Data Source=sbgmega;Persist Security Info=True")

        con.Open()


        Dim str As String = FileUpload1.PostedFile.FileName
        str = System.IO.Path.GetFileName(str)


        FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)
        Dim cm11 As New OleDbCommand("update emp_trans set attach='t_attach\" & str & "'Where sno=" & sno.Text, con)


        cm11.ExecuteNonQuery()



        Dim cmd As New OleDbCommand("update emp_trans set emp_no=" & emp_no.Text & "where sno=" & sno.Text, con)
        Dim cmd2 As New OleDbCommand("update emp_trans set name='" & emp_name.Text & "'where sno=" & sno.Text, con)
        Dim cmd3 As New OleDbCommand("update emp_trans set JOB_ID='" & job_id.Text & "'where sno=" & sno.Text, con)
        Dim cmd4 As New OleDbCommand("update emp_trans set NAT_ID ='" & nat.Text & "'where sno=" & sno.Text, con)
        Dim cmd5 As New OleDbCommand("update emp_trans set NAT_ID ='" & nat.Text & "'where sno=" & sno.Text, con)
        Dim cmd6 As New OleDbCommand("update emp_trans set proj_from ='" & from_proj.Text & "'where sno=" & sno.Text, con)
        Dim cmd7 As New OleDbCommand("update emp_trans set proj_to ='" & to_proj.Text & "'where sno=" & sno.Text, con)
        Dim cmd8 As New OleDbCommand("update emp_trans set trans_date ='" & trans_date.Text & "'where sno=" & sno.Text, con)
        Dim cmd9 As New OleDbCommand("update emp_trans set action ='" & action.Text & "'where sno=" & sno.Text, con)

        cmd.ExecuteNonQuery()
        cmd2.ExecuteNonQuery()
        cmd3.ExecuteNonQuery()
        cmd4.ExecuteNonQuery()
        cmd5.ExecuteNonQuery()
        cmd6.ExecuteNonQuery()
        cmd7.ExecuteNonQuery()
        cmd8.ExecuteNonQuery()
        cmd9.ExecuteNonQuery()

        con.Close()




        Dim message As String = "تم التحديث بنجاح"

        Dim sb As New System.Text.StringBuilder()

        sb.Append("<script type = 'text/javascript'>")

        sb.Append("window.onload=function(){")

        sb.Append("alert('")

        sb.Append(message)

        sb.Append("')};")

        sb.Append("</script>")

        ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

بس المشكلة اريد تعديل بسيط في الكود لان انا عندي ابلود

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

ارجوووكم المساعدة

#212 أغسطس 2012 في 18:27

قد يفيدك هذا الكود

	con = New OleDbConnection("Provider=MSDAORA.1;Password=dbateam;User ID=admin;Data Source=sbgmega;Persist Security Info=True")
        con.Open()

        Dim str As String = FileUpload1.PostedFile.FileName
        str = System.IO.Path.GetFileName(str)
try
        FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)
        Dim cmd As New OleDbCommand("update emp_trans set attach='t_attach\" & str & "' , emp_no=" & emp_no.Text & " , name='" & emp_name.Text & "' , JOB_ID='" & job_id.Text & "', NAT_ID ='" & nat.Text & "' , NAT_ID ='" & nat.Text & "' , proj_from ='" & from_proj.Text & "' , proj_to ='" & to_proj.Text & "' , trans_date ='" & trans_date.Text & "' ,action ='" & action.Text & "' where sno=" & sno.Text, con)

	cmd.ExecuteNonQuery()

        Dim message As String = "تم التحديث بنجاح"

        Dim sb As New System.Text.StringBuilder()

        sb.Append("<script type = 'text/javascript'>")

        sb.Append("window.onload=function(){")

        sb.Append("alert('")

        sb.Append(message)

        sb.Append("')};")

        sb.Append("</script>")

        ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())
 Catch ex As Exception

        Dim message As String =ex.Message

        Dim sb As New System.Text.StringBuilder()

        sb.Append("<script type = 'text/javascript'>")

        sb.Append("window.onload=function(){")

        sb.Append("alert('")

        sb.Append(message)

        sb.Append("')};")

        sb.Append("</script>")

        ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

 finally        
con.Close()
end try

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

#312 أغسطس 2012 في 23:03

جربت الكود يا اخي

بس في لا يخزن سواء كان الشرط متحقق ام لا

ارجوو المساعدة

#412 أغسطس 2012 في 23:59

أجري هذا التعديل:

Dim str As String = FileUpload1.PostedFile.FileName
str = System.IO.Path.GetFileName(str)

If (Not String.IsNullOrEmpty(str)) Then
        FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)
        Dim cm11 As New OleDbCommand("update emp_trans set attach='t_attach\" & str & "'Where sno=" & sno.Text, con)


        cm11.ExecuteNonQuery()
End If

فقط تحقق من أنه لا يوجد اسم (أي لم يتم اختيار ملف) ولا تقم بتنفيذ الاستعلام في هذه الحالة.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#513 أغسطس 2012 في 00:05

الأخ الكريم/الأخت الكريمة

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#614 أغسطس 2012 في 23:40

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

بس ظهرت عندي ايضا نفس المشكلة في جملة الانسيرت

 con = New OleDbConnection("Provider=MSDAORA.1;Password=ss;User ID=admin;Data Source=rr;Persist Security Info=True")

        con.Open()

        Dim str As String = FileUpload1.PostedFile.FileName
        str = System.IO.Path.GetFileName(str)
        If (Not String.IsNullOrEmpty(str)) Then


            '' Dim cmd As New OleDbCommand("insert into emp_trans(sno,emp_no) values ('" & sno.Text & "','" & emp_no.Text & "')", con)


            Dim cmd As New OleDbCommand("INSERT INTO emp_trans (sno,EMP_NO,attach) VALUES ('" & sno.Text & "','" & emp_no.Text & "','t_attach\" & str & "')", con)









            FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)


            cmd.ExecuteNonQuery()




            Dim message As String = "تم الحفظ بنجاح"

            Dim sb As New System.Text.StringBuilder()

            sb.Append("<script type = 'text/javascript'>")

            sb.Append("window.onload=function(){")

            sb.Append("alert('")

            sb.Append(message)

            sb.Append("')};")

            sb.Append("</script>")

            ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())




            con.Close()

        End If

ايضا هنا اذا لم ادخل في الاتاتش فايل لا يقبل الحفظ واذا وضعت يقبل

ارجوووكم المساعدة

#714 أغسطس 2012 في 23:55

المفترض أن تحل الجملة الشرطية If (Not String.IsNullOrEmpty(str)) Then ... End If المشكلة كما في حالة update.

للوقوف على السبب:

- إما قم بعمل debugging لمعرفة قيمة str ولماذا لا يتم تنفيذ الشرط بشكل صحيح

- أو قم بطباعة str لنرى إن كان هناك قيمة غريبة (الحل الأول أفضل لأنه يشمل حالات empty / null)

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#815 أغسطس 2012 في 00:04

المشكلة انها حلت في جملة الابديت

ولم تحل في جملة الانسيرت

لا ادري ماذا افعل

#915 أغسطس 2012 في 00:29

Xacker كتب:
للوقوف على السبب:
- إما قم بعمل debugging لمعرفة قيمة str ولماذا لا يتم تنفيذ الشرط بشكل صحيح
- أو قم بطباعة str لنرى إن كان هناك قيمة غريبة (الحل الأول أفضل لأنه يشمل حالات empty / null)

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#1015 أغسطس 2012 في 10:59

كيف افعل ذلك

اقتباس
إما قم بعمل debugging لمعرفة قيمة str ولماذا لا يتم تنفيذ الشرط بشكل صحيح

كيف افعلها

ارجوو المساعدة

#1115 أغسطس 2012 في 13:04

تابع الفيديوهات التالية:

www.youtube.com/watch?v=GPnTiFxkn9Y

www.youtube.com/watch?v=0icFC4biN2s

www.youtube.com/watch?v=b9vqmHaON2g

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

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

[تنبيه - عنوان غير مناسب : ]حل للمشكلة !؟؟3 رد · 28 مايو 2014
[مخالف - عنوان غير مناسب :][تنبيه - عنوان غير مناسب : ]ارجوا المساعدة1 رد · 16 مايو 2008
[تنبيه - عنوان غير مناسب : ]مشكلة مش عارف سببها3 رد · 16 ديسمبر 2010
[تنبيه - عنوان غير مناسب : ]عاجل ...3 رد · 10 يونيو 2010
[مخالف - عنوان غير مناسب :][تنبيه - عنوان غير مناسب : ]أرجو المساعدة1 رد · 28 أغسطس 2007
[تنبيه - عنوان غير مناسب : ]مشكلة؟؟8 رد · 2 يوليو 2008