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



مساعدة من اهل الاختصاص - nedaladnan1973 - 15-01-21

اريد توليد رقم متسلسل داخل التكست بوكس عند فتح الفورم وفي كل مره يزداد رقم
ولا اريد استخدام id في الداتا بيز 
وللعلم استخدم vb.net 2012 وقاعدة بيبانات اكسس 
مع الشكر


RE: مساعدة من اهل الاختصاص - moosa_alabri - 15-01-21

تفضل وغير ما يلزم من اسم الجدول 
PHP كود :
Dim query As String "Select IIf(IsNull(max(CustID)),1,max(CustID)+1) as id from customers"
 
       Dim dr As OleDbDataReader
        Dim cmd 
As New OleDbCommand(querycon)
 
       ' con.Open()
        dr = cmd.ExecuteReader
        dr.Read()

        txtid.Text = dr("ID").ToString