المطلوب كود يقوم بالترقيم لسجلات يبداء من الرقم واحد مع كل بداية سنة هجرية
وهذا كود لنفس المطلوب بس مادري كيف احولة للعمل مع السي شارب
'========== دالة لمعرفة أكبر رقم مسجل للسنة المحددة =========='
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
وهذا كود لنفس المطلوب بس مادري كيف احولة للعمل مع السي شارب
'========== دالة لمعرفة أكبر رقم مسجل للسنة المحددة =========='
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