Imports System.Data.SqlClient
Module AddPatientData_Module
Public connSQL As New SqlConnection("Server=.\SQLEXPRESS; Initial Catalog=YourDatabaseName; Integrated Security=True;")
Public dtload_Test_Internal As New DataTable
Public daload_Test_Internal As New SqlDataAdapter
Public Function Max_Code_Form_Patients() As Integer
'لإظهار رقم تلقائي في ليبل
Dim Number As Integer
Try
Dim cmd As New SqlCommand("SELECT MAX(Code) FROM Patients", connSQL)
If connSQL.State = ConnectionState.Open Then connSQL.Close()
connSQL.Open()
Number = CInt(cmd.ExecuteScalar)
connSQL.Close()
Catch ex As Exception
Number = 0
connSQL.Close()
End Try
Return Number
End Function
End Module
