Vb.net 连接到Visual Studio中的Odata服务

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

---

在解决方案资源管理器中，单击“数据源”节点

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

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

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

在“输入连接信息”页面上的OData源地址字段中，键入服务的完整URL地址（例如）

单击下一步

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

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

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

---

---

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

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

开放式Visual Studio

单击文件->新建项目->Visual Basic->Windows窗体应用程序

单击项目->添加新数据源

选择数据类型作为服务

将地址添加为，单击GO并选择NorthwindEntities，然后单击“确定”。就这样。您现在已经添加了服务引用，现在可以使用它了

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

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

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