Querying workitems vb.net

Question

Querying workitems vb.net

LoveToCode 161

Hi, I’m looking to query all work items from devops. I’m successfully listing projects, but when I query there’s nothing. I’m using vb.net. Below is my code:

I’m calling the LoadworkitemsAsync function from Form_Load
Dim r = LoadworkitemsAsync(“testproject”)

Public Async Function LoadWorkItemsAsync(projectname As String) As Task(Of WorkItem)

    Dim credentials = New VssBasicCredential("", _Personalaccesstoken)
    Dim WQuery As New Wiql()

    With WQuery

        .Query = "select [System.ID], [System.Title],[System.Description]" _
              & " from Work Items Where[System.WorkItemType]='Epic' and" _
              & " [System.Teamproject]= " + "'" & projectname & "'"
    End With

    Dim WitClient As New WorkItemTrackingHttpClient(ADOUri, credentials)

'Here nothing happens it returns back to the function call
Dim wresults = Await WitClient.QueryByWiqlAsync(WQuery).ConfigureAwait(False)

Karen Payne MVP 35,606 Reputation points Volunteer Moderator

2021-04-07T11:32:35.15+00:00

Have you tried
Dim wresults = Await WitClient.QueryByWiqlAsync(WQuery)

Then if that does not work, look at the following examples (in C# but easy enough to understand)

1 answer

Your answer

Karen Payne MVP 35,606 Reputation points Volunteer Moderator

2021-04-07T11:32:35.15+00:00

Have you tried
Dim wresults = Await WitClient.QueryByWiqlAsync(WQuery)

Then if that does not work, look at the following examples (in C# but easy enough to understand)

Answer 1

Viorel 127K

Try "from WorkItems" instead of "from Work Items".

Remove temporarily the "where..." condition to perform a simple test.

LoveToCode 161 Reputation points

2021-04-07T08:04:40.18+00:00
So do you find rest of the code ok - I'm skeptical if I'm using calling the async function correctly

I executed the code per your suggestion - but at this line

Dim wresults = Await WitClient.QueryByWiqlAsync(WQuery).ConfigureAwait(False)

the program returns to the Form_load where the Loadworkitemasync function is called.

Dim rl As Task = LoadWorkItemsAsync("devops")

Share via

Querying workitems vb.net

1 answer

Your answer