PrivateSubPage_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
If(IsPostBack)ThenReturn
Dim conStr As String ="Provider=Microsoft.JET.OLEDB.4.0;datasource=d:\\nwind.mdb"
Dim sqlStr As String ="SELECT*FROMEmployees"
Dim conn As System.Data.OleDb.OleDbConnection=New System.Data.OleDb.OleDbConnection(conStr)
Dim ds As DataSet=New DataSet()
Dim da As System.Data.OleDb.OleDbDataAdapter=New System.Data.OleDb.OleDbDataAdapter(sqlStr,conn)
da.Fill(ds,"Employees")
Dim dm As New FarPoint.Web.Spread.Model.DefaultSheetDataModel()
dm.DataSource=ds
dm.AutoGenerateColumns=False
dm.SetModelDataColumn(0,2)
dm.SetModelDataColumn(1,1)
dm.DataKeyField="LastName"
FpSpread1.ActiveSheetView.DataModel=dm
conn.Close()
ListBox1.Items.Add(dm.ColumnCount)
ListBox1.Items.Add(dm.RowCount)
EndSub
private void Page_Load(object sender, System.EventArgs e)
{
string conStr="Provider=Microsoft.JET.OLEDB.4.0;datasource=d:\\nwind.mdb";
string sqlStr="SELECT*FROMEmployees";
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(conStr);
DataSet ds = new DataSet();
System.Data.OleDb.OleDbDataAdapter da = new System.Data.OleDb.OleDbDataAdapter(sqlStr,conn);
da.Fill(ds,"Employees");
FarPoint.Web.Spread.Model.DefaultSheetDataModel dm = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(ds,"Employees");
dm.DataSource=ds;
dm.AutoGenerateColumns=false;
dm.SetModelDataColumn(0,2);
dm.SetModelDataColumn(1,1);
dm.DataKeyField="LastName";
FpSpread1.ActiveSheetView.DataModel=dm;
conn.Close();
ListBox1.Items.Add(Convert.ToString(dm.ColumnCount));
ListBox1.Items.Add(Convert.ToString(dm.RowCount));
}