How can we generate auto increment in VB, net

Question

1.00/5 (1 vote)

See more:

how can we generate auto increment when i click on button it will check from database and count than it plus 1 in asp .net using Vb.net Like in this Format
00001
00002
00003
With this code which i Mention it can Auto Generate And Add 1 Plus but format is not Ok for me its generate in this format
1
2
3
But I want In this Format
00001
00002
00003

What I have tried:

Private Sub AutoNumberNo()
       Dim myReader As SqlDataReader
       cn = New SqlConnection(ConfigurationManager.ConnectionStrings("connstring").ConnectionString)
       cn.Open()
       Dim temp As String
       Try
           Dim sql As String = "SELECT MAX(ISNULL(ProdBarCode,0)) 'ProdBarCode' FROM CreateProducts "
           Dim comm As SqlCommand = New SqlCommand(sql, cn)
           myReader = comm.ExecuteReader
           If myReader.HasRows Then
               While myReader.Read()
                   Dim _Count As Integer
                   If (IsDBNull(myReader.Item("ProdBarCode"))) Then
                       _Count = 1
                   Else
                       _Count = myReader.Item("ProdBarCode")
                   End If
                   temp = _Count + 1
                   Me.TextBox4.Text = String.Concat(temp)

               End While
           End If
           myReader.Close()
       Catch ex As Exception
       End Try
       cn.Close()

   End Sub

Posted 12-Sep-20 3:36am

Naqash Younis

Updated 12-Sep-20 5:18am

Add a Solution

3 solutions

Solution 2

Don't do it like that! Sql Server is a multiuser system and if you are creating "unique numbers" in your app code, you will get duplicates and they can cause massive problems.

Instead use an IDENTITY column in SQL and let it handle the auto-numbering for you - it will ensure that they are unique.

If you want to display a number with leading zeros, then all you have to do is use ToString with the appropriate format string:

VB

Dim x As Int = 666
TextBox4.Text = x.ToString("D6")

Posted 12-Sep-20 4:04am

OriginalGriff

Solution 3

You NEVER generate ID's in your application code. It should ALWAYS be done in the database.

Do not worry about formatting the numbers in the database. Formatting should be done when values are displayed to the user in the application, not what you see in the database.

Posted 12-Sep-20 5:19am

Dave Kreskowiak

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sandeep Mewara · Accepted Answer · 2020-09-12T03:55:00

I am not too sure what are you exactly trying here. But, if you have number and you want it in another format, you can convert that into string and apply the needed format.

Quote[^]:
By default, formatting operations only display non-zero integral digits. You can pad an integer or floating-point number with leading zeros to produce a result string with a specified number of integral digits by using the "0" custom numeric format specifier, as the following example shows

One of the ways to do it:

VB

Module Example
   Public Sub Main()
      Dim value As Integer = 2
      Dim result As String = String.Format("{0,5:00000}", value)
      Console.WriteLine(result)
   End Sub
End Module
'The example displays the following output:
'00002