16-07-19, 09:45 PM
السلام عليكم...
هل يجب ان اقوم بالحذف بحقل الترقيم التلقائي او باي حقل
لاني عند تجربة الترقيم يعمل الكود اما عندة اخنيار اي حقل اخر يعطني البيانات غير متطابقة.
وشكرا لكم جميعا.
هل يجب ان اقوم بالحذف بحقل الترقيم التلقائي او باي حقل
لاني عند تجربة الترقيم يعمل الكود اما عندة اخنيار اي حقل اخر يعطني البيانات غير متطابقة.
وشكرا لكم جميعا.
كود :
التع.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()
المبرمج لا يفكر في المشكلة بل في الحل!!