Webservices and OLE object

Discussion in 'ASP .Net' started by jib, Jul 8, 2003.

  1. jib

    jib Guest

    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.AppSettings[ "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.Length

    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
     
    jib, Jul 8, 2003
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Sandi

    Read OLE Object field to Image ?

    Sandi, Nov 5, 2003, in forum: ASP .Net
    Replies:
    0
    Views:
    601
    Sandi
    Nov 5, 2003
  2. Sandi
    Replies:
    3
    Views:
    1,825
    Natty Gur
    Nov 6, 2003
  3. Patrick.O.Ige

    Ole ole

    Patrick.O.Ige, Jul 16, 2006, in forum: ASP .Net
    Replies:
    0
    Views:
    526
    Patrick.O.Ige
    Jul 16, 2006
  4. Drew Pihera
    Replies:
    0
    Views:
    668
    Drew Pihera
    Feb 4, 2004
  5. Lance Hoffmeyer
    Replies:
    0
    Views:
    275
    Lance Hoffmeyer
    Nov 17, 2003
Loading...

Share This Page