+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود بداية الترقيم من رقم معين (/showthread.php?tid=42517)
طلب كود بداية الترقيم من رقم معين - مصمم هاوي - 20-09-22
هل يمكن أن يمدني أحد الأساتذة أو الأعضاء الكرام بكود ترقيم السجلات من رقم معين.
لدى مشروع بالفيجوال 6 مكتمل واحاول تصميمه بالدوت نت لاكتساب الخبرة بمساعدة المنتدى الحبيب. ومن ضمن المشروع فورم لتسجيل الجنسية والمدينة والمؤهلات العلمية ويتم الحفظ في جدول واحد، حيث جعلت لكل نوع كود خاص به
مثلا:
الجنسيات.
الترقيم يبدا من 1 إلى 100 والكود jn
المدن
الترقيم يبدا من 101 إلى 200 والكود mn
وهكذا ....
فأريد فقط كود الترقيم من رقم معين مثلا (1) إلى رقم معين (100)
حتى اوظف الكود لعملية الاضافة
RE: طلب كود بداية الترقيم من رقم معين - مصمم هاوي - 02-10-22
لا يزال السؤال قائما:
اريد كود بداية الترقيم من رقم معين؟
RE: طلب كود بداية الترقيم من رقم معين - مصمم هاوي - 10-10-22
هذا Function بداية الترقيم من رقم معين
كود :
Public Function MaxIDjinsia_TBL_codes() As DataTable
Dim Query As String = "Select IIF(MAX(id) IS Null,100,MAX(id)+1) From TBL_codes where Code like 'jinsia'"
Dim Cmd As OleDbCommand
Dim dt As New DataTable
dt.Clear()
Cmd = New OleDbCommand(Query, Con)
Dim da As New OleDbDataAdapter(Cmd)
da.Fill(dt)
Return (dt)
End FunctionRE: طلب كود بداية الترقيم من رقم معين - هاوي1995 - 10-10-22
جزاك الله خير وغفر الله لوالديك