[علي كعبي]

المطلوب كود يقوم بالترقيم لسجلات يبداء من الرقم واحد مع كل بداية سنة هجرية

وهذا كود لنفس المطلوب بس مادري كيف احولة للعمل مع السي شارب


   '========== دالة لمعرفة أكبر رقم مسجل للسنة المحددة =========='
   Private Function GetMaxHijriID(ByVal hijriYear As Integer) As Integer
       Try

           conn.Open()

           '========== معرفة أكبر رقم مسجل للسنة الحالية =========='
           ' متغير من نوع أوبجكت تحسباً لرجوع قيمة فارغة '
           Dim maxHijriID As Object
           Using comm As New OleDbCommand(" SELECT MAX([HijriID]) FROM [Tab1] WHERE [HijriYear] = @HijriYear ", conn)
               comm.Parameters.AddWithValue("@HijriYear", hijriYear)
               maxHijriID = comm.ExecuteScalar
           End Using
           ' في حالة القيمة الفارغة يتم تحويلها إلى رقم صفر '
           maxHijriID = IIf(maxHijriID.GetType Is GetType(System.DBNull), 0, maxHijriID)

           conn.Close()

           Return maxHijriID

       Catch ex As Exception
           MsgBox(ex.Message)
           Return -1
       End Try
   End Function