Генерация автоматического идентификатора в базе данных

Question

Генерация автоматического идентификатора в базе данных

Многие объяснения уже присутствуют, чтобы объяснить, как это происходит и как это исправить, но вы также должны следовать рекомендациям, чтобы избежать NullPointerException вообще.

См. также: A хороший список лучших практик

Я бы добавил, очень важно, хорошо использовать модификатор final. Использование "окончательной" модификатор, когда это применимо в Java

Сводка:

Используйте модификатор final для обеспечения хорошей инициализации.
Избегайте возврата null в методы, например, при возврате пустых коллекций.
Использовать аннотации @NotNull и @Nullable
Быстрое завершение работы и использование утверждений, чтобы избежать распространения нулевых объектов через все приложение, когда они не должен быть пустым.
Сначала используйте значения с известным объектом: if("knownObject".equals(unknownObject)
Предпочитают valueOf() поверх toString ().
Используйте null safe StringUtils StringUtils.isEmpty(null).

0

vb.net ms-access

задан mantics 9 April 2019 в 17:31

1 ответ

Другие вопросы по тегам:

vb.net ms-access

Похожие вопросы:

score 0 · Answer 1

Я думаю, что функция доступа LAST решит вашу проблему.

Private Function GetLastID() As String
    Dim LastID As String = ""
    Try
        'The Using blocks ensure that your database objects are closed and disposed even if there is an error
        Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\inventory1.accdb")
            'Pass the query and connection directly in to the constructor of the command
            'The Access LAST function returns the field specified for the last record.
            Using cmd As New OleDbCommand("SELECT Last(category_id) FROM tblcategory;", cn)
                'Open the connection at the last minute.
                cn.Open()
                'Since you only need a single value you can use .ExecuteScalar
                LastID = cmd.ExecuteScalar().ToString
            End Using 'close and dispose the command
        End Using 'close and dispose the connection
    Catch Ex As Exception
        MessageBox.Show(Ex.Message)
    End Try
    Return LastID
End Function

Private Function GetNewID(LastID As String) As String
    Dim NewID As String
    'The substring starts at a specified character position And continues to the end of the string.
    NewID = "CAT00" & Convert.ToInt32(LastID.Substring(5)) + 1
    Return NewID
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'Assumes there is at least one record in the table
    Dim LastID As String = GetLastID()
    Dim NewID As String = GetNewID(LastID)
End Sub