How to Auto Generate Number on Vb.net

Question

0.00/5 (No votes)

See more:

Hello
i'm using VB.net 2008 and Access DB as backend
on this software i'm trying to generate automatically number as invoice number or ID
can you help me on doing this
note : i don't need to use ID Field (Automatic ID from Access itself )
i need it to be like this

last invoice number is 1234
i nwant to create an invoice , so one of the textboxes will be 1235 (Last Invoice Number + 1)

sorry for not clear English
i hope that you got me

Thanks

Posted 15-Jul-11 8:57am

khaliloozx

Add a Solution

Comments

Joan M 7-Aug-12 10:25am

Shouldn't this be automated in the database?

I mean in order to avoid two clients accessing the database at the same time?

In each query you can get it done properly, of course it can happen that you get empty numbers if one of the clients cancel the addition...

6 solutions

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)

Abhinav S · Answer 1 · 2011-07-15T09:01:00

Solution 1

Write a query to get the maximum id from the database e.g. select max(id) from invoicetable.
Store this result in a variable, increment it by 1, and then display it in the textbox.

Posted 15-Jul-11 9:01am

Abhinav S

Not Active · Answer 2 · 2011-07-15T09:01:00

Solution 2

You could just use a query

SELECT MAX(invoiceNum) FROM Table

However, if you want uniqueness use a guid or some other scheme

Posted 15-Jul-11 9:01am

Not Active

thatraja · Answer 3 · 2011-07-15T16:01:00

Solution 4

Auto Generate Number using Vb.net[^]
Auto Generate Number using MS Access[^]

Posted 15-Jul-11 16:01pm

thatraja

Comments

khaliloozx 16-Jul-11 14:05pm

I think that i can easily search on google

thatraja 16-Jul-11 14:29pm

Of course dude

bbirajdar 7-Aug-12 10:45am

Yes that what we want.. Search on google, try to implement and come back only if you have specific problems...

khaliloozx · Answer 4 · 2011-07-16T22:40:00

Solution 5

I used this code
it's solved

<pre lang="vb">Private Sub auto()
        Dim cmd As New OleDbCommand
        cmd.CommandType = CommandType.Text
        cmd.Connection = conn
        cmd.CommandText = "Select Max (custno) from [cust]"
        conn.Open()
        Dim a As Integer = cmd.ExecuteScalar
        conn.Close()
        Custno.Text = a + 1
        If Custno.Text = "" Then

        End If

Thanks for all

Posted 16-Jul-11 22:40pm

khaliloozx

Comments

Dave Kreskowiak 17-Jul-11 9:53am

Yeah, that's nice and all, but have you thought of the case where two clients running your code execute this at the same time?? Both clients are going to come up with the exact same "Customer Number".

bbirajdar 7-Aug-12 10:46am

Dave is right..

tanugarg 28-May-14 3:37am

this code helpful for me but i have one query that if database is not having value means column has null value this code give an error Conversion from type 'DBNull' to type 'Integer' is not valid

bbirajdar · Answer 5 · 2012-08-07T04:51:00

Solution 7

Don't generate the number in advance. More than one user will generate the same invoice number. Instead generate the Invoice number at the time of inserting the record into the database

VB

INSERT INTO [cust](InVoiceNumber,..,..,..) values (SELECT Max (custno) from [cust],..,..,..)

Posted 7-Aug-12 4:51am

bbirajdar

arielalmero · Answer 6 · 2012-08-07T03:55:00

Solution 6

SQL

You can actually use this:
"cmd.CommandText = "Select Max (custno)+1 from [cust]"

It will select the maximum custno then it automatically incremented by 1.

Posted 7-Aug-12 3:55am

arielalmero

Comments

THOUFEEK AHAMED 3-Nov-18 12:39pm

if no record in database i will enter first record means what keyword i use instead of max because it will show error when select max when no record found in table