27-10-21, 03:59 PM
Imports System.Data.OleDb
Public Class Form1
Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Password=vision0307")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable
da = New OleDbDataAdapter("Select * From Reg", Conn)
da.Fill(ds, "reg")
da.Fill(dt)
DataGridView1.DataSource = dt
Public Class Form1
Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Password=vision0307")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable
da = New OleDbDataAdapter("Select * From Reg", Conn)
da.Fill(ds, "reg")
da.Fill(dt)
DataGridView1.DataSource = dt