Automatische Generierung alphanumerischer ID in vb.net

Question

Ich brauche eine Hilfe. Ich möchte automatisch alphanumerische ID Beispiel A/001/2016 generieren, wobei 001 um 1 erhöht werden sollte und 2016 Jahr mit vb 2010 darstellen. Ich möchte wie A/001/2016, A/002/2016, A/003/2016

Dies ist mein Code:

Private Sub autogenerate_ID() 
    Dim mysqlconnection As MySqlConnection 
    Dim command As New MySqlCommand 
    MySqlConnection = New MySqlConnection() 
    MySqlConnection.ConnectionString = " server = localhost; user id = root; password=; database = birth_and_death " 
    Command.Connection = MySqlConnection 
    mysqlconnection.Open() 
    Dim sqlquery = "select Max(Death_ID) from decease " 
    command.CommandText = sqlquery 
    Dim ID As Integer 
    Dim value As String 
    Dim d As String = DateTime.Now.ToString("yyyy") 
    value = command.ExecuteScalar().ToString() 
    If String.IsNullOrEmpty(value) Then 
     value = "D/001/1990" 
    End If 
    value = value.Substring(3) 
    Int32.TryParse(value, ID) 
    ID = ID + 1 
    value = "D/" + ID.ToString("D3") + "/" + d 
    ' value = "A/" + Convert.ToString(ID) + "/" + d 
    TxtDeathID.Text = value 


    command.Dispose() 
    mysqlconnection.Close() 
    mysqlconnection.Dispose() 



End Sub 

Answer 1

Versuchen Sie folgendes:

If IsDBNull(Command.ExecuteScalar) = False Then 

      Dim t() As String = Split_Serie(Command.ExecuteScalar) 
      Value = "A/" & Format(t(1) + 1, "000") + "/" & Year(Now.Date) 

     Else 

      value = "D/001/1990" 
     End If 

und Sie müssen eine Funktion erstellen, die Ihre cod aufgeteilt als:

Public Function Split_Serie(num As String) As String() 
     Dim t() As String 
     t = Split(num, "/") 
     'Part1 = t(0) 
     'Part2 = t(1) 
     'Part2 = t(3) 
     Return t 
    End Function