'Dim myadapter As New SqlDataAdapter("SELECT * FROM Jbxx", Conn)
'Conn.Open()
Dim ds3 As New DataSet
'myadapter.Fill(ds2, "Emp")
Dim sql1 As String = "select * from jbxx "
Dim sql2 As String = "select * from jbxxext "
'Dim ds1 As New DataSet
'Dim ds2 As New DataSet
Dim ds1 As New SqlDataAdapter(sql1, Conn)
Dim ds2 As New SqlDataAdapter(sql2, Conn)
'DataSet(myDataSet = New DataSet)
ds1.Fill(ds3, "TB1")
ds2.Fill(ds3, "TB2")
Dim cl1 = ds3.Tables("TB1").Columns("userID")
Dim cl2 = ds3.Tables("TB2").Columns("userID")
Dim rel As DataRelation = New DataRelation("TB1ORTB2", ds3.Tables("TB1").Columns("userID"), ds3.Tables("TB2").Columns("userID"))
ds3.Relations.Add(rel)
Dim myadapter As New SqlDataAdapter("SELECT * FROM Jbxx", Conn)
Conn.Open()
Dim ds2 As New DataSet
myadapter.Fill(ds2, "Price")
myadapter.SelectCommand.CommandText = "SELECT * FROM jbxxext"
myadapter.Fill(ds2, "Dept")
Dim objDeptEmpRelation As DataRelation = New DataRelation("EmpDept", ds2.Tables("Dept").Columns("userid"), _
ds2.Tables("price").Columns("userid"))
ds2.Relations.Add(objDeptEmpRelation)
Me.DataGrid1.SetDataBinding(ds2, "Dept")
Me.DataGrid2.SetDataBinding(ds2, "Dept.EmpDept")
Dim strConn As String = "user id=scott;password=tiger;data source=orcl"
Dim objConn As OracleConnection
Dim objDataAdapter As OracleDataAdapter
Dim strSql As String = ""
Dim objDataSet As DataSet
Try
objConn = New OracleConnection(strConn)
strSql = "SELECT * FROM EMP"
objDataAdapter = New OracleDataAdapter(strSql, objConn)
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "Emp")
objDataAdapter.SelectCommand.CommandText = "SELECT * FROM DEPT"
objDataAdapter.Fill(objDataSet, "Dept")
Dim objDeptEmpRelation As DataRelation = New DataRelation("EmpDept", objDataSet.Tables("Dept").Columns("DeptNo"), _
objDataSet.Tables("Emp").Columns("DeptNo"))
objDataSet.Relations.Add(objDeptEmpRelation)
Me.DataGrid1.SetDataBinding(objDataSet, "Dept")
Me.DataGrid2.SetDataBinding(objDataSet, "Dept.EmpDept")
Catch ex As Exception
MsgBox(ex.Message)
End Try