[aljzazy]

على بركة الله نبدأ المشروع

وسابدأ بكود الترقيم التلقائي ليكون نقطة الانطلاق

دالة جلب كود الترقيم التلقائي (Sql Server)

كود :

Public Function Genarate_ID(TableName As String, FieldName As String, Con As SqlConnection)
       Dim Number As Integer
       Try
           Dim cmd As New SqlCommand(" Select Max(" & FieldName & ") From " & TableName & "  ", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           Con.Close()
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Number += 1
       Return Number
   End Function

دالة جلب كود الترقيم التلقائي (Access)

كود :

Public Function Genarate_ID(TableName As String, FieldName As String, Con As OleDbConnection)
       Dim Number As Integer
       Try
           Dim cmd As New OleDbCommand(" Select Max(" & FieldName & ") From " & TableName & "  ", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           Con.Close()
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Number += 1
       Return Number
   End Function