تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 543 أمس, 11:43 PM
آخر رد: عبد العزيز البسكري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 68 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  مساعدة في datatGridviwe DOX.1 5 129 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 285 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 145 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  احتاج مساعدة ارجوكم naderalkeng54 11 260 29-09-18, 12:01 PM
آخر رد: naderalkeng54
  مساعدة فى برنامج اصنعوة (مكرار) naderalkeng54 4 113 28-09-18, 10:59 AM
آخر رد: naderalkeng54
Sad ما هذا الخطأ !! Hosam Ashraf Elwakel 1 65 28-09-18, 02:23 AM
آخر رد: elgokr
  مساعدة في كود التعديل يتم التعديل لكن لا يقف على نفس الصف المعدل في الداتا جريد فيو essawq 22 559 26-09-18, 11:36 PM
آخر رد: elgokr
Lightbulb [VB.NET] هذا الخطأ لا اعرف ما هو Hosam Ashraf Elwakel 1 62 26-09-18, 12:28 AM
آخر رد: elgokr

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


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