最近發現資料庫如果改成自訂義的檔案方式~
由原先前端下條件搜索資料庫的資料，改成搜索檔案的資料~變很快
覺得這應該是ASP.Net才能做得到吧@@..PHP好像不能這麼做?
想問習慣PHP的人~會有這種寫法嗎?

我先說目前環境→補習班→需要匯出每個月課表供學生選課
學生可以在課表上進階搜尋任何條件查詢資料~
以往都是要下SQL條件查詢資料庫後，才把想要的課表資料帶出來~
但因為課表的資料已經累積10年左右了(不可以刪除舊課表資料)
滿龐大的= =...

於是我改了一個做法~就是先匯出最近2個月的課表到文字檔案
文字檔案的內容是存Json格式 [{...},{...},{...},{...}]
如果老師有異動課表資料，就會更新文字檔案的內容~

然後我再把Json檔案的資料讀到網頁的課表顯示
學生若要搜索課表的條件，也可以在這個Json檔案範圍內搜索~
網頁讀取速度滿快的呢@@...

概念作法
DB→Json檔案→網頁顯示

實作方式

Dim Json_LessonUrl As String = "https://........../Lesson.json"
Dim Json_LessonStr As String = func.GetWebTxt(Json_LessonUrl, 65001)

'建立自定義的表格
Dim table As New System.Data.DataTable
table.TableName = "Lesson"
Dim idColumn As System.Data.DataColumn = table.Columns.Add("Lesson_ID", GetType(Integer))
table.Columns.Add("Lesson_Date", GetType(Date))
table.Columns.Add("Lesson_Time", GetType(String))
table.Columns.Add("TeacherName", GetType(String))
table.Columns.Add("Lesson_Title", GetType(String))
table.Columns.Add("Lesson_Notes", GetType(String))

'將資料寫入自訂義表格
Dim JArray_Obj As Newtonsoft.Json.Linq.JArray = Newtonsoft.Json.Linq.JArray.Parse(Json_LessonStr)
For j = 0 To JArray_Obj.Count - 1
    Dim Lesson_ID As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("Lesson_ID")), """", "")
    Dim Lesson_Date As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("Lesson_Date")), """", "")
    Dim Lesson_Time As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("Lesson_Time")), """", "")
    Dim TeacherName As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("TeacherName")), """", "")
    Dim Lesson_Title As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("Lesson_Title")), """", "")
    Dim Lesson_Notes As String = Replace(Newtonsoft.Json.JsonConvert.SerializeObject(JArray_Obj(j).Item("Lesson_Notes")), """", "")
    table.Rows.Add(New Object() {Lesson_ID,Lesson_Date,Lesson_Time,TeacherName,Lesson_Title,Lesson_Notes})
Newx
table.AcceptChanges()

'條件搜索
Sql = "1=1 "
If Today_yn > 0 Then
   Sql &= " and Lesson_Date = '" & Now.Date & "'"
End If
If Keyword_Date <> "" Then
   Sql &= " and Lesson_Date = '" & Keyword_Date & "'"
End If
If Keyword_Teacher <> "" Then
   Sql &= " and TeacherName like '%" & Keyword_Teacher & "%'"
End If
If Keyword_Title <> "" Then
   Sql &= " and Lesson_Title like '%" & Keyword_Title & "%'"
End If
Dim LessonTable() As System.Data.DataRow = table.Select(Sql)

'最後顯示資料
For k = 0 To LessonTable.Length - 1
   Dim Rs As System.Data.DataRow = LessonTable(k)
   xxxxxx....略
Next