تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب مساعدة لمعرفة سبب الخطأ
#1
السلام عليكم ورحممة الله وبركاته

اخوتي الكرام تحية طيبة لكم جميعاً

ارجو مساعدتكم في التعرف على سبب الخطأ الذي يظهر عند اجراء تعديل معين في سجل احد المستخدمين والضغط على زر تعديل ؟؟؟

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

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

المشروع مرفق


الملفات المرفقة
.rar   login.rar (الحجم : 114.27 ك ب / التحميلات : 52)
الرد
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم معالجة المشروع بناء لطلبك
المشروع :
.rar   khodor-login.rar (الحجم : 216.04 ك ب / التحميلات : 42)

قاعدة البيانات ضعها في المسار D:

.rar   khodor-emploess.rar (الحجم : 30.98 ك ب / التحميلات : 38)

   

   

   

   

كود الحفظ :
PHP كود :
Sub user_save()
        
Dim cmd As New OleDbCommand(String.Format("Update users Set user_name = '{0}',user_password = '{1}',user_validity_add = {2},user_validity_edit = {3},user_validity_print = {4},user_validity_creat_user = {5} Where UserID = {6}"_
                                                  TextBox1
.TextTextBox2.TextCheckBox_add.CheckedCheckBox_edit.CheckedCheckBox_print.Checked_
                                                  CheckBox_creat_user
.CheckedtxtID.Text), con)
        
con.Open()
        
cmd.ExecuteNonQuery()
        
con.Close()
    
End Sub 

كود الإضافة :
PHP كود :
Dim cmd As New OleDbCommand(sqlstrcon)
        
cmd.Parameters.AddWithValue("@UserName"TextBox1.Text)
        
cmd.Parameters.AddWithValue("@UserPassword"TextBox2.Text)
        
cmd.Parameters.AddWithValue("@UserAdd"CheckBox_add.Checked)
        
cmd.Parameters.AddWithValue("@UserEdit"CheckBox_edit.Checked)
        
cmd.Parameters.AddWithValue("@UserPrint"CheckBox_print.Checked)
        
cmd.Parameters.AddWithValue("@UserCreate"CheckBox_creat_user.Checked)

        
con.Open()
        
cmd.ExecuteNonQuery()
        
con.Close()
        
user_save()
        
user_load()
        
MsgBox("تم إظافة مستخدم جديد"

كود تحميل البيانات :
PHP كود :
Sub loadData()
        
da = New OleDbDataAdapter(sqlstrcon)
        
da.Fill(dt)
    
End Sub
    
Private Sub Form2_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        loadData
()
        
Me.txtID.DataBindings.Add("Text"dt"UserID")
        
Me.TextBox1.DataBindings.Add("Text"dt"user_name")
        
Me.TextBox2.DataBindings.Add("Text"dt"user_password")
        
Me.CheckBox_add.DataBindings.Add("Checked"dt"user_validity_add")
        
Me.CheckBox_edit.DataBindings.Add("Checked"dt"user_validity_edit")
        
Me.CheckBox_print.DataBindings.Add("Checked"dt"user_validity_print")
        
Me.CheckBox_creat_user.DataBindings.Add("Checked"dt"user_validity_creat_user")

        
cm BindingContext(dt)


    
End Sub 

أكواد التنقل بين السجلات :
PHP كود :
Private Sub Button5_Click(sender As ObjectAs EventArgsHandles Button5.Click
        user_save
()
        
loadData()
        
MsgBox("تم التعديل ")

    
End Sub

    
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        cm
.Position 0
    End Sub

    
Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        cm
.Position += 1
    End Sub

    
Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
        cm
.Position -= 1
    End Sub

    
Private Sub Button4_Click(sender As ObjectAs EventArgsHandles Button4.Click
        cm
.Position dt.Rows.Count 1
    End Sub 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: moftah70 , HASAN6.0 , عدنان الشمري
#3
(30-12-15, 01:36 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم معالجة المشروع بناء لطلبك
المشروع :

قاعدة البيانات ضعها في المسار D:
بارك الله لك وفيك وزادك الله من نعيمه وعلمه حتى يحتويك ورحم الله والديك واسأل الله ان يدخلكم جميعاً جنات عدن وان تشرب من انهارها حتى يرويك

تقبل مني خالص تحياتي وكل تقديري واحترامي
الرد
تم الشكر بواسطة: khodor1985
#4
الحمد لله الذي لا يحمد على مكروه سواه
أتمنى لك التوفيق
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: moftah70 , zinom


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة من فضلكم ! ! hichem1 1 37 منذ 3 ساعة مضت
آخر رد: elgokr
Sad [VB.NET] طلب مساعدة في برنامج للتحديث الروابط Salim sadek 4 94 06-07-18, 12:38 AM
آخر رد: elgokr
  لماذا هذا الخطأ خالد كامل1 3 54 03-07-18, 09:55 PM
آخر رد: خالد كامل1
  اين الخطأ في هذا الكووووووووووود anis_derna 3 345 03-07-18, 08:04 PM
آخر رد: elgokr
  [VB.NET] مساعدة محتاج خبراء ReportViewer dubai.eig 32 821 19-06-18, 09:47 AM
آخر رد: elgokr
  ممكن مساعدة في كود قريد فيو نور الهدى الهدى 3 89 13-06-18, 07:33 PM
آخر رد: elgokr
  مساعدة في تشغيل برنامج على الشبكة ibrahimmakhool 3 173 13-06-18, 11:56 AM
آخر رد: elgokr
  [سؤال] ما هو أفضل مكان لوضع حدث لتسجيل الخروج المستخدم من البرنامج وارسال الخطأ للمبرمج؟ dametucorazon 2 87 12-06-18, 10:46 AM
آخر رد: dametucorazon
  احتاج مساعدة في كود التعديل maram2423 5 128 08-06-18, 03:53 PM
آخر رد: elgokr
  مساعدة بخصوص التاريخ تلقائيا ahmedfa71 3 96 07-06-18, 03:53 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم