auto increment zwiększa się tylko o 1 do 10 - vb.net, vb.net-2010

To jest dla mojego vb.kod netto, gdy nowy wpisany identyfikator pacjenta sprawdza wartość bazy danych i zwiększa się o następną wartość ... kod działa dobrze, zwiększając tylko o 1 do 10. jeśli rekord nie przekracza 10 wartości, nie można zwiększać.

Dim oleDBDR As OleDbDataReader
Dim oleDBCommand As New OleDbCommand
With oleDBCommand
.Connection = conn
.CommandText = "SELECT * FROM tblPatient ORDER BY PatientID DESC"
End With
oleDBDR = oleDBCommand.ExecuteReader
If oleDBDR.Read Then
txtPatientID.Text = Val(oleDBDR.Item(0)) + 1
End If

Odpowiedzi:

Ich pole jest dostępne w MS Access 2003 możesz skorzystać z tego pola, aby rozwiązać ten problem. To Połączyć poprowadzi Cię do osiągnięcia tego celu