Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread.Model Namespace / IDataSourceSupport Interface / DataSource Property
Example


In This Topic
    DataSource Property (IDataSourceSupport)
    In This Topic
    Gets or sets the data source.
    Syntax
    'Declaration
     
    Property DataSource As Object
    'Usage
     
    Dim instance As IDataSourceSupport
    Dim value As Object
     
    instance.DataSource = value
     
    value = instance.DataSource
    object DataSource {get; set;}

    Property Value

    Object containing the data source
    Example
    This example specifies the data source.
    FarPoint.Win.Spread.Model.IDataSourceSupport dss;
    string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= " + Application.StartupPath + "\\Patients2000.mdb";
    string sqlStr = "SELECT * FROM Patients";
    string sqlStr1 = "SELECT * FROM Appointment";
    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, "Patients");
    System.Data.OleDb.OleDbDataAdapter daOrder = new System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn);
    daOrder.Fill(ds, "Appointment");
    dss = (FarPoint.Win.Spread.Model.IDataSourceSupport)fpSpread1.ActiveSheet.Models.Data;
    dss.DataSource = ds;
    dss.DataMember = "Appointment";
    fpSpread1.ActiveSheet.Models.Data = (FarPoint.Win.Spread.Model.ISheetDataModel)dss;
    Dim dss As FarPoint.Win.Spread.Model.IDataSourceSupport
    Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= " & Application.StartupPath & "\Patients2000.mdb"
    Dim sqlStr As String = "SELECT * FROM Patients"
    Dim sqlStr1 As String = "SELECT * FROM Appointment"
    Dim conn As New System.Data.OleDb.OleDbConnection(conStr)
    Dim ds As DataSet = New DataSet()
    Dim daCust As New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
    daCust.Fill(ds, "Patients")
    Dim daOrder As New System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn)
    daOrder.Fill(ds, "Appointment")
    dss = FpSpread1.ActiveSheet.Models.Data
    dss.DataSource = ds
    dss.DataMember = "Appointment"
    FpSpread1.ActiveSheet.Models.Data = dss
    See Also