ASMX not showing webmethod that should return a dataset

[Guest]

Hi all...

I'm fairly new to buildling web services in .NET 2.0. Using VB.NET (2005),
I'm doing something like this in a webmethod:

- instantiating a 3rd party business object (QuickBooks customers actually)
- iterating through the collection and adding rows to a DataTable in a DataSet
- Returning the DataSet ("Return dsCustomers")

I've got other webmethods that return strings working just fine. I know the
code in this method works, because I've tested it inside an ASP.NET page.

My questions are:

1) if it compiles, why wouldn't the method show up in the service's ASMX page?
2) what's the best way to debug a web service like this?

Thanks,
Michael

 

[W.G. Ryan [MVP]]

Do you have it marked with the WebMethod attribute? That's the usual
culprit. You can use the debugger like you normally would but I'd recommend
logging once it's past development.

 

[Guest]

Yes... I'm using it exactly as I am for methods that ARE working...

Any thoughts?

Michael

 

[Jeff Dillon]

Show your code

 

[W.G. Ryan [MVP]]

Like Jeff mentions, it's probably best to show the code.

 

[Guest]

Here's my code:

<WebMethod()> _
Private Function LoadCustomers() As System.Data.DataSet

Dim dsClients As System.Data.DataSet
Dim tblClients As System.Data.DataTable
Dim drClient As System.Data.DataRow
Dim dcClientName As System.Data.DataColumn
dsClients = New System.Data.DataSet
tblClients = New System.Data.DataTable("Clients")
dcClientName = New System.Data.DataColumn("ClientName",
Type.GetType("System.String"))
tblClients.Columns.Add(dcClientName)
dsClients.Tables.Add(tblClients)

qbCustomer.Reset()
qbCustomer.QBXMLVersion = "CA3.0"
qbCustomer.QBConnectionMode =
nsoftware.IBizQB.VendorQBConnectionModes.cmDontCare
qbCustomer.QBConnectionString =
ConfigurationManager.AppSettings("IbizQB")
qbCustomer.OpenQBConnection()

Objsearch.Reset()
Objsearch.QBXMLVersion = "CA3.0"
Objsearch.QBConnectionMode =
nsoftware.IBizQB.ObjsearchQBConnectionModes.cmDontCare
Objsearch.QBConnectionString =
ConfigurationManager.AppSettings("IbizQB")
Objsearch.OpenQBConnection()

Objsearch.QueryType =
nsoftware.IBizQB.ObjsearchQueryTypes.qtCustomerSearch
Objsearch.ActiveStatus =
nsoftware.IBizQB.ObjsearchActiveStatus.asActiveOnly
Objsearch.Search()
Dim i As Integer

For i = 0 To Objsearch.ResultCount - 1
qbCustomer.QBResponseAggregate = Objsearch.ResultAggregate(i)

If qbCustomer.ParentId = "" Then

drClient = dsClients.Tables("Clients").NewRow
drClient.Item("ClientName") = qbCustomer.CustomerName
dsClients.Tables("Clients").Rows.Add(drClient)
drClient = Nothing

End If
Next i

If qbCustomer.QBOpenCompanyFile.ToString <> "" Then
qbCustomer.CloseQBConnection()
End If
If Objsearch.QBOpenCompanyFile.ToString <> "" Then
Objsearch.CloseQBConnection()
End If
qbCustomer = Nothing
Objsearch = Nothing

Return dsClients
End Function

 

[Jeff Dillon]

Shouldn't it be Public and not Private?

Here's my code:

<WebMethod()> _
Private Function LoadCustomers() As System.Data.DataSet

Dim dsClients As System.Data.DataSet
Dim tblClients As System.Data.DataTable
Dim drClient As System.Data.DataRow
Dim dcClientName As System.Data.DataColumn
dsClients = New System.Data.DataSet
tblClients = New System.Data.DataTable("Clients")
dcClientName = New System.Data.DataColumn("ClientName",
Type.GetType("System.String"))
tblClients.Columns.Add(dcClientName)
dsClients.Tables.Add(tblClients)

qbCustomer.Reset()
qbCustomer.QBXMLVersion = "CA3.0"
qbCustomer.QBConnectionMode =
nsoftware.IBizQB.VendorQBConnectionModes.cmDontCare
qbCustomer.QBConnectionString =
ConfigurationManager.AppSettings("IbizQB")
qbCustomer.OpenQBConnection()

Objsearch.Reset()
Objsearch.QBXMLVersion = "CA3.0"
Objsearch.QBConnectionMode =
nsoftware.IBizQB.ObjsearchQBConnectionModes.cmDontCare
Objsearch.QBConnectionString =
ConfigurationManager.AppSettings("IbizQB")
Objsearch.OpenQBConnection()

Objsearch.QueryType =
nsoftware.IBizQB.ObjsearchQueryTypes.qtCustomerSearch
Objsearch.ActiveStatus =
nsoftware.IBizQB.ObjsearchActiveStatus.asActiveOnly
Objsearch.Search()
Dim i As Integer

For i = 0 To Objsearch.ResultCount - 1
qbCustomer.QBResponseAggregate = Objsearch.ResultAggregate(i)

If qbCustomer.ParentId = "" Then

drClient = dsClients.Tables("Clients").NewRow
drClient.Item("ClientName") = qbCustomer.CustomerName
dsClients.Tables("Clients").Rows.Add(drClient)
drClient = Nothing

End If
Next i

If qbCustomer.QBOpenCompanyFile.ToString <> "" Then
qbCustomer.CloseQBConnection()
End If
If Objsearch.QBOpenCompanyFile.ToString <> "" Then
Objsearch.CloseQBConnection()
End If
qbCustomer = Nothing
Objsearch = Nothing

Return dsClients
End Function

 

[Guest]

CLUNK <heel of hand hitting forhead> ! Boy do I feel stupid...

Thank you Jeff.

m