منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف أحصل على أكبر مرجع للتسجيلات (ID) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم قواعد البيانات العام (http://vb4arb.com/vb/forumdisplay.php?fid=169)
+--- الموضوع : كيف أحصل على أكبر مرجع للتسجيلات (ID) (/showthread.php?tid=11547)



كيف أحصل على أكبر مرجع للتسجيلات (ID) - rafaag777 - 27-02-15

كيف أحصل على أكبر مرجع للتسجيلات (ID) لاستعماله في حساب مرحع التسجيلات
اذا كان لدي جدول أكسس وعملت له اتصال بتقنية ADO من خلال فيجوال بيسك
وفيه عمود مرجع تسجيلات id ترقيم تلقائي مفتاح أساسي
إذا كان الجدول فيه سطور ممكن بهذه الطريقة:
كود :
' تهيئة الترقيم التلقائي للتسجيلات الموجودة على الداكرة الحية
       Ds.Tables("TableName").Columns("ID").AutoIncrement = True
       Ds.Tables("TableName").Columns("ID").AutoIncrementStep = 1
       Ds.Tables("TableName").Columns("ID").AutoIncrementSeed = 1
      ' الحصول على أكبر مرجع للتسجيلات لاستعماله في حساب مرحع التسجيلات
       ' الموجودة على الذاكرة الحية
       If BindingContext(Ds, "TableName").Count > 0 Then
           ' الحصول على أكبر معرف في الجدول
           Dim rows() As DataRow = Ds.Tables("TableName").Select("MAX(ID)=ID")
           ' حفظ المرجع للاستعمال
           Ds.Tables("TableName").Columns("ID").AutoIncrementSeed = rows(0)("ID") + 1
       End If
وسؤالي هو كيف احصل عليه عندما يكون عدد السطور يساوي صفر