Set C = CreateObject("ADODB.Connection")
Set r = CreateObject("ADODB.Recordset")
'使用CreateObject(Server.CreateObject(ASP) )： 優點是不會綁著是使用那一個版本的ADO
C.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\桌面\新資料夾\同學錄資料庫.mdb"
r.Open "同學錄資料表", C, 1
- ADODC控制物件：連結資料庫
- Recordset：代表「資料表」
- Fields：代表「記錄」
- Field：代表「欄位」
一、欄位之Field：
- Field.Name：欄位名稱
- Field.Value：欄位之名
二、記錄之Fields：要表示欄位的值，有二種方法
- Fields(i-1)：第i個欄位。Adodc1.Recordset.Fields(0).value表非該記錄的第1個欄位的值。
- Adodc1.Recordset.Fields("學號").value=Adodc1.Recordset.Fields("學號")=Adodc1.Recordset("學號")
註：value, fields皆為預設屬性，可省略
三、Adodc1.Recordset.Fields.count：可以知道fileds記錄中的欄位數。
四、記錄的轉移
- Adodc1.Recordset.MoveNext ：注意不能到檔尾 Not Recordset.EOF
- Adodc1.Recordset.MovePrevious ：注意不能到檔頭 Not Recordset.BOF
- Adodc1.Recordset.MoveFirst
- Adodc1.Recordset.MoveLast
五、資料庫的操作
1.新增：
Adodc1.Recordset.addnew '新增一筆記錄
Adodc1.Recordset("欄位1名稱")=欄位1內容
Adodc1.Recordset("欄位2名稱")=欄位2內容
..............
Adodc1.Recordset.updata '將暫存的資料存入資料庫中
2.查詢：
| Adodc1.Recordset.find "姓名= ' 劉一二 ' " | 比較對象為字串，加 ' ' |
| Adodc1.Recordset.find "編號= 10" | 比較對象為數值常數 |
| Adodc1.Recordset.find "生日=#1999/9/9#" | 比較對象為日期，加# # |
| Adodc1.Recordset.find "姓名= ' " & x & " ' " | 比較對象為變數字串，加 ' ' |
| Adodc1.Recordset.find "編號= " & x | 比較對象為數值變數 |
| Adodc1.Recordset.find "生日=#" & x & "#" | 比較對象為日期 變數，加# # |
| Adodc1.Recordset.find "姓名 like ' 劉% ' " | 搜尋性'劉'的記錄 |
註1：欄位名稱有空白字元，前後加[ ]。
註2：比較符號： =、 <、 >、 <>、 >=、 <=
3.修改：
Adodc1.Recordset.find "學號= '013001'" '跑到要修改的記錄
Adodc1.Recordset("欄位1名稱")=修改的欄位1內容
Adodc1.Recordset("欄位2名稱")=修改的欄位2內容
..............
Adodc1.Recordset.updata '將暫存的資料存入資料庫中
4.刪除：
Adodc1.Recordset.find "學號= '013001'" '跑到要刪除的記錄
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Adodc1.Recordset.updata '將暫存的資料存入資料庫中
5.下載範例
