连接到Visual Studio中的Odata服务

Question

我正在尝试使用连接到Odata服务的Windows窗体在visual studio上创建应用程序。我在MSDN网站上寻求帮助。这是我发现的。

在Solution Explorer中，单击Data Sources节点。

在“项目”菜单上，单击“添加数据源...”。

将显示“附加数据源向导”。

在“选择数据源类型”页上，单击“OData服务”，然后单击“下一步”。

在“输入连接信息”页面的“OData源地址”字段中，键入服务的完整URL地址（例如，http://services.odata.org/Northwind/Northwind.svc/）。

单击“下一步”。

在“登录信息”下，指定服务使用的身份验证类型。

如果指定“其他凭据”，请输入有效的用户名和密码，通常由服务所有者提供。 单击“下一步”。

在“选择您的实体”页面上，指定要在LightSwitch应用程序中使用的实体，然后单击“完成”。

我无法在项目菜单上找到数据源节点以打开附加数据源向导。

Answer 1

我假设您正在尝试在VB.Net Windows窗体应用程序中使用Northwind odata服务。在这种情况下，您可以执行以下操作。

打开Visual Studio

点击文件 - ＆gt;新项目 - ＆gt; Visual Basic - ＆gt; Windows窗体应用程序

点击项目 - ＆gt;添加新数据源

选择数据类型为服务

将地址添加为http://services.odata.org/Northwind/Northwind.svc/，点击“开始”，选择“NorthwindEntities”，然后点击“确定”。而已。您现在已添加了服务引用，现在可以使用它。

双击Windows Form1.vb并添加以下代码。以下代码查询Odata服务以从领土集合中获取所有区域描述，并将它们添加到列表框中

Imports WindowsApplication1.ServiceReference1

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim northwindUri As Uri = New Uri("http://services.odata.org/Northwind/Northwind.svc/", UriKind.Absolute)


        ' Create a new instance of the typed DataServiceContext.
        Dim context As NorthwindEntities = New NorthwindEntities(northwindUri)

        Dim query = From territory In context.Territories
                    Select territory

        Try
            For Each t As Territory In query
                ListBox1.Items.Add(t.TerritoryDescription)
            Next

        Catch ex As Exception

        End Try
    End Sub
End Class

现在，当您运行表单时，您应该看到以下内容。