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

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

بدأه thepast في 7 أغسطس 2012 · 7 رد · 354 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا استحدم كود التحديث

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            
        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())

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

ما اريده هو اذا ادخلت في الاتاتش او لم ادخل يقبل التحديث

ارجوو ان تكون الصورة وضحت

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

تم تعديل هذه المشاركة بواسطة thepast في 7 أغسطس 2012 في 18:49

#2

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

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

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

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

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

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

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

/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

#3

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

#4

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

ارجووكم

#5

ممكن ترفق المشروع لو سمحت ؟؟

للتعديل عليه ..

تحياتي :happy:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#6

هذا هو المشروع في زر اسمه تحديث

الجزء الثاني

ارجووكم يا اخوان المساعدة

WebApplication5.part2.rar

تم تعديل هذه المشاركة بواسطة thepast في 11 أغسطس 2012 في 22:50

#7

الجزء الاول

WebApplication5.part1.rar

#8

أخي أنا حسبت بالفيجوال بيسك ..

ولكنه asp يمكنك طرح سؤالك في قسم الـASP.NET ..

وأتمنى أن يساعدك هناك أي أحد ..

تحياتي :happy:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…