Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=D:\\nwind.mdb"
Dim sqlStr As String = "SELECT * FROM Customers"
Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(conStr)
Dim ds As DataSet = New DataSet()
Dim daCust As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
daCust.Fill(ds, "Customers")
Dim daOrder As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
daOrder.Fill(ds, "Orders")
Dim rel = New DataRelation("CustOrdRel", ds.Tables("Customers").Columns("CustomerID"), ds.Tables("Orders").Columns("CustomerID"))
ds.Relations.Add(rel)
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(ds)
FpSpread1.ActiveSheet.Models.Data = dataModel
Dim i As Integer
i = dataModel.ChildRelationCount
ListBox1.Items.Add(i.ToString())
string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source=D:\\nwind.mdb";
string sqlStr = "SELECT * FROM Customers";
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(conStr);
DataSet ds = new DataSet();
System.Data.OleDb.OleDbDataAdapter daCust = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn);
daCust.Fill(ds, "Customers");
System.Data.OleDb.OleDbDataAdapter daOrder = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn);
daOrder.Fill(ds, "Orders");
DataRelation rel = new DataRelation("CustOrdRel", ds.Tables["Customers"].Columns["CustomerID"], ds.Tables["Orders"].Columns["CustomerID"]);
ds.Relations.Add(rel);
FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(ds);
fpSpread1.ActiveSheet.Models.Data = dataModel;
int i;
i = dataModel.ChildRelationCount;
listBox1.Items.Add(i.ToString());