23-05-20, 12:25 AM
على بركة الله نبدأ المشروع
وسابدأ بكود الترقيم التلقائي ليكون نقطة الانطلاق
دالة جلب كود الترقيم التلقائي (Sql Server)
دالة جلب كود الترقيم التلقائي (Access)
وسابدأ بكود الترقيم التلقائي ليكون نقطة الانطلاق
دالة جلب كود الترقيم التلقائي (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
