Imports System.Data
Imports System.Data.OleDb
Imports System.Data.Odbc
Imports System.Data.DataTable
Public Class Form2
Public sqlconn As New OleDb.OleDbConnection
Public connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\M_db.accdb"
Public sqlquery As New OleDb.OleDbCommand
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Db_Connect()
GetData()
End Sub
Private Sub GetData()
Try
Dim SqlCmd As String = "Select * from Units"
Dim U_DataAdapter As New OleDb.OleDbDataAdapter(SqlCmd, sqlconn)
Dim List As New DataSet
U_DataAdapter.Fill(List, "Units")
U_DataAdapter.Dispose()
Dim SqlCmd2 As String = "Select * from Floors"
Dim F_DataAdapter As New OleDb.OleDbDataAdapter(SqlCmd2, sqlconn)
'Dim List As New DataSet
F_DataAdapter.Fill(List, "Floors")
F_DataAdapter.Dispose()
Dim relation As New DataRelation("FloorUnits", _
List.Tables("Floors").Columns("F_ID"), _
List.Tables("Units").Columns("F_ID"))
List.Relations.Add(relation)
Dim FloorsBindingSource As New BindingSource()
FloorsBindingSource.DataSource = List
FloorsBindingSource.DataMember = "Floors"
Dim ListBindingSource As New BindingSource()
DataGridView1.DataSource = List
DataGridView1.DataMember = "FloorUnits"
DataGridView1.SetDataBinding(List, "Units.FloorUnits")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class