How to Generate Auto Number in VB.net and MS Access Database

In this lesson, I’m going to show you how to create a system that How to Generate Auto Number in VB.net using visual basic and Microsoft access as our database. We can use this auto number to identify a unique record in a table, and it should only one auto number field is allowed in each table this will serve as primary key during run time. In our situation, we will generate auto number by this mechanism start with the start and increment with the increment value. It means that from the start value of the auto number, the system will get the last end value then the system will get the increment value and add it to the last ended value to create a new auto number.After completing this course the output of this application it looks like as shown below.

What is Visual Basic’s purpose?

The third-generation programming language was created to aid developers in the creation of Windows applications. It has a programming environment that allows programmers to write code in.exe or executable files. They can also utilize it to create in-house front-end solutions for interacting with huge databases. Because the language allows for continuing changes, you can keep coding and revising your work as needed.

However, there are some limits to the Microsoft Visual Basic download. If you want to make applications that take a long time to process, this software isn’t for you. That implies you won’t be able to use VB to create games or large apps because the system’s graphic interface requires a lot of memory and space. Furthermore, the language is limited to Microsoft and does not support other operating systems.

What are the most important characteristics of Visual Basic?

Microsoft Visual Basic for Applications Download, unlike other programming languages, allows for speedier app creation. It has string processing capabilities and is compatible with C++, MFC, and F#. Multi-targeting and the Windows Presentation Framework are also supported by the system, allowing developers to create a variety of Windows apps, desktop tools, metro-style programs, and hardware drivers.

To start building this application, add two Group box, five labels, two buttons and a Datagridview,

Object			Property		Settings
Groupbox1		text			Generate Autonumber
Groupbox2		text			list of Autonumbers
Label1			text			Autonumber code:
Label2			text			Autonumber Name:
Label3			text			Append Char:
Label4			text			Autonumber Start:
Label5			text			Increment Value:
Button1		        Name			btngenerate
			Text			Generate
Button2		        Name			btncancel
			Text 			Cancel

Then, arrange the entire object same with the final output shown above.

Next, let’s add functionality to our application. Right the form, then click “view code” and add the following code.

'declare conn as connection and it will now a new connection because
'it is equal to Getconnection Function
Dim con As OleDb.OleDbConnection = jokenconn()
'Represents an SQL statement or stored procedure to execute against a data source.
Dim cmd As New OleDb.OleDbCommand
Dim da As New OleDb.OleDbDataAdapter

Public Function jokenconn() As OleDb.OleDbConnection
Return New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\autonumber.mdb")
End Function

Then, double click the form and add the following code:
This code will simply load all the records from the database table “tblauto” into datagridview.

Try
con.Open()
With cmd
.Connection = con
.CommandText = "Select * from tblauto"
End With
Dim publictable As New DataTable

'Gets or sets a Transact-SQL statement or stored procedure used
'to select records in the data source.
da.SelectCommand = cmd
da.Fill(publictable)
'fill the datagridview by getting fron dt
DataGridView1.DataSource = publictable
'hide the first column of datagridview
DataGridView1.Columns(0).Visible = False

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
con.Close()
da.Dispose()

To insert new auto number in our database, double click our “btgenerate” button, add the following code:

Dim result As Integer
Try
con.Open()
With cmd
.Connection = con
.CommandText = "Insert into tblauto(autocode,autoname,appendchar,autostart,incrementvalue) " & _
" Values('" & txtcode.Text & "', '" & txtname.Text & "','" & txtchar.Text & "', " & _
" '" & txtstart.Text & "','" & txtinc.Text & "')"
result = cmd.ExecuteNonQuery
If result = 0 Then
MsgBox("No Data has been Inserted!")
Else
MsgBox("New Autonumber is created succesfully!")
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)

End Try
con.Close()

And you can now test your application by pressing “F5”.

You can download the Source Code here! autonumber