21-03-18, 11:42 PM
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ss As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\xxl.accdb;Jet OLEDB
atabase Password=MyDbPassword")
Dim da As New OleDbDataAdapter(" select * form xxxx ", ss)
Dim dt As New DataTable()
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
End Class
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ss As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\xxl.accdb;Jet OLEDB
atabase Password=MyDbPassword")Dim da As New OleDbDataAdapter(" select * form xxxx ", ss)
Dim dt As New DataTable()
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
End Class
