Skip to main content

NAVIGATION CODE IN VB.NET



NAVIGATION CODE IN VB.NET


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

FORM.vb

Imports System.Data
Public Class Form3

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


 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
        DisplayGrid()
        Bind()
End Sub

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
End Class


Comments

Post a Comment

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...
Post a Comment
Read more

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...
Post a Comment
Read more

COMPARISON AMONG OS:

Operating systems are generally not hardware dependent, but the hardware configurations required to use them can vary. Based on their features, these operating systems can be compared in the following ways: MS-DOS Microsoft Windows UNIX and Sun Solaris Linux Novell NetWare Apple Macintosh MS-DOS The MS-DOS operating system is a Microsoft product designed for IBM-compatible computers. The first version of DOS, MS-DOS v1.0 released in 1981, was a simplistic version of the operating system. From then onwards, various updated and sophisticated versions of DOS have been released. MS-DOS is a popular CUI-based operating system. FEATURES: It is a 16-bit operating system, which means that it can send or receive 16 bits of information to the microprocessor for processing 16 bits of data. It is a single-user and single-tasking operating system. It is easy to load and install. DISADVANTAGES: It is a command-line operating system, which means that you have to enter singl...
Post a Comment
Read more