[اسامه الهرماوي]

السلام عليكم...
هل يجب ان اقوم بالحذف بحقل الترقيم التلقائي او باي حقل
لاني عند تجربة الترقيم يعمل الكود اما عندة اخنيار اي حقل اخر يعطني البيانات غير متطابقة.

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

كود :

التع.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()

[الحازمي]

مرحبا أخي اسامه

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

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

[اسامه الهرماوي]

أخي الحازمي شكرا ...
وانا فهمت تلميحك ولكن الكود ممكن صياغة له .

---

ولا قصدك val.

[الحازمي]

مرحبا بك مرة أخرى أخي اسامه

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


ايضا كما تفضلت أنك وضعت 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(sql, con)
    cmd.Parameters.AddWithValue("@qty", Val(التع.Text))
    cmd.Parameters.AddWithValue("@name", t1.Text)
    cmd.ExecuteNonQuery()
End Using
con.Close() 


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

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