[mohamedalqadi]

هذه المشكله تظهر مع ان قاعده البيانات لاتحتوي علي EMPLOYEES1 

الكود يعمل عند اضافه اول شخص عند اضافه شخص اخر تظهر هذه المشكله

كود :

Public Sub Load_Employees()
       dt_Employees.Clear()
       Dim cmd As New SqlCommand("select Amp_id,Amp_name,Amp_phone,Amp_state from Employees", connSQLServer)
       connSQLServer.Open()
       dt_Employees.Load(cmd.ExecuteReader)
       connSQLServer.Close()
       cmd = Nothing

   End Sub

   Public Function Max_emp_id_From_Employee()
       Dim number As Integer
       Try
           Dim cmd As New SqlCommand("Select Max (Amp_id) Employees", connSQLServer)

           connSQLServer.Open()
           number = cmd.ExecuteScalar
           connSQLServer.Close()
       Catch
           number = 0
           connSQLServer.Close()
       End Try
       Return number

   End Function


   Public Sub Insert_Employees(ByVal Amp_name As String, ByVal Amp_phone As String, ByVal Amp_state As Boolean)
       Dim cmd As New SqlCommand("Insert Into Employees(Amp_id,Amp_name,Amp_phone,Amp_state) values (@Amp_id,@Amp_name,@Amp_phone,@Amp_state)", connSQLServer)

       cmd.Parameters.Add("Amp_id", SqlDbType.Int).Value = Max_emp_id_From_Employee() + 1
       cmd.Parameters.Add("Amp_name", SqlDbType.NVarChar).Value = Amp_name
       cmd.Parameters.Add("Amp_phone", SqlDbType.NVarChar).Value = Amp_phone
       cmd.Parameters.Add("Amp_state", SqlDbType.Bit).Value = Amp_state
       connSQLServer.Open()
       cmd.ExecuteNonQuery()
       connSQLServer.Close()
       cmd = Nothing
   End Sub