تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود التعديل على السجل
#1
السلام عليكم ورحمه الله وبركاتوا

اواجه مشكله في زر التعديل
هذا هو الكود :
PHP كود :
Dim SavInto As New OleDb.OleDbCommand
            Dim ConStr 
As String _
            
"Provider=Microsoft.ace.OLEDB.12.0; Data Source =" _
            Application
.StartupPath "\student.accdb"
            
Dim Conn As New OleDbConnection(ConStr)
            
SavInto.Connection Conn
            SavInto
.CommandType CommandType.Text
            SavInto
.CommandType CommandType.Text
            SavInto
.CommandText "UPDATE tb SET Name = '" Trim(txt_name.Text) & "' , Address= '" Trim(txt_address.Text) & "' ,  phone= '" Trim(txt_phone.Text) & "'"
            
Conn.Open()
            
SavInto.ExecuteNonQuery()
            
Conn.Close()
            
MsgBox("تم التعديل على السجل بنجاح"

المشكله هنا انه عندما اقوم بالتعديل على سجل واحد جميع السجلات التي في قاعدة البيانات تاخذ نفس القيمة المعدله بالنسبه للسجل المعدل

قاعدة البيانات اسمها : Student والجدول اسمه :tb
ويحتوي على البيانات التاليه :

name,address,phone

هل هناك من يستطيع ان يشرح لي سبب المشكله .. سوف ارفق المثال لكم وارجو التعديل على الكود واتمنى التوضيع لماذا تاخذ جميع السجلات قيمة السجل المعدل

انا استخدم vb 2012


الملفات المرفقة
.rar   student database.rar (الحجم : 112.15 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة:
#2
لان مافيه شرط where عدل على الكود بحيث يشترط رقم معين يستعلم عنه مثلا
كود :
where id=val(id.text)
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
قمت بالتعديل على الكود و وضعت الشرط where ولكن النتيجه نفسها

PHP كود :
SavInto.CommandText "UPDATE tb SET  name= '" Trim(txt_name.Text) & "' , Address= '" Trim(txt_address.Text) & "', phone= '" Trim(txt_phone.Text) & "' WHERE Address ='" txt_address.Text "'" 


فهل الكود الذي كتبته غير صحيح ؟؟
الرد }}}}
تم الشكر بواسطة:
#4
استعلم عن عمود لاتتكرر القيم فيه هل العمود: Address لا تتكرر القيم فيه؟؟
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

تعديل الاستعلام

PHP كود :
SavInto.CommandText "UPDATE tb SET  name= '" Trim(txt_name.Text) & "' , Address= '" Trim(txt_address.Text) & "',phone= '" Trim(txt_phone.Text) & "' WHERE Address ='" txt_address.Text "' and  id="val(id.text

اخي العزيز عدل الid الى أي عمود Primary Key في الجدول
الرد }}}}
تم الشكر بواسطة:
#6
اخي العزيز انا قمت بالتعديل على الكود وانا ف الحقيقة لم استخدم primery key لان لم ارد ذلك

قمت بتعديل الكود كالتالي :

PHP كود :
Dim SavInto As New OleDb.OleDbCommand
        Dim Cn 
As String _
        
"Provider=Microsoft.ace.OLEDB.12.0; Data Source =" _
        Application
.StartupPath "\student.accdb"
        
Dim Conn As New OleDbConnection(Cn)
        
SavInto.Connection Conn
        SavInto
.CommandType CommandType.Text
        SavInto
.CommandText "update tb set name= '" Trim(txt_name.Text) & "', address='" Trim(txt_address.Text) & "', phone='" Trim(txt_phone.Text) & "' where address= '" Trim(txt_address.Text) & "'"
        
Conn.Open()
        
SavInto.ExecuteNonQuery()
        
Conn.Close()
        
MsgBox("تمت عملية تعديل السجل بنجاح")

       
        
Me.Hide()
        
Me.Show() 

والكود شغال 100% حيث انه يقوم بالتعديل على كل سجل بمفرده حسب التعديلات التي يدخلها المستخدم على كل عمود

لكن المشكله التي ظهرت لي الان هي انه عندما اغلق البرنامج واعيد تشغيل كل سجل قمت بالتعديل عليه يرجع مثل ما كان كاني لم اعدل عليه بمعنى اخر كانه لم يقم بالتعديل على البيانات من داخل قاعدة البيانات بل على النموذج مع ان مسار الاتصال بقاعدة البيانات صحيح .. اذاً ما المشكله .؟؟
الرد }}}}
تم الشكر بواسطة:
#7
اخواني سوف ارفق لكم النموذج ارجوا التعديل عليه وارفاقه مرة اخرى لي .. لاني ف الحقيقه تعبت كثير في هذا الكود بالتحديد ..


الملفات المرفقة
.rar   Database of student.rar (الحجم : 111.94 ك ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة:
#8
اعذرني اخي فقد قمت بتهيئة (Format) الجهاز لدي ولم اثبت الا فيجوال بيسك 2010 لاني واجهت مشاكل مع vb 2012
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 110 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  مشكلة في كود البحث Search khaled12345 5 223 16-07-17, 08:22 PM
آخر رد: سعود
  مشكلة في الاتصال مع ملفات ال SQL الخارجية .mdf khaled12345 13 422 16-07-17, 06:21 AM
آخر رد: ahmed6610
  مشكلة في كود الحذف Delete khaled12345 5 174 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 359 15-07-17, 02:17 AM
آخر رد: سعود
  مشكلة في عمل ال Navigation khaled12345 8 246 27-06-17, 01:25 PM
آخر رد: سعود
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 1 331 27-06-17, 12:03 AM
آخر رد: سعود
  مشكلة في تحزيم البرنامج samawi 2 186 23-04-17, 03:06 AM
آخر رد: samawi
  [سؤال] عندي مشكلة في احتساب الرواتب - مشروع HR dabas 0 261 17-01-17, 10:57 AM
آخر رد: dabas
  مشكلة مع حقل من نوع Money djelloul 2 259 16-01-17, 03:29 AM
آخر رد: مساعدة

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


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