VB要如何寫入ACCESS的資料(20點)

Question

如題，我想知道如何用VB去[寫入]資料到ACCESS所建立的資料庫檔案，希望可以把VB的程式碼以及步驟詳細寫出來給我參考，感謝。

ps.所謂的寫入就是，用VB編輯出一個介面之後，比如說有班級，姓名，成績這三個textbox，在這三個box輸入資料後按下新增就可以把這三筆資料輸入至access的對應欄位中這樣，這只是打比方，如果有其他方法可以寫入也請告知(請附上程式碼)感恩!

喔大大你真的超強...之前看你回答其他vb問題就絕得你超用心的，讚。
不知道大大可不可以交我，使用另外依個儲存按鈕的方式儲存，不是使用上一頁的方式儲存這樣，不好意思麻煩大大了!(不行的話也沒關係 可以的話'當然最好囉^^)

Answer 1

我以你的比方來做一個範例，首先你要先用Access建一個資料表檔案，裡面要有班級、姓名、成績的欄位，然後儲存檔案，再依下列方式做連結。
VB和Access做連結步驟設定如下：
一．開啟新表單，在功能表列"專案"→"設定使用元件"→選Micorsoft ADO Data Control6.0(OLEDB)，將ADODC1的物件放入表單上。
二．在ADODC1的物件上，按滑鼠右鍵，選ADODC的屬性，然後會出現一個屬性頁的視窗。在屬性頁視窗的"一般"項目裡，點選"使用連線字串"，然後按右方的"建立"鈕後，會在出現一個資料連結內容的視窗。
三．資料連結內容視窗的"提供者"項目裡，選取"Microsoft Jet 4.0 OLE DB Provider"，按"下一步"，資料連結內容視窗會切換到"連線"項目裡，然後在"1.選擇或輸入資料庫名稱"下方空白處輸入要連結的Access檔案名稱及路徑，也可直接按右方的"..."鍵去加入檔案，檔案加入後按下方"測試連線"鈕，如果出現測試連線成功的視窗，就表示VB和Access的檔案已經連結了，按"確定"鈕回到屬性頁的視窗。
四．在屬性頁視窗的"資料錄來源"項目裡，命令類型請選擇"2-adCmd Table"，資料表或預存程序的名稱請選擇你Access檔案內的資料表名稱（通常只會有一個而已，Access的內定檔名是"資料表1"，除非你的Access有做二個資料表）按"確定"鈕。
五．在表單上放入Text1,Text2,Text3物件，將這三個物件的屬性DataSource選擇"Adodc1"，然後再將Text1的屬性DataField選擇"班級"，Text2的屬性DataField選擇"姓名"，Text3的屬性DataField選擇"成績"。
六．執行程式，Access的資料就會顯示在Text上了。
要新增資料的程式如下，按Command1新增資料後，它會開一個新的讓你輸入資料，當你輸入完後，只要按一下Adodc1的上一筆資料它就會自動儲存了。
Private Sub Command1_Click()
reply = MsgBox("要新資料?", vbOKCancel + vbQuestion, "Add Record")
If reply = vbOK Then
Adodc1.Recordset.AddNew
End If
End Sub


2007-01-03 14:17:08 補充：
這個是我之前自己寫的儲存功能，你在表單上放一個Command把它寫入。其實我只是用程式讓它移到上一筆再移回來而已，然後再顯示一個儲存的訊息而已，供你參考看看。
Private Sub Command3_Click()
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MovePrevious
Adodc1.Recordset.MoveNext
reply = MsgBox("資料已儲存", vbOKOnly, "Data Save")
End If
End Sub

Answer 2

你的問題並不簡單，也不是用三個 TEXTBOX 解決的，因為這也關係資料庫的設計。例如班級、學生用選的不是更簡單嗎? 為何用 TEXTBOX? TEXTBOX 中的文字如果輸入筆誤? 資料庫又會有問題了!

提供你一個範例參考，你可以自己加入更多功能及條件設定
http://logo.myweb.hinet.net/AC_DB.zip

它依你的需求設計了個大概，包括資料庫檔及VB如何開啟及讀取資料庫檔及寫入資料，資料再用樹狀及資料表方式顯示