Autogeneration numbers...

Posted Date: 23 Jun 2008	Resource Type: Code Snippets	Category: Visual Studio
Author: antogladwin	Member Level: Silver
Rating:	Points: 5

following code will usefull to generate autonumbers in vb.net

=>in this code,we want to generate autobill number...........(upto 999.if we need more than that,one more loop we can add & in that code we can use E000)

//call con()
dim sql as string
sql="select max(Billno) from employee"
comm=new sqlcommand(sql,con)
dr=com.executereader
if dr.read() then
if ISDBNULL(dr(0)) then
textbox1.text="E001"
else
dim a as string
a=dr(0)
dim b as string
b=mid(a)
b=b+1
if((b>=1) and (b<=9)) then
textbox1.text="E00"+b.tostring()
else if((b>=10) and (b<=99)) then
textbox1.text="E0"+b.tostring()
else
textbox1.text="E"+b.tostring()
endif

i hope this may usefull to u

BY,
R.A.Gladwin

Responses

No responses found. Be the first to respond and make money from revenue sharing program.

Feedbacks

Popular Tags

What are tags ?

Search Tags

(No tags found.)

Post Feedback

This is a strictly moderated forum. Only approved messages will appear in the site. Please use 'Spell Check' in Google toolbar before you submit.
You must Sign In to post a response.

	Next Resource: Code for next,previous,first,last records...
	Previous Resource: Left Pad
	Return to Discussion Resource Index
	Post New Resource
	Category: Visual Studio

Post resources and earn money!

More Resources