Tutorial

This tutorial describe most of features supported by DC.BindingRecordset

also you can refer to the project example which installed by default into C:\Program Files\Dynamic Components\Binding Recordset\Tutorial\

Dim BR As New DynamicComponents.BindingRecordset()

Dim CN As New ADODB.Connection()

Dim oOrders As New ADODB.Recordset()

Dim oOrderDetails As New ADODB.Recordset()

Dim oAccess As New Access.Application()

Dim DAO_DBEngine As New DAO.DBEngine()

Private Sub TestForm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

'establish DSN

oAccess.DBEngine.RegisterDatabase("DCDM_Nwind", "Microsoft Access Driver (*.mdb)", True, "DBQ=" & VB6.GetPath & "\Nwind.mdb")

CN.Open("DSN=DCDM_NWind")

oOrders.Open("Orders", CN, oOrders.CursorType.adOpenKeyset, oOrders.LockType.adLockOptimistic)

oOrderDetails.Open("OrderDetails", CN, oOrderDetails.CursorType.adOpenKeyset, oOrderDetails.LockType.adLockOptimistic)

Me.AxDataGrid1.DataSource = oOrderDetails

BR.InitForm(CN, Me, oOrders, AxDataGrid1, oOrderDetails) 'Must Be your first declaration

BR.NavigationButtons("FirstButton", "PrevButton", "NextButton", "LastButton")

BR.ManipulationButtons("OkButton", "NewButton", "DeleteButton", "ExitButton", "SearchButton")

BR.KeyFields("OrderId")

BR.SetLink("OrderId", "OrderId")

BR.AddRelatedValue("Customers", "CustomerID", "CustomerID", "CustomerName", "xCustomerName", 3)

BR.AddRelatedValue("Shippers", "ShipperId", "ShipVia", "CompanyName", "xCompanyName", 2)

BR.AddGridRelatedValue("Products", "ProductID", "ProductID", "ProductName", "ProductName", 2)

BR.KeyLeaveField(oOrders, "OrderId", 5)

BR.RequiredFields("OrderId+OrderDate+CustomerId")

BR.PopulateForm(Me, oOrders, AxDataGrid1, oOrderDetails) 'Must be your last declaration

End Sub