Hi,
I am trying to create a master/detail form with Access
I am creating a master/detail setup with master records in a textbox and the details are in a datagrid. This is departments tables(master) and details table (table1) linked by deptno, Pk and Fk.
i filled the data sets and liked the relation parent to child.
.I can get it ti work with 2 datasets and just load a dataset using sql and 'where' clause from a text box, without using data relation.
on last line here i get
error:Cannot create a child list for field mytable1.
Expand|Select|Wrap|Line Numbers
- Private Sub LoadDepartments()
- Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\andrew visual basic\datagridBindAll\db1.mdb;")
- Dim cmd As New OleDbCommand
- Dim cb As OleDbCommandBuilder
- cmd.CommandText = "Select * From Departments"
- cmd.Connection = cn
- da.SelectCommand = cmd
- cb = New OleDbCommandBuilder(da)
- da.UpdateCommand = cb.GetUpdateCommand
- da.InsertCommand = cb.GetInsertCommand
- da.DeleteCommand = cb.GetDeleteCommand
- da.Fill(ds, "Departments")
- cmd.CommandText = "Select * From table1"
- cmd.Connection = cn
- da.SelectCommand = cmd
- da.Fill(ds, "table1")
- End Sub
- Private Sub BindControls()
- Dim cmd As New OleDbCommand
- Dim relation As DataRelation
- DeptBinder = Me.BindingContext(ds, "Departments")
- relation = _
- New DataRelation("mytable1", _
- ds.Tables("Departments").Columns("deptno"), _
- ds.Tables("table1").Columns("deptno"))
- ds.Relations.Add(relation)
- txtdeptno.DataBindings.Add("Text", ds, "Departments.DeptNo")
- txtDname.DataBindings.Add("Text", ds, "Departments.DName")
- txtLoc.DataBindings.Add("Text", ds, "Departments.Loc")
- DataGrid1.SetDataBinding(ds, "table1.mytable1") 'error Cannot create a child list for field mytable1.
- End Sub