vb.netで英数字IDを自動生成

Question

私は助けが必要です。私は自動的に英数字IDの例A/001/2016を生成する必要があります。001は1で増分し、2016はvb 2010を使って年を表します。 A/001/2016、A/002/2016、A/003/2016のようになりたいです。

これは私のコードです：

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

このお試しください：

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 

を、あなたはあなたのようタラを分割する機能を作成する必要があります。

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 

を