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

وشكرا لكم جميعا.

كود :
التع.Text = Val(الادخال.Text) + Val(الكمية.Text)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim SavInto As New OleDb.OleDbCommand
       SavInto.Connection = con
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "update basket set [الكمية]='" & Val(التع.Text) & "'  where اسم_المادة = " & Val(t1.Text) & ""
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       SavInto.ExecuteNonQuery()
       SavInto.Dispose()
       con.Close()


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
مرحبا أخي اسامه

البيانات غير متطابقة التي حصلت معك في هذا الكود بسبب اشتراطك لبيانات عمود اسم_المادة ونوعه نصي
والبيانات النصية لابد من أن تكون بين علامتي التنصيص المفردة مثل
'النص'

أخي اسامه
إن احتجت لزيادة في التوضيح فأخبرني
الرد
#3
أخي الحازمي شكرا ...
وانا فهمت تلميحك ولكن الكود ممكن صياغة له .

ولا قصدك val.
الرد
تم الشكر بواسطة:
#4
مرحبا بك مرة أخرى أخي اسامه

ملاحظ في الكود أنك وضعت للكمية علامة تنصيص وعو عمود رقمي
وبدون علامة تنصيص اسم_المادة والذ هو عمود نصي
يعني عكست المسألة


ايضا كما تفضلت أنك وضعت Val لاسم_المادة وهذا سيغير المعلومة النصية

هذا تعديل للكود بشكل أفضل
PHP كود :
التع.Text Val(الادخال.Text) + Val(الكمية.Text)
If 
con.State ConnectionState.Closed Then con.Open()
Dim sql "update basket set [الكمية]=@qty  where [اسم_المادة]=@name "
Using cmd As New OleDb.OleDbCommand(sqlcon)
 
   cmd.Parameters.AddWithValue("@qty"Val(التع.Text))
 
   cmd.Parameters.AddWithValue("@name"t1.Text)
 
   cmd.ExecuteNonQuery()
End Using
con
.Close() 

حاول الابتعاد عن تسمية الأعمدة باللغة العربية لأنه أحيانا توجد صوبة في محرر الأكواد مع أحرف Unicode

أخي اسامه
إن احتجت لزيادة في التوضيح او استفسار في الكود فأخبرني
الرد
تم الشكر بواسطة: اسامه الهرماوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] بعد تعبئة خانة معينة منع التعديل في النموذج khairallah 3 69 منذ 39 دقيقة مضت
آخر رد: elgokr
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 82 11-10-19, 02:59 AM
آخر رد: على زهران
  مساعد في الاكسس alshandodi 2 101 08-10-19, 04:52 PM
آخر رد: elgokr
Smile ممكن مساعده في حل هذي المشكله لو سمح يحدث معي عند التعديل moh123456 3 126 02-10-19, 07:57 PM
آخر رد: asemshahen5
  كود التعديل anis 1 83 20-09-19, 07:11 PM
آخر رد: ابراهيم ايبو
  مشكلة في الحفظ في الاكسس SaedAmer 21 648 02-09-19, 02:08 AM
آخر رد: ابراهيم ايبو
  محتاج مساعدة على التعديل على بوتن Mohamed Magdy 0 100 23-08-19, 07:03 PM
آخر رد: Mohamed Magdy
  [VB.NET] اريد التعديل ع كود للكتابه ع صورة e-coder 5 239 19-08-19, 12:47 AM
آخر رد: ابراهيم ايبو
  مشكله فى الاكسس فى مشروع بال vb.net خالد كامل1 9 310 05-08-19, 12:33 PM
آخر رد: خالد كامل1
  [VB.NET] مراجعة الاسم قبل التعديل بقاعدة البيانات محمد اسماعيل 10 322 03-08-19, 01:03 AM
آخر رد: محمد اسماعيل

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


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