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



جلب اكبر قيمة بعمود الترقيم التلقائي - محمد اسماعيل - 22-12-17

اريد جلب اكبر قيمة من عمود الترقيم التلقائي

استخدمت الكود التالي ولكن بية خطا


كود :
Label2.Text = (DataSet1.Tables("tb1").Compute("Max(ID_mail)", "ID_mail >= 0") + "1")



RE: جلب اكبر قيمة بعمود الترقيم التلقائي - محمود صالح - 22-12-17

استخدم جملة select
مع وضع كلمة max قبل الحقل


RE: جلب اكبر قيمة بعمود الترقيم التلقائي - محمد اسماعيل - 22-12-17

ممكن الكود كامل


RE: جلب اكبر قيمة بعمود الترقيم التلقائي - محمود صالح - 22-12-17

اطلع على هذا
http://vb4arb.com/vb/showthread.php?tid=13310


RE: جلب اكبر قيمة بعمود الترقيم التلقائي - وائل القطاوي - 22-02-18

كود :
     Dim dt As New DataTable
       dt.Clear()
       Dim da0 As New OleDbDataAdapter("SELECT max(ID) from اسم الجدول", con)
       da0.Fill(dt)
       MsgBox(dt(0)(0))


أخبرني بالنتيجة