See this following code: Private Sub AutoNumberNo() Dim myReader As SqlDataReader conn = GetConnect() conn.Open() Dim temp As String Try Dim sql As String = 'SELECT MAX(NO) 'IDNumber' FROM Student ' Dim comm As SqlCommand = New SqlCommand(sql, conn) myReader = comm.ExecuteReader If myReader.HasRows Then While myReader.Read() temp = myReader.Item('IDNumber') + 1 End While End If myReader.Close() Catch ex As Exception End Try conn.Close() txtId.Text = String.Concat(temp) ' result will appear in textbox txtId End Sub call that procedure in button click event. On button click event. AutoNumberNo() end sub. See this following code: Private Sub AutoNumberNo() Dim myReader As SqlDataReader conn = GetConnect() conn.Open() Dim temp As String Try Dim sql As String = 'SELECT MAX(NO) 'IDNumber' FROM Student ' Dim comm As SqlCommand = New SqlCommand(sql, conn) myReader = comm.ExecuteReader If myReader.HasRows Then While myReader.Read() temp = myReader.Item('IDNumber') + 1 End While End If myReader.Close() Catch ex As Exception End Try conn.Close() txtId.Text = String.Concat(temp) ' result will appear in textbox txtId End Sub call that procedure in button click event. On button click event.

AutoNumberNo() end sub Thanks for code but i get error when my database field is blank.plz help. Hi, Private Sub AutoNumberNo() try Dim strsql As String strsql = 'SELECT MAX(Serial_No)+1 FROM Cutting' Dim com As New SqlCommand(strsql, objconnection) txtsrno.Text = com.ExecuteScalar() ' result will appear in textbox txtsrno Catch sqlex As SqlException MessageBox.Show(sqlex.Message) End Try End sub i try this code but i get following error 1) casting from DBnull to string not possible, when database is empty.

2) serial number increasing from zero, but i want serial number from one 3) serial number not shown in text box. I am waiting for ur reply..

Hello,Is there a setup I missed to setup the startpoint numbering for serial numbers?My customer wants to automatically generate a serial number when a product is purchased (could even be only when sold).

Prasad satam mumbai. StrGenerate = CreatestrGenerate 'Auto generate strGenerate //' goes where ever you want to put. Function CreatePaymentKey Randomize strCharacters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' intUpperLimit = 36 intLowerLimit = 1 For S = 1 To 12 //' change this to the number of code you want strTempKey = Mid(strCharacters, Int((intUpperLimit - intLowerLimit) * Rnd() + intLowerLimit), 1) CreatestrGenerate= CreatestrGenerate & strTempKey Next End Function Good luck. Hi every1 i have a form with a textboxid, buttonAdd, ButtonSave on it, when i click on the btnAdd it must show the id and when i click update it must really Save.

I want to auto generate the id through codes. Can any1 help.

Pyar ke liye char kam nahi the song download. Pyar ke liye char pal kam nahi the,Best Whatsapp status and songs,Whatsapp status video,30second. 1105 times, 31 0:31.

Salah satu rekomended / rekomendasi yang paling banyak dicari disitus anime yaitu Avatar: The Legend of Korra Book 4 Subtitle Indonesia terupdate tercepat terbaik terbaru setiap episode yang benar' menarik perhatian sehingga tidak puas hanya dengan menonton satu episode saja, bahkan banyak yang rela harus menunggu satu minggu lebih hanya untuk lanjutannya. Gratis nonton online film kartun best rated dalam beberapa versi Avatar: The Legend of Korra Book 4 Sub Indo Kualitas BD, SD dan FULL HD support untuk Hp Smartphone, di KotakAnime, download streaming, tag: tersedia pula link fileanime download/tautan video anime Avatar: The Legend of Korra Book 4 bahasa Indonesia bluray episode ep subs high quality zippyshare, upfile, sendcloud, solidfiles, mega.nz, clickupload, nofile, kumpulbagi, google drive, awsubs, quinime, fansub, oploverz, samehadaku, anitoki, kopaja. Anti Mainstream: kurogaze, movieu, animeku, anime21, samehadaku, anoBoy, zonawibu, vidio, nontonanime, animeindo, indanime, anisubindo. Nonton avatar korra subtitle indonesia.

I don't want to do it through access. Am using Visual Basic 2005 Note: i have a table with only one column that is the ID column. There's a much easier way to do that. Save the last id number in a textfile.

When you click the btnAdd the code should read the textfile and add one to the value in the textfile then show it in the textbox. When you click btnSave the last id is saved in the database and in the textfile. Hey, i've made a textbox and want the to search max id from database(basically from sql2005) and generate the max id +1 into the textbox.

'Jx Man' already gave showed you that in his code as written below Try Dim sql As String = 'SELECT MAX(NO) 'IDNumber' FROM Student ' Dim comm As SqlCommand = New SqlCommand(sql, conn) myReader = comm.ExecuteReader If myReader.HasRows Then While myReader.Read() temp = myReader.Item('IDNumber') + 1 End While End If myReader.Close() Catch ex As Exception End Try conn.Close() txtId.Text = String.Concat(temp) ' result will appear in textbox txtId. @rajeshmca03 Do you mean a Global Unique Identifier? If so, you may get a new Guid and just append a counter, for example like this: Module Module1 Sub Main() Try Dim sGuid As String = String.Empty Dim nOption As Int32 = 0 Dim sequenceCount As Int32 = 0 Dim curGlobalIdent As String = ' Dim formatLn As Int32 = 6 Do Console.WriteLine('1. Get a new Guid.'

) Console.WriteLine('2. Increment by one.' ) Console.WriteLine('3. ) Console.WriteLine('Enter the desired option number and press 'Enter':') Dim e1 As String = Console.ReadLine If Int32.TryParse(e1, nOption) Then Select Case nOption Case 0, 3: Exit Do Case 1 Dim g As New Guid sGuid = g.ToString curGlobalIdent = sGuid + '-' + StrDup(formatLn - 1, '0') + '1' sequenceCount = 1 Console.WriteLine(curGlobalIdent) Case 2 sequenceCount += 1 Dim sHex As String = Hex(sequenceCount) If Len(sHex).