Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IsPostBack Then Return
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=NewSystem.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)
End Sub
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.OleDbConnectionconn = 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));
}