منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

الحازمي

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

الحازمي