回覆列表
-
1 # 導演許永
-
2 # 吉吉籍籍
"以下程式碼可以向當前資料庫新增資料表
"(測試OK,新增"Table1"資料表,包含4個欄位):
Set NewTable = CurrentDb。CreateTableDef("Table1")
With NewTable
。
Fields。Append 。CreateField("欄位1", dbText)
。Fields。Append 。CreateField("欄位2", dbText)
。Fields。Append 。
CreateField("欄位3", dbText)
。Fields。Append 。CreateField("欄位4", dbText)
End With
CurrentDb。
TableDefs。Append NewTable。
1.在對資料表記錄進行操作時,有一個記錄指標,指向當前的記錄。
圖1中假設rs返回若干條記錄,通常正確執行rs.Open後,記錄指標指向首記錄。此時,rs的Bof屬性和Eof屬性都為False。
可以使用rs的MovNext方法把記錄指標向記錄集的前(上)部移動,也可以使用rs的MovePrevious方法把記錄指標向記錄集的後(下)部移動。在記錄指標的移動過程中,只要記錄指標指向一條存在的記錄,rs的Bof屬性和Eof屬性都將保持為False。
2.當記錄指標向前(上)部移動到資料表外時,rs的Bof屬性變成True,而Eof屬性仍然是False
而當記錄指標向後(下)部移動到資料表外時,rs的Bof屬性仍然是False,而Eof屬性變成True
3.當rs返回的記錄為零時,rs的Bof屬性和Eof屬性都為True。