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

DIALOG BOX SHOW CODE IN SWING JAVA

import javax.swing.*; import java.awt.event.*; public class Dialog {   JFrame frame;   JPanel p;   public Dialog(){   frame = new JFrame("Show Message Dialog");   p=new JPanel();   JButton button = new JButton("Click Me");   button.addActionListener(new MyAction());     p.add(button);   frame.add(p);   frame.setSize(400, 400);   frame.setVisible(true);   frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);   }   public class MyAction implements ActionListener{   public void actionPerformed(ActionEvent e){   JOptionPane.showMessageDialog(frame,"My DialogBox");   }   }  public static void main(String[] args)  {     Dialog db = new Dialog();   } }
Post a Comment
Read more

DATABASE UPDATION CODE IN VB.NET

Private Sub BTNUPDATE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNUPDATE.Click         connetionString = " Data Source=KEERTIG-PC\SQLEXPRESS;Initial Catalog=GAURAV1;Integrated Security=True"         connection = New SqlConnection(connetionString)         sql = "UPDATE ROOM_BOOKING SET FIRST_NAME= '" & TXTBSFNAME.Text & "',MIDDLE_NAME= '" & TXTBSMNAME.Text & "',LAST_NAME= '" & TXTBSLNAME.Text & "',NUM_OF_ROOM= '" & TXTBSNOROOM.Text & "',NUM_OF_DAYS= '" & TXTBSNODAYS.Text & "',MOBILE_NO= '" & TXTBSMOBNO.Text & "',ADDERESS= '" & TXTBSADDRESS.Text & "',ROOMBK_PRICE= '" & TXTBSPRICE.Text & "' WHERE ROOMBK_ID = '" & TXTBSBID.Text & "'  "         Try             connection.Open()             MsgBox(...
Post a Comment
Read more

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