Dim con As New OleDb.OleDbConnection Dim dbProvider As String Dim dbSource As String Dim dt As New DataTable Dim da As OleDb.OleDbDataAdapter Dim sql As String dbProvider = "PROVIDER=Microsoft.ACE.OLEDB.12.0;" dbSource = "Data Source = C:\Users\30015474\Desktop\service\Service20000TM.accde" con.ConnectionString = dbProvider & dbSource con.Open() sql = "SELECT [RA Number], [Serial Number], [Model Number], Description, Manufacturer, Status FROM Model where Model.Status = 'O'" da = New OleDb.OleDbDataAdapter(sql, con) da.Fill(dt) DataGridView1.DataSource = dt.DefaultView con.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)