+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود التعديل علي حقل في الاكسس (/showthread.php?tid=30321)
كود التعديل علي حقل في الاكسس - اسامه الهرماوي - 16-07-19
السلام عليكم...
هل يجب ان اقوم بالحذف بحقل الترقيم التلقائي او باي حقل
لاني عند تجربة الترقيم يعمل الكود اما عندة اخنيار اي حقل اخر يعطني البيانات غير متطابقة.
وشكرا لكم جميعا.
كود :
التع.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()RE: كود التعديل علي حقل في الاكسس - الحازمي - 16-07-19
مرحبا أخي اسامه
البيانات غير متطابقة التي حصلت معك في هذا الكود بسبب اشتراطك لبيانات عمود اسم_المادة ونوعه نصي
والبيانات النصية لابد من أن تكون بين علامتي التنصيص المفردة مثل
'النص'
أخي اسامه
إن احتجت لزيادة في التوضيح فأخبرني
RE: كود التعديل علي حقل في الاكسس - اسامه الهرماوي - 16-07-19
أخي الحازمي شكرا ...
وانا فهمت تلميحك ولكن الكود ممكن صياغة له .
ولا قصدك val.
RE: كود التعديل علي حقل في الاكسس - الحازمي - 16-07-19
مرحبا بك مرة أخرى أخي اسامه
ملاحظ في الكود أنك وضعت للكمية علامة تنصيص وعو عمود رقمي
وبدون علامة تنصيص اسم_المادة والذ هو عمود نصي
يعني عكست المسألة
ايضا كما تفضلت أنك وضعت 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
أخي اسامه
إن احتجت لزيادة في التوضيح او استفسار في الكود فأخبرني