因为这部分的图片比较多，建议您到下面看看：
[习题]用ADO.NET Entity Framework作一个主细表（Master-Detail）范例
http://www.dotblogs.com.tw/mis2000lab/archive/2009/08/06/ado_net_entity_20090806.aspx
ADO.NET Entity入门的程序 #1（自己动手写）--DataBinding
http://www.dotblogs.com.tw/mis2000lab/archive/2009/08/17/10108.aspx
==================================================================
ADO.NET Entity入门的程序 #2（自己动手写）--For循环来展示数据、自订"参数"查询
http://www.dotblogs.com.tw/mis2000lab/archive/2009/08/17/10110.aspx
以下的范例，我们自己透过 For循环来作，共有 两个 小改版。
第一个范例，要用传统的 For循环来作。
1. HTML画面，我们不使用任何东西与控件。
2. 后置程序代码：
01 Imports ...System
02 Imports System.Collections.Generic
03 Imports System.Collections
04 Imports System.ComponentModel
05 Imports System.Text
06
07 Imports System.Data
08 Imports System.Data.Objects
09 Imports System.Data.Objects.DataClasses
10 '==============================
11 Imports testModel '==自己做的 Entity Model
12 '==============================
13
14
15 Partial Class Default1_LINQ_to_Entity
16 Inherits System.Web.UI.Page
17
18 Protected Sub Page_Load() Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
19
20 Using t_context As New testEntities '-- ObjectContext类别
21 Dim t_Query As ObjectQuery(Of test) = t_context.test
22 '-- http://msdn.microsoft.com/zh-tw/library/bb345303.aspx
23
24 For Each t As test In t_Query
25 Response.Write("<b><font color=darkblue>" & t.title.ToString() & "</font></b><br/>")
26 Response.Write("<i>" & t.summary.ToString()& "</i><br/>")
27 Response.Write("<font color=gray>" & t.article.ToString() & "</font><br/>")
28 Response.Write("<hr />")
29 Next
30 End Using
31
32 End Sub
33 End Class
简单的说，
只要我们事先完成了 EDM，里面包涵了两个 Table（名为 test与 test_talk）
后置程序代码里面， IntelliSense会自动出现关键词给我们选。
For循环里面的作法，其实跟 ADO.NET的 DataReader的写法上，也没有太大的差异。
相同的程序，我们修改一下，
第二个范例，在查询的时候，可以透过「参数」来进行查询
01 Using t_context As New testEntities
02
03 ' Create a query that takes two parameters.（此为 Entity SQL语法）
04 Dim queryString As String = "SELECT VALUE Contact " & _
05 "FROM testEntities.test AS Contact " & _
06 "WHERE Contact.title = @u_title AND Contact.author = @u_author"
07
08 ' Add 2 parameters to the collection.
09 Dim t_Query As New ObjectQuery(Of test)(queryString,t_context, MergeOption.NoTracking)
10
11 t_Query.Parameters.Add(New ObjectParameter("u_title", "你要查询的值"))
12 t_Query.Parameters.Add(New ObjectParameter("u_author", "你要查询的值"))
13
14
15 For Each result As test In t_Query
16 Response.Write("[标题]: " & result.title)
17 Response.Write("<br/> [作者]: " & result.author)
18 Response.Write("<hr/>")
19 Next
20
21 End Using