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

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

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

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

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

المشروع مرفق


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

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

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

   

   

   

   

كود الحفظ :
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] مساعدة يا شباب ابغي عمل لعبة خفيفة اون لاين 0theghost0 0 22 اليوم, 06:28 AM
آخر رد: 0theghost0
  [VB.NET] مساعدة لمنع تكرار البيانات او تجميعها علي حسب التاريخ englishman210 15 215 أمس, 11:00 AM
آخر رد: englishman210
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 43 12-12-17, 04:14 PM
آخر رد: حنان المغربى
  مساعدة في فاتورة مبيعات الدريساوي 2 76 09-12-17, 11:58 PM
آخر رد: الدريساوي
  مساعدة في مشروع Riffa 2 84 06-12-17, 03:57 PM
آخر رد: Riffa
  مساعدة فى تعديل كود اذا سمحتوا مسح كل حاجه فى الداتا جريد فيو نبيل فتحى 2 54 04-12-17, 02:14 AM
آخر رد: عبد الاحد
  [VB.NET] طلب مساعدة في حل مشكلة فراس الغزي 8 112 03-12-17, 09:41 PM
آخر رد: طالب برمجة
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 50 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  [VB.NET] مساعدة في مشروع باقي شغلة واحدة فقط 0theghost0 2 146 22-11-17, 06:46 PM
آخر رد: 0theghost0
  مساعدة في كود البحث وكود مفاتيح التنقل بين السجلات khaled12345 4 105 18-11-17, 08:10 PM
آخر رد: khaled12345

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


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