0% found this document useful (0 votes)
768 views2 pages

GAD 24: VB.NET DataGrid Application

This VB.NET application displays data from a table in an Access database on a DataGrid control. The application opens a connection to the Access database, fills a dataset using an OleDbDataAdapter, and sets the dataset as the DataGrid's datasource. When the form loads, it retrieves data from the "co4i" table and binds it to the DataGrid, allowing the user to view the database table contents.

Uploaded by

Rohit Parsode
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
768 views2 pages

GAD 24: VB.NET DataGrid Application

This VB.NET application displays data from a table in an Access database on a DataGrid control. The application opens a connection to the Access database, fills a dataset using an OleDbDataAdapter, and sets the dataset as the DataGrid's datasource. When the form loads, it retrieves data from the "co4i" table and binds it to the DataGrid, allowing the user to view the database table contents.

Uploaded by

Rohit Parsode
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
  • GUI Application Development using VB.NET

Practical 24

Name: - Rohit Ashok Parsode sub:- GAD

Class :- CO4I Roll no:- 49

GUI application development using [Link]

Q. 24 Design the windows application that will dispaly the content of a table in MSAccess
database on DataGrid control using data adapter.

Source code:-

Imports [Link]

Public Class Form6


Dim con As [Link]
Dim da As [Link]
Dim ds As New DataSet

Private Sub Form6_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
con = New [Link]("provider=[Link].4.0;
data source=C:\Users\Admin\Desktop\[Link]")
[Link]()
da = New [Link]("select * from co4i", con)
[Link](ds, "co4i")
[Link]()

[Link] = ds
[Link] = "co4i"

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As


[Link], ByVal e As [Link])
Handles [Link]

End Sub
End Class
Practical 24

Output :-

Practical 24
Name: - Rohit  Ashok  Parsode                                                                       sub:- GAD
Cl
Practical 24
Output :-

You might also like