Skip to main content

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 New DataTable()
        cnopen()
        Dim cmd As New SqlCommand(query, con)
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(dt)
        Return dt
    End Function

 //Auto Increment Code
    Public Function getid(ByVal query As String) As Integer

        Dim a As Integer
        cnopen()

        Dim cmd As New SqlCommand(query, con)

        If cmd.ExecuteScalar.ToString = "" Then
            a = 0
        Else
            a = Convert.ToInt32(cmd.ExecuteScalar.ToString())
            a = a + 1
            Return a
        End If
    End Function

    Sub insert(ByVal query As String)
        cnopen()

        Dim cmd As New SqlCommand(query, con)
        cmd.ExecuteNonQuery()

        MessageBox.Show("INSERTION DONE")

        cnclose()
    End Sub

    Sub update(ByVal query As String)
        cnopen()

        Dim cmd As New SqlCommand(query, con)
        cmd.ExecuteNonQuery()

        MessageBox.Show("UPDATION DONE")

        cnclose()
    End Sub


    Sub delete(ByVal query As String)

        If MessageBox.Show("Do You Really Want to Delete Record?", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then

            cnopen()

            Dim cmd As New SqlCommand(query, con)
            cmd.ExecuteNonQuery()

            MessageBox.Show("DELETEION DONE")

            cnclose()
        Else
            MessageBox.Show("DELETEION DISCARDED")
        End If
    End Sub
End Class


FORM.vb
Imports System.Data
Imports System.Data.SqlClient


Public Class Form3

    Dim a As Integer
    Dim db As New Database
    Dim dt As New DataTable
    Dim cmd As New SqlCommand



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

        a = db.getid("select max(id) from login")
        TextBox1.Text = Convert.ToString(a)
        db.cnclose()

        Button2.Enabled = True
        Button1.Enabled = False

    End Sub


    Sub DisplayGrid()
        dt = db.Displaygrid("select * from login")
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
        DisplayGrid()
        Bind()
    End Sub

‘BIND TEXTBOX WITH GRIDVIEW

    Sub Bind()
        TextBox1.DataBindings.Add("text", dt, "id")
        TextBox2.DataBindings.Add("text", dt, "uname")
        TextBox3.DataBindings.Add("text", dt, "password")
    End Sub

    Sub clearbind()
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.BindingContext(dt).Position = 0
    End Sub


    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.BindingContext(dt).Position -= 1

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.BindingContext(dt).Position += 1

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Me.BindingContext(dt).Position = Me.BindingContext(dt).Count - 1

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        db.cnopen()

        db.insert("insert into login(id,uname,password) values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')")
        db.cnclose()

        Button2.Enabled = False
        Button1.Enabled = True
        DisplayGrid()
        clearbind()
        Bind()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       
        db.update("update login set uname='" + TextBox2.Text + "' , password='" + TextBox3.Text + "' where id='" + TextBox1.Text + "'")
        DisplayGrid()
        clearbind()
        Bind()
     End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim a As String
        a = TextBox1.Text

        db.delete("Delete from login where id='" + a + "'")

        DisplayGrid()
        clearbind()
        Bind()
    End Sub

End Class


Comments

Popular posts from this blog

IP ADDRESS CLASSES

IP address classes Class 1 st  Octet Decimal Range 1 st  Octet High Order Bits Network/Host ID (N=Network, H=Host) Default Subnet Mask Number of Networks Hosts per Network (Usable Addresses) A 1 – 126* 0 N.H.H.H 255.0.0.0 126 (2 7  – 2) 16,777,214 (2 24  – 2) B 128 – 191 10 N.N.H.H 255.255.0.0 16,382 (2 14  – 2) 65,534 (2 16  – 2) C 192 – 223 110 N.N.N.H 255.255.255.0 2,097,150 (2 21 – 2) 254 (2 8  – 2) D 224 – 239 1110 Reserved for Multicasting E 240 – 254 1111 Experimental; used for research Note:  Class A addresses 127.0.0.0 to 127.255.255.255 cannot be used and is reserved for loopback and diagnostic functions. Private IP Addresses Class Private Networks Subnet Mask Addr...

UNIX/LINUX COMMAND

Unix / Linux Command cat  --- for creating and displaying short files chmod  --- change permissions cd  --- change directory cp  --- for copying files date  --- display date echo  --- echo argument ftp  --- connect to a remote machine to download or upload files grep  --- search file head  --- display first part of file ls  --- see what files you have lpr  --- standard print command (see also  print  ) more  --- use to read files mkdir  --- create directory mv  --- for moving and renaming files ncftp  --- especially good for downloading files via anonymous  ftp . print  --- custom print command (see also  lpr  ) pwd  --- find out what directory you are in rm  --- remove a file rmdir  --- remove directory rsh  --- remote shell setenv  --- set an environment variable sort  --- sort file tail  --- display last part of file ta...

PHP CODE TO DISPLAY IMAGE

<html>     <head>         <title>Img to PHP</title>     </head>     <body>         <?php         $x=0;         echo "<h4>";                echo "<u>LOOP1</u>";                 while($x<=5)                 {                     //echo " ".$x;                     $x++; //$x=$x+1                         ?>         <font color="red">HELLO PHP</font>     <?php     echo ''.$x.'.jpg';     echo "<br>";     echo '<img src='.$x.'.jpg'.' '.'height=50 ...