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

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

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

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

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

المشروع مرفق


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

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

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

   

   

   

   

كود الحفظ :
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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 92 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 52 01-12-16, 03:09 AM
آخر رد: khalaroy
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 62 30-11-16, 08:34 PM
آخر رد: ابو ليلى
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 63 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 298 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 79 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 88 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 82 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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