ASP.NET專題實務 WebForm + MVC線上教學影片 -- MIS2000Lab.

Dim Conn As New SqlConnection("DB連結字串--Connection String")
Dim ds As New DataSet

Dim u_Adapter As New SqlDataAdapter
    u_Adapter.SelectCommand = New SqlCommand("Select * from test", Conn)
    u_Adapter.Fill(ds, "test") '---- 這時候執行SQL指令。取出資料，放進 DataSet。

Dim new_row As DataRow = ds.Tables("test").NewRow()
'-- 手動新增一行 DataRow
      new_row("class") = "科技"
      new_row("title") = "咖哩薑黃素 防失智又抗癌"
      new_row("summary") = "最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能..."
      new_row("article") = "食道癌高居我國癌症死亡病因第九名，不過最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能，在治療食道癌上有顯著效果，..."
      new_row("author") = "台灣醒報記者楊舒婷綜合報導"

ds.Tables("test").Rows.Add(new_row)   '--將新增的一行 DataRow加入 DataSet裡面


'==事先寫好 InsertCommand ===================================
u_Adapter.InsertCommand = New SqlCommand("INSERT INTO [test] ([test_time], [class], [title], [summary], [article], [author]) VALUES (getdate(), @class, @title, @summary, @article, @author)", Conn)

'-- InsertCommand 參數 --(start)
   u_Adapter.InsertCommand.Parameters.Add("@class", SqlDbType.NVarChar, 50)
   u_Adapter.InsertCommand.Parameters("@class").Value = "科技"

   u_Adapter.InsertCommand.Parameters.Add("@title", SqlDbType.NVarChar, 100)
   u_Adapter.InsertCommand.Parameters("@title").Value = "咖哩薑黃素 防失智又抗癌"

   u_Adapter.InsertCommand.Parameters.Add("@summary", SqlDbType.NVarChar, 250)
   u_Adapter.InsertCommand.Parameters("@summary").Value = "最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能..."

   u_Adapter.InsertCommand.Parameters.Add("@article", SqlDbType.NVarChar, 16)
   u_Adapter.InsertCommand.Parameters("@article").Value = "食道癌高居我國癌症死亡病因第九名，不過最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能，在治療食道癌上有顯著效果，..."

   u_Adapter.InsertCommand.Parameters.Add("@author", SqlDbType.NVarChar, 100)
   u_Adapter.InsertCommand.Parameters("@author").Value = "台灣醒報記者楊舒婷綜合報導"
'-- InsertCommand 參數 --(end)

'=====================================================

u_Adapter.Update(ds, "test")
'---- 這時候執行SQL指令。把 DataSet裡面的新資料，回寫到資料庫！

因為 DataSet + DataAdapter 會自動開啟、關閉資料庫的連線，
所以上述程式碼中，沒看見 Conn.Open() 或 Conn.Close()

 '== (1). 連結資料庫。Connection to DB。
Dim db As New DataContext("DB連結字串--Connection String")
'-- 使用 DataContext類別連結資料庫。using DataContext class to onnect DB.

'== (2). 執行 LINQ指令，存取資料。Using DataContext's .GetTable() method to return the collection of table objects.

Dim myTest As Table(Of test) = db.GetTable(Of test)() 

'-- 必須搭配 System.Data.Linq 命名空間(NameSpace)
    '-- DataContext的 .GetTable()方法，是用來傳回表格物件的集合。
    '-- http://msdn.microsoft.com/zh-tw/library/system.data.linq.datacontext.gettable.aspx

' Create a new "test" object.
'-- 參考資料 http://msdn.microsoft.com/zh-tw/library/bb386941.aspx
Dim AddNewData As New test With _
    { .class = "科技", _
      .test_time = DateTime.Now(), _
      .title = "咖哩薑黃素 防失智又抗癌", _
      .summary = "最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能...", _
      .article = "食道癌高居我國癌症死亡病因第九名，不過最近愛爾蘭的科學家實驗發現，咖哩中的薑黃素殺死癌細胞的功能，在治療食道癌上有顯著效果，...", _
      .author = "台灣醒報記者楊舒婷綜合報導"  }

myTest.InsertOnSubmit(AddNewData)
    '-- 將 pending insert狀態中的實體  加入至此 Table(Of (TEntity))。
    '-- 在呼叫 SubmitChanges之前，不會在這份資料表的查詢結果中看到所加入的實體。
    '-- http://msdn.microsoft.com/zh-tw/library/bb763516.aspx

db.SubmitChanges()
    '-- 插入、更新或刪除的一組已修改的物件，並執行適當的命令來實作資料庫的變更。

    '-- Insert a new record into Database
    '-- http://msdn.microsoft.com/zh-tw/library/bb292162.aspx