منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37137)



كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - Osama_NY - 08-12-20

كيف يمكنني اعداد ترقيم تلقائي و يتجدد في كل يوم مثلا يبدا من 1 الى الخ.....
و بعد 24 ساعه يبدا من الواحد من جديد


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - Anas Mahmoud - 08-12-20

ترقيم تلقائي في قاعدة البيانات ؟


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - Osama_NY - 08-12-20

(08-12-20, 02:26 AM)Anas Mahmoud كتب : ترقيم تلقائي في قاعدة البيانات ؟

رقم تسلسلي على فواتير مقهى مثلا يبدا من 0001 الى الخ و بعد 24 ساعة يبدا من الواحد من جديد مش متاكد بس ممكن في داتا جريد فيو بس لانه ليس لدي خبرة حقيقتا مارايك انت هل تكون في قاعدة البيانات او داتا قريد فيو الترقيم


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - قناص المدينة - 08-12-20

اجعل من التاريخ هو شرط الترقيم


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - Osama_NY - 08-12-20

(08-12-20, 10:56 AM)قناص المدينة كتب : اجعل من التاريخ هو شرط الترقيم

ماذا تقصد اخي


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - Osama_NY - 08-12-20

(08-12-20, 02:26 AM)Anas Mahmoud كتب : ترقيم تلقائي في قاعدة البيانات ؟

يوجد كود اخر لتغير لون صف داتا غريد فيو هل تحتاجه لربما تستفيد منه


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - قناص المدينة - 10-12-20

(08-12-20, 11:20 AM)Osama_NY كتب :
(08-12-20, 10:56 AM)قناص المدينة كتب : اجعل من التاريخ هو شرط الترقيم

ماذا تقصد اخي

SELECT MAX(ID_) FROM tab where tdate =DateTime.Today


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - الحزين اليماني - 03-11-23

قناص المدينة انت مبدع بحق وفقك الله .


RE: كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم - الحزين اليماني - 04-11-23

هذا الكود كاملا اخي
Dim cs As New SqlConnection("Data Source=.\SQLEXPRESS; INITIAL CATALOG=AutoID; INTEGRATED SECURITY=true;")
Dim ds As New DataSet
Dim da As New SqlDataAdapter("SELECT TOP 1 ID FROM tblAutoID WHERE MyYear=" & DateTimePicker1.Value.Year & " ORDER BY ID DESC", cs)
da.Fill(ds, "tblAutoID")
Dim dv As New DataView(ds.Tables("tblAutoID"))
If Me.BindingContext(dv).Count > 0 Then
txtID.Text = CInt(Me.BindingContext(dv).Current("ID")) + 1
Else
txtID.Text = 1
End If