Skip to main content

AUTO INCREMENT CODE IN VB.NET


    Sub ldfrm()
        Dim connetionString As String = Nothing
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter()
        Dim ds As New DataSet()

        Dim sql As String = Nothing
        connetionString = "Data Source=KEERTIG-PC\SQLEXPRESS;Initial Catalog=GAURAV1;Integrated Security=True"

        sql = "Select  * from ROOM_BOOKING"

        connection = New SqlConnection(connetionString)

        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "ROOM_BOOKING")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

        Catch ex As Exception
            MessageBox.Show("Can not open connection ! ")
        End Try

        Dim dt As DataTable
        Dim dr As DataRow

        dt = ds.Tables("ROOM_BOOKING")
        Dim ctr, len As Integer
        Dim stdid, stdidval As String

        len = dt.Rows.Count - 1
        If len = -1 Then
            TXTBSBID.Text = "B001"
        Else
            dr = dt.Rows(len)
            stdid = dr("ROOMBK_ID")
            stdidval = Mid(stdid, 2, 4)
            ctr = CInt(stdidval)
            If ctr >= 1 And ctr < 9 Then
                ctr = ctr + 1
                TXTBSBID.Text = "B00" & ctr
            ElseIf ctr >= 9 And ctr < 99 Then
                ctr = ctr + 1
                TXTBSBID.Text = "B0" & ctr
            ElseIf ctr >= 99 And ctr < 999 Then
                ctr = ctr + 1
                TXTBSBID.Text = "B" & ctr

            End If
        End If

    End Sub

    Private Sub BTNADDID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNADDID.Click
        ldfrm()

    End Sub

Comments

Post a Comment

Popular posts from this blog

LECTURE BREAKUP OF PHP MYSQL

PHP+MYSQL Introduction Basic Syntax Variable & it's Scope I/O & Comment   String & it's Function Operator & Expression Decision Control Case Control Loop Control Arrays & Function Form Handling State Management - Cookies State Management - Session Mail Concept Working with File Date/Time Functions Introduction MySQL Environment Database Concept Datatype Query processing Statements  Query processing based on condition Database Connectivity Database Operation With GUI Import/Export Database
Post a Comment
Read more

SELECT | INSERT | UPDATE | DELETE CODE IN VB.NET WITH AUTO INCREMENT CONCEPT

Database.vb Imports System.Data.SqlClient Public Class Database     Dim con As New SqlConnection( "Data Source=G20;Initial Catalog=Me;Integrated Security=True" )     Public Sub cnopen()         If con.State = ConnectionState.Open Then             con.Close()         End If         con.Open()     End Sub     Public Sub cnclose()         If con.State <> ConnectionState.Closed Then             con.Close()         End If     End Sub     Public Function Displaygrid( ByVal query As String ) As DataTable         Dim dt As N...
Post a Comment
Read more

SCRIPT CODE FOR VALIDATION

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>form</title> <style type="text/css"> <!-- .style1 {color: #FF0000} --> </style> <script> function valid() { tname=document.frm.name.value; teid=document.frm.email.value; tmno=document.frm.phone.value; tmsg=document.frm.comment.value; if(tname=="") { alert("Pls. Fill Name"); document.frm.name.focus(); return false; } else if(teid=="") { alert("Pls. Fill Email"); document.frm.email.focus(); return false; } else if(tmno=="") { alert("Pls. Fill Mobile no"); document.frm.phone.focus(); return false; } else if(isNaN(tmno)) { alert(...
Post a Comment
Read more