Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > Webservices and OLE object

Reply
Thread Tools

Webservices and OLE object

 
 
jib
Guest
Posts: n/a
 
      07-08-2003
Hi,

I am trying to send an Access database table containing a OLE field through
ASP.NET (web services) to a client (being a Word Macro). The table consists
of four columns with the first three being simple strings and the last one
my OLE object. The web service gets called by a Word macro - using the
debugger in Word, I can see the webservice returning with all info except
the fourth column. Whats going on?

Thanks for any info.

Jib

This is my c# web service:
[ WebMethod( Description = "Generates a specification type list" ) ]

public DataSet Get_Specifications()

{

string DbPath =
System.Configuration.ConfigurationSettings.AppSett ings[ "pmsDb" ];

OleDbConnection DbConnection = new OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + DbPath );


OleDbDataAdapter DataAdapter = new OleDbDataAdapter( "SELECT * FROM
SpecTypes;", DbConnection );


DataSet Dset = new DataSet();

DataAdapter.Fill( Dset, "SpecTypes" );

return Dset;

}

This is my Word macro:

Sub Server_Get_Specifications()
Dim SoapClient, Results, i, ResultElements, ResultCount
Set SoapClient = CreateObject("MSSOAP.SoapClient30")

On Error Resume Next

SoapClient.mssoapinit (HttpServices$ + "SpecServices.asmx?WSDL")
If Err Then
MsgBox Err.Description
MsgBox "Faultstring =" + SoapClient.faultString
MsgBox "Faultactor =" + SoapClient.faultactor
MsgBox "Faultcode =" + SoapClient.faultcode
MsgBox "Detail =" + SoapClient.detail
End If

Set Results = SoapClient.Get_Specifications()
If Err Then
MsgBox Err.Description
MsgBox "Faultstring =" + SoapClient.faultString
MsgBox "Faultactor =" + SoapClient.faultactor
MsgBox "Faultcode =" + SoapClient.faultcode
MsgBox "Detail =" + SoapClient.detail
Else
For i = 0 To Results.Length - 1
If Results.Item(i).nodeName = "diffgr:diffgram" Then
NumberOfSpecs = Results.Item(i).childNodes.Item(0).childNodes.Leng th

ReDim Specifications__$(NumberOfSpecs)
ReDim SpecificationsTemplates$(NumberOfSpecs)

For j = 0 To NumberOfSpecs - 1
SpecNum =
Results.Item(i).childNodes.Item(0).childNodes.Item (j).childNodes.Item(0).nod
eTypedValue
Summary =
Results.Item(i).childNodes.Item(0).childNodes.Item (j).childNodes.Item(1).nod
eTypedValue
Descrip =
Results.Item(i).childNodes.Item(0).childNodes.Item (j).childNodes.Item(2).nod
eTypedValue
Specifications__$(j) = SpecNum + " " + Summary
SpecificationTemplates(j) =
Results.Item(i).childNodes.Item(0).childNodes.Item (j).childNodes.Item(3).nod
eTypedValue
Next

End If
Next
End If
End Sub


 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Ole ole Patrick.O.Ige ASP .Net 0 07-16-2006 08:10 AM
Object creation - Do we really need to create a parent for a derieved object - can't the base object just point to an already created base object jon wayne C++ 9 09-22-2005 02:06 AM
Creating an OLE server document in Python (MFC/OLE/COM/Python newbie) Drew Pihera Python 0 02-04-2004 07:48 PM
Win32::OLE adding shape to OLE Object (xlsheet) in PPT Lance Hoffmeyer Perl Misc 0 11-17-2003 07:44 PM
Read OLE Object field to Image ? Sandi ASP .Net 0 11-05-2003 02:11 PM



Advertisments