منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

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

كود :

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

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

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

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

كود :

     Dim dt As New DataTable

        dt.Clear()

        Dim da0 As New OleDbDataAdapter("SELECT max(ID) from اسم الجدول", con)

        da0.Fill(dt)

        MsgBox(dt(0)(0))

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

محمود صالح

محمد اسماعيل

محمود صالح

وائل القطاوي