[rafaag777]

كيف أحصل على أكبر مرجع للتسجيلات (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

وسؤالي هو كيف احصل عليه عندما يكون عدد السطور يساوي صفر