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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة لنشر موقعي safa 1 31 منذ 2 ساعة مضت
آخر رد: أبو عمر
  [VB.NET] معني رسالة الخطأ يسرى7 10 244 16-01-17, 01:08 AM
آخر رد: يسرى7
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 98 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 146 13-01-17, 10:44 AM
آخر رد: 0theghost0
  كيفية تغير رسائل الخطأ؟ noway 4 144 12-01-17, 02:05 AM
آخر رد: يسرى7
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 0 78 05-01-17, 09:50 AM
آخر رد: malek369
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 89 27-12-16, 08:20 PM
آخر رد: مساعدة
  [VB.NET] مساعدة في تحويل كود من php الى vb.net dubai.eig 8 147 23-12-16, 01:29 AM
آخر رد: dubai.eig
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 5 200 17-12-16, 09:57 AM
آخر رد: محمود بكرى
  [VB.NET] مساعدة بمشروع توزيع الشفتات (النوبات) اليومية omran.a 0 67 14-12-16, 04:29 PM
آخر رد: omran.a

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


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