Question

我很难使用DocumentDB来使用visual studio 2015 update 2和Vb.net

创建文档

对CreateDocumentAsync的调用消失了，永远不会回来。我尝试使用相同的参数在C＃中进行相同的调用，它们工作正常，但我的客户要求我使用Vb.NET

我已将问题缩小为测试程序，如下所示。

Main.vb

Imports Microsoft.Azure.Documents
Imports Microsoft.Azure.Documents.Client

Module Module1


    Sub Main()
        Test()
    End Sub

    Public Async Sub Test()

        Dim client As New DocumentClient(New Uri("https://XXXXXXX.documents.azure.com:443/"), "XXXXXXXXX==")


        ' Create a new document


        Dim x As New JGR
        x.id = Guid.NewGuid.ToString()
        x.name = "Graham"
        Dim y As ResourceResponse(Of Document) = Await        client.CreateDocumentAsync(UriFactory.CreateDocumentCollectionUri("XXXX-Playground", "XXXXXX"), x, Nothing, True)
     End Sub
End Module

JGR.VB

Imports Newtonsoft.Json

Public Class JGR

    <JsonProperty(PropertyName:="id")>
    Property id As String
    Property name As String
End Class

Answer 1

您的代码似乎运行得很好。我创建了一个新的单个分区集合，并使用Newtonsoft.Json版本6.0.8使用Microsoft.Azure.DocumentDB nuget包1.7.1进行了测试。我也尝试过更新到Newtonsoft.json 8.0.3，仍然运行正常。创建文档的请求费用是5.52

我建议您将方法签名从Sub更改为Function，以返回任务，以便捕获错误 - 如果不是，程序可能会在您的请求完成之前退出。

Sub Main()
    Test().Wait()
End Sub

Public Async Function Test() As Task
    Dim client As New DocumentClient(New Uri("https://stacktest.documents.azure.com:443/"), "g6YlmeYQkoIlrKhuToNIF7kDeHn5VSKiljx4FOijNUtae25cEyNwnKO5TXCT7Y2yWifldxwKb8AIZWhaAtQ5tw==")


    ' Create a new document

    Dim x As New JGR
    x.id = Guid.NewGuid.ToString()
    x.name = "Graham"
    Dim y As ResourceResponse(Of Document) = Await client.CreateDocumentAsync(UriFactory.CreateDocumentCollectionUri("db1", "col1"), x, Nothing, True)
End Function

Answer 2

我不是VB程序员所以我对VB中的Async并不完全熟悉，但我很确定问题出在Async代码上。当您调用Sub时，没有返回任务，因此您的代码将不会等待任何异步操作完成。

您可以将其包装在任务中并像这样调用您的方法：

Sub Main()
    Dim task = New Task(AddressOf Test)
    task.Start()
    task.Wait()
End Sub

这应该可以解决问题。但是，它非常冗长。另一种方法是将Sub更改为Function并返回带有某种状态消息的Task。

希望这有帮助。

无法使Azure DocumentDB与VB.NET一起使用

2 个答案: