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

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

OOP IN VB 6.0

Visual Basic 6.0 supports object-oriented language elements and has support for objects distributed in libraries.   Object Oriented Programming is quite simple and provides way to modularize program by creating partition memory area for both data & function than can be used as template for creating copies of such module. In the world of OOP , you break a problem down into small parts and solve them individually. OOP is good for large-scale programming - As your code grows large, there are going to be more and more procedures/functions to your program, and your code is going to be so cluttered that one more look at it, you'd scream. Class In Visual Basic 6.0, a class is defined in a class module. A single class module is stored in a special type of file that has a .cls file extension. In Visual Basic 6.0, the class   Initialize   event handler named   Class_Initialize   is used to execute code that needs to be executed at the moment that an...
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