ADO.NET Entity入門的程式 #2(自己動手寫)--For迴圈來展示資料、自訂參數查詢

摘要:ADO.NET Entity入門的程式 #2(自己動手寫)--For迴圈來展示資料

上一篇文章(ADO.NET Entity入門的程式 #1(自己動手寫)--DataBinding

透過現成的 GridView控制項來展示資料

 

以下的範例,我們自己透過 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(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
 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程,遠距教學 (Web Form 49hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程,遠距教學 (ASP.NET MVC 75~80hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程 第一天 免費看 (5.5小時) 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.台灣  或  school (at) mis2000lab.net


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

................   facebook社團   https://www.facebook.com/mis2000lab   ......................

................  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)

...................................................................................................................................................... 

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

ASP.NET MVC 5 線上教學

         累積時數約 75~ 80小時...... 第一天(5.5小時)完整內容,"免費"讓您評估