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

ABOUT VB6.0

Introduction Þ Visual Basic is a tool that allows you to develop Windows (Graphic User Interface – GUI ) applications. The applications have a familiar appearance to the user. Þ Visual Basic is event-driven ; event driven meaning code remains idle until called upon to respond to some event (button pressing, menu selection). Visual Basic is governed by an event processor. Þ The original Visual Basic for DOS and Visual Basic for Windows were introduced in 1991. Steps in Developing Application There are three primary steps involved in building a Visual Basic application: 1. Draw the user interface 2. Assign properties to controls 3. Attach code to controls Rule for Variable Variables are used by Visual Basic to hold information. Þ No more than 40 characters Þ They may include letters, numbers, and underscore (_) Þ The first character must be a letter Þ You cannot use a reserved wor...
Post a Comment
Read more

Save, Edit and Delete Example into Access Database Using VB6.0

Save, Edit and Delete Example into Access Database Using VB6.0 ‘——————————————————————- ‘ Instraction For Safe Project Load ‘ Components Add Your Project ‘ 1) Add Microsoft ADO Data Control 6.0 (OLEDB) ‘ 2) Add Microsoft Windows Commom Controls-2.6 Your Project ‘——————————————————————- Dim db As ADODB.Connection Dim rst As ADODB.Recordset Dim id As Integer Private Sub Form_Load() ‘Open Database Connection Set db = New ADODB.Connection db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\s4sajoy SampleCode\SampleDB.mdb;Persist Security Info=False” Set rst = New ADODB.Recordset rst.Open “select * from tblSample Order By SerialNo DESC”, db, adOpenStatic, adLockOptimistic, adCmdText If rst.RecordCount = 0 Then id = 1 Else id = rst(“SerialNo”) + 1 End If rst.Close lblID.Caption = id End Sub Private Sub cmdAdd_Click() If Trim(txtName.Text) = “” Then MsgBox “input name”, vbInformation Else Set rst = New ADODB.Recordset ...
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