Example

The following example requires VB 6. You need to add references to Microsoft ActiveX Data Objects 2.1 or later, the Microsoft Data Adapter Library, and Microsoft XML, version 2.0. This example will use the ExportRangeToXMLBuffer method to create an XML buffer and then assign that buffer to the Microsoft DataGrid (OLEDB).

C++

BSTR bstr = NULL;
m_Spread.ExportRangeToXMLBuffer(1, 0, 3, 2, "Root", "Collection", &bstr, ExportToXMLUnFormattedData, "");

Visual Basic

Private Sub Command1_Click()
    Dim Buffer As String
    Dim dso As New XMLDSOControl
    Dim doc As IXMLDOMDocument
    Dim da As New DataAdapter
    Dim rs As New ADODB.Recordset

    Call fpSpread1.ExportRangeToXMLBuffer(1, 0, 3, 2, "Root", "Collection", Buffer, ExportToXMLUnFormattedData, "")
    ' Load the XML data into an XML DSO control
    Set doc = dso.XMLDocument
    doc.loadXML (Buffer)
    ' Map the DSO into a new Recordset object
    ' using a     DataAdapter
    Set da.Object = dso
    Set rs.DataSource = da
    Set DataGrid1.DataSource = rs.DataSource
End Sub

Private Sub Form_Load()
    fpSpread1.Col = 1
    fpSpread1.Row = 0
    fpSpread1.Text = "Last"
    fpSpread1.Col = 2
    fpSpread1.Row = 0
    fpSpread1.Text = "First"
    fpSpread1.Col = 3
    fpSpread1.Row = 0
    fpSpread1.Text = "Serial"
    fpSpread1.Col = 1
    fpSpread1.Row = 1
    fpSpread1.Text = "Jones"
    fpSpread1.Col = 2
    fpSpread1.Row = 1
    fpSpread1.Text = "Greg"
    fpSpread1.Col = 3
    fpSpread1.Row = 1
    fpSpread1.Text = "1234"
    fpSpread1.Col = 1
    fpSpread1.Row = 2
    fpSpread1.Text = "Smith"
    fpSpread1.Col = 2
    fpSpread1.Row = 2
    fpSpread1.Text = "Theresa"
    fpSpread1.Col = 3
    fpSpread1.Row = 2
    fpSpread1.Text = "5678"
End Sub