Imports System.Data.OracleClient
Public Class Form11
Public con As New OracleConnection(“user id=scott;password=tiger”)
Public da1 As New OracleDataAdapter(“select * from dept”, con)
Public da2 As New OracleDataAdapter(“select * from emp”, con)
Public ds As New DataSet
Private Sub Form11_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
da1.Fill(ds, “dept”)
da2.Fill(ds, “emp”)
Dim r As DataRelation
r = New DataRelation(“de”, ds.Tables(“dept”).Columns(“deptno”), ds.Tables(“emp”).Columns(“deptno”))
ds.Relations.Add(r)
DataGridView1.DataSource = ds.Tables(“dept”)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Try
If e.ColumnIndex = 0 Then
Dim dv As New DataView(ds.Tables(“emp”))
dv.RowFilter = “deptno=” & DataGridView1.CurrentCell.Value
DataGridView2.DataSource = dv
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
