Connect Office Apps to .NET with "Lite" Web Services
By Luther Miller, November 01, 2003
It's possible to communicate between .NET and older versions of Office with a "lite" web service by using ASP.NET. Luther takes advantage of a class in MSXML called "XMLHTTPRequest," which handles all of the plumbing to make an HTTP request and receive an XML response.
Connect Office Apps to .NET with "Lite" Web Services
Listing 15 CreateOrderRecordsets
' Create a Recordset with title_ids and quantities from Sheet2.
Public Function CreateOrderRecordsets() As Collection
Dim loRecordsets As Collection
Dim loRecordset As New ADODB.Recordset
Dim lvArray As Variant
Dim llRecCtr As Long
Set loRecordsets = New Collection
loRecordset.Fields.Append "title_id", ADODB.DataTypeEnum.adVarChar, 50, _
Attrib:=adFldIsNullable
loRecordset.Fields.Append "order_qty", ADODB.DataTypeEnum.adInteger, _
Attrib:=adFldIsNullable
loRecordset.Open
lvArray = Sheet2.Range("A1", "B2")
For llRecCtr = 1 To UBound(lvArray, 1)
loRecordset.AddNew
loRecordset.Fields("title_id").Value = lvArray(llRecCtr, 1)
loRecordset.Fields("order_qty").Value = lvArray(llRecCtr, 2)
Next llRecCtr
loRecordsets.Add loRecordset
Set CreateOrderRecordsets = loRecordsets
End Function
