Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 71 views

    Imports Imports Public Class Private Sub As Object As Handles Mybase Dim As New

    Uploaded by

    Dibyas Sanjay Dubey
    This document discusses using a data adapter to connect to a database in VB.Net. It provides code to connect to an MS Access database, create a data adapter, fill a dataset, and bind the dataset to a datagrid. It also includes questions about data adapter syntax and creating a windows form application with navigation between records and multiple tables in a dataset.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Imports Imports Public Class Private Sub As Object As Handles Mybase Dim As New

    Uploaded by

    Dibyas Sanjay Dubey
    71 views5 pages
    This document discusses using a data adapter to connect to a database in VB.Net. It provides code to connect to an MS Access database, create a data adapter, fill a dataset, and bind the dataset to a datagrid. It also includes questions about data adapter syntax and creating a windows form application with navigation between records and multiple tables in a dataset.

    Original Description:

    Practical no gui 25 and 26

    Original Title

    expt_25-26-gad (1)

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document discusses using a data adapter to connect to a database in VB.Net. It provides code to connect to an MS Access database, create a data adapter, fill a dataset, and bind the dataset to a datagrid. It also includes questions about data adapter syntax and creating a windows form application with navigation between records and multiple tables in a dataset.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    71 views5 pages

    Imports Imports Public Class Private Sub As Object As Handles Mybase Dim As New

    Uploaded by

    Dibyas Sanjay Dubey
    This document discusses using a data adapter to connect to a database in VB.Net. It provides code to connect to an MS Access database, create a data adapter, fill a dataset, and bind the dataset to a datagrid. It also includes questions about data adapter syntax and creating a windows form application with navigation between records and multiple tables in a dataset.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    You are on page 1of 5

    Practical No.

    25 & 26: Understand the concept of Data Adapter

    Practical No 25 & 26

    VIII. Resources required (Additional)


     If any web resources required.

    X. Resources used (Additional)


    https://www.tutorialspoint.com/vb.net/vb.net

    XI. 0rogram Code


    1. Write a program using data adapter to connect to the database.

    Imports System.Data
    Imports System.Data.OleDb

    Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data " &
    "Source=C:\Users\Purva\Documents\Visual Studio 2012 \ Projects \ Datagrid \
    stud.mdb")
    Conn.Open()
    Dim cmd As New OleDbCommand("Select * From Marks", conn)
    Dim da As New OleDbDataAdapter(cmd)
    Dim ds As New DataSet
    da.Fill(ds, "Marks")
    DataGrid1.CaptionText = "marks"
    DataGrid1.DataSource = ds
    DataGrid1.DataMember = "marks"

    End Sub

    End Class

    GUI Application Development using VB.Net (22034) Page 1


    Practical No.25 & 26: Understand the concept of Data Adapter

    Output:

    XIII. Practical related Questions


    1. Find error from following code
    Dim adp As
    OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0DataSource=D:\mydata.accdb;")

     Error 1 Type expected.


    Error 2 'OleDbConnection' is a type and cannot be used as an expression.
    Error 3 'Conn' is not declared. It may be inaccessible due to its protection level.

    2. Write a data adapter syntax using a MS-access code with a student table.
     Dim da As OleDbDataAdapter
    Da=New OleDbDataAdapter(cmd)

    GUI Application Development using VB.Net (22034) Page 2


    Practical No.25 & 26: Understand the concept of Data Adapter

    XIV. Exercise
    1. Design the windows application in MS-Access which have navigation (Next, First,
    Previous, Last).
    


    Imports System.Data.OleDb
    Public Class Form1
    Dim con As OleDbConnection
    Dim ds As New DataSet
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'Db1DataSet.student' table. You can
    move, or remove it, as needed.
    Me.StudentTableAdapter.Fill(Me.Db1DataSet.student)
    con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\Users\Purva\Documents\Visual Studio 2012\Projects\Nav2\db1.mdb")
    con.Open()
    cmd = New OleDbCommand("Select * From student", con)
    da = New OleDbDataAdapter(cmd)
    da.Fill(ds, "student")
    Me.TextBox1.DataBindings.Add("text", ds, "student.RollNo")
    Me.TextBox2.DataBindings.Add("text", ds, "student.Name")
    Me.TextBox3.DataBindings.Add("text", ds, "student.Marks")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


    Me.BindingContext(ds, "student").Position = 0
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


    Me.BindingContext(ds, "student").Position = Me.BindingContext(ds,
    "student").Position + 1
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


    Me.BindingContext(ds, "student").Position = Me.BindingContext(ds,
    "student").Position - 1
    GUI Application Development using VB.Net (22034) Page 3
    Practical No.25 & 26: Understand the concept of Data Adapter

    End Sub

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


    Me.BindingContext(ds, "student").Position=Me.BindingContext(ds,"student").Count-1
    End Sub
    End Class
    OUTPUT:

    2. Develop a windows application that will contain multiple tables in a single dataset.
    












    Imports System.Data.OleDb
    Public Class Form1
    Dim con As OleDbConnection
    Dim ds As New DataSet
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


    Button1.Click
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
    Source=C:\Users\Purva\Documents\Visual Studio 2012\Projects\Multiple
    Table\db1.mdb")
    con.Open()

    Dim cmd1 As New OleDbCommand("Select * From student", con)

    GUI Application Development using VB.Net (22034) Page 4


    Practical No.25 & 26: Understand the concept of Data Adapter

    Dim cmd2 As New OleDbCommand("Select * From subjects", con)

    Dim da1 As New OleDbDataAdapter(cmd1)


    Dim da2 As New OleDbDataAdapter(cmd2)

    Dim ds As New DataSet

    DataGrid1.CaptionText = "Student Record"


    DataGrid2.CaptionText = "Subject Details"

    da1.Fill(ds, "student")
    da2.Fill(ds, "subjects")

    DataGrid1.DataSource = ds
    DataGrid1.DataMember = "student"

    DataGrid2.DataSource = ds
    DataGrid2.DataMember = "subjects"
    End Sub
    End Class
    OUTPUT:

    GUI Application Development using VB.Net (22034) Page 5

    You might also like