تقييم الموضوع :
  • 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 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 35)
الرد }}}}
تم الشكر بواسطة:
#8
اعذرني اخي فقد قمت بتهيئة (Format) الجهاز لدي ولم اثبت الا فيجوال بيسك 2010 لاني واجهت مشاكل مع vb 2012
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] مشكلة في استعلام مابين تاريخين abdallah_alashwal 1 51 09-11-16, 12:04 PM
آخر رد: ممدوح
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 111 24-10-16, 07:54 PM
آخر رد: saimon
  مشكلة في حساب كمية السلع في المخزن djelloul 0 78 06-10-16, 02:15 PM
آخر رد: djelloul
  [سؤال] عملية حفظ التعديلات بعد الحذف أو التعديل لا تتم في DataSet السندبااد 5 233 17-08-16, 12:24 PM
آخر رد: أبوبكر سويدان
  مشكلة في ادخال قيمة موجودة في textbox نسيم 9 341 20-06-16, 04:23 PM
آخر رد: الوادي
  مشكلة الترقيم التلقائي للعمود الاول في الداتا جريد فيو kofa 31 692 18-06-16, 03:53 AM
آخر رد: khodor1985
Sad مشكلة عدم حفظ البيانات في قاعدة البيانات wrd 10 526 10-06-16, 10:20 PM
آخر رد: ابو ليلى
  مشكلة ربط قواعد البيانات للفورمات المختلفة ali jamal 0 154 07-06-16, 02:31 PM
آخر رد: ali jamal
  مشكلة في نقل قاعدة البيانات الى جهاز اخر Namer 5 283 02-06-16, 12:01 PM
آخر رد: Namer
  [VB.NET] مشكلة ترحيل واستدعاء التاريخ في sql mazen.excel 6 370 23-04-16, 03:13 AM
آخر رد: محمد كريّم

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


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