【正文】 PassWord 為可選項 ,包含建立連接的用戶密碼 。 OpenOptions 為可選項 ,假如設置為 adConnectAsync,則連接將異步打開 . (2)打開記錄集對象 實際上記錄集返回的是一個從數據庫取回的查詢結果集 .因此他有兩種打開方法 :一種使用記錄集的 Open 方法 ,另一種是用 Connection 對象的 Execute 方法 . (a)記錄集的 Open 方法 語法 : Source, ActiveConnection, CursorType, LockType, Options 其中： Recordset 為所定義的記錄集對象的實例 . Source可選項 ,指明了所打開的記錄源信息 .可以是合法的命令 ,對象變量名 ,SQL語句 ,表名 ,存儲過程調用 ,或保存記錄集的文件名 . ActiveConnection 可選項 ,合法的 已打開的 Connection 對象的變量名 ,或者是包含ConnectionString參數的字符串 . CursorType 可選項 ,確定打開記錄集對象使用的指針類型 . LockType 可選項 確定打開記錄集對象使用的鎖定類型 . 計算機系畢業(yè)設計文檔 8 (b)Connection 對象的 Execute 方法 語法 : Set recordset=(CommandText,RecordsAffected,Options) 參數說明 : CommandText 一個字符串 ,返回要執(zhí)行的 SQL 命令 ,表名 ,存儲過程或指定文本 . RecordsAffected 可選項 ,Long類型的值 ,返回操作影響的記錄數 . Options 可選項 ,Long類型值 ,指明如何處理 CommandText 參數 . 介紹完了如何打開數據庫下面說說怎么使用吧 . (3)使用記錄集 (a)添加新的記錄 : 在 ADO 中添加新的記錄用的方法為 :AddNew 它的語法為 : FieldList, Values Recordset 為記錄集對象實例 FieldList 為一個字段名 ,或者是一個字段數組 . Values 為給要加信息的字段賦的值 ,如果 FiledList 為一個字段名 ,那么 Values 應為一個單個的數值 ,假如 FiledList 為一個字段數組 ,那么 Values 必須也為一個個數 ,類型與 FieldList 相同的數組 . 再用完 AddNew方法為記錄集添加新的記錄后 ,應使用 UpDate將所添加的的數據存儲在數據庫中 .不過你最好在用 UpDate 方法之前使用 CancelUpdate 方法來取消 該項操作 . (b)修改記錄集 其實修改核對記錄集中的數據重新賦值沒有什么太大的區(qū)別 ,只要用 SQL 語句將要修改的字段的一個數據找出來重新賦值就可以了 .這里不再細說了 . (c)刪除記錄 在 ADO 中刪除記錄集中的數據的方法為 :Delete 方法 ,這與 DAO 對象的方法相同 ,但是在ADO 中它的能力增強了 ,可以刪掉一組記錄了 . 它的語法如下 : AffectRecords 其中的 ,AffectRecords 參數是確定 Delete 方法作 用的方式的 ,它的取值如下 : adAffectCurrent 只刪除當前的記錄 adAffectGroup 刪除符合 Filter 屬性設置的那些記錄 .為了一次能刪除一組數據 ,應設置Filter 屬性 . (d)查詢記錄 在 ADO 中查詢的方法很靈活 ,有幾種查詢的方法 . ●使用連接對象的 Execute 方法執(zhí)行 SQL 命令 ,返回查詢記錄集 . 計算機系畢業(yè)設計文檔 9 ●使用 Command 對象的 Execute 方法執(zhí)行 CommandText 屬性中設置的 SQL 命令 ,返回查詢記錄集 . 第一個方法的具體 語法在前面數據連接時已經介紹過了 ,下面就第二方法具體說一下 . Command 對象的 Execute 方法的語法如下 : RecordsAffected, Parameters, Options 39。不返回記錄集 或者 Set Rscordset=(RecordsAffected,Parameters,Options) 39。返回記錄集 CommandText 的語法為 : =stringvariable 其中 : stringvariable 為字符串變量 ,包含 SQL 語句 ,表名或存儲過程 . (4) 斷開連接 在應用程序結束之前 ,應該釋放分配給 ADO 對象的資源 ,操作系統(tǒng)回收這些資源并可以再分配給其他應用程序 . 使用的方法為 :Close 方法 . 語法如下 : 39。 Object 為 ADO 對象 計算機系畢業(yè)設計文檔 10 第 3章 Windows 下的 Visual Basic 編程環(huán)境簡介 Visual Basic（簡稱 VB）是 一種可視化的、事件驅動型的 Windows 應用程序開發(fā)工具，它在 GUI 設計、繪圖、制表、運算、通信和多媒體開發(fā)方面都具有簡單易行、功能強大等優(yōu)點，所以越來越受到開發(fā)人員的親睞。同時， VB 在數據庫開發(fā)方面也具有 Foxpro所遠不能及的強大功能。 VB 能夠讀取和訪問 ACCESS、 Excel、 DbaseX、 Foxpro、 Btrieve 和 ODBC等多種數據庫，并能利用 VB 自身所帶的數據庫引擎創(chuàng)建 ACCESS 數據庫。所以 VB 在管理信息系統(tǒng)（ MIS）的開發(fā)和建設方面得到了是益廣泛的應用。現在，就 VB 應用數據庫的一些方法作一 簡單的介紹。 VB 訪問數據庫通常有三種途徑：第一，通過數據庫控制控件 Data Control 訪問；第二，通過 VB 提供的數據庫對象變量編程訪問；第三，通過 ODBC 接口訪問 ODBC API 函數。在這三種方法中，第一種方法操作起來最方便、靈活、易于掌握，同時也最能體現 Visual Basic面向對象的特色，故這里以 的數據庫為例，介紹數據庫控制控件（ Data Control）訪問數據庫的方法與步驟： 一 . 在 Form窗口中加入 Data Control控件 用鼠標在工具窗口的 Data Control 控件按鈕上雙擊左鍵，該對象即出現在 Form 窗口的中間（控件名為 Data1），用鼠標調整好控件的大小及位置。如工具箱中無此控件，可打開主菜單的 Tools/Custom，在列表中選中 Microsoft Data Control復選框，確認后即可將此控件加入到工具箱中去。 二 . 設置聯(lián)接庫 用鼠標單擊 Data1，按下 F4，打開屬性窗口，設置 Connect 屬性為 ，設置DatabaseName 為 c:\foxprow\（假設磁盤上已有這個文件）。 三 . 加入字段顯示、編輯控件（數據庫捆綁控件） 在 Form窗口中加入 DGrid 控件，如不在此控件，可打開主菜單 Tools/Custom，在列表中選擇 Apex Data BroundGrid 復選框，確認后即可向工具箱中加入此控件。在 Form 窗口中單擊選中此控件（ DGrid1），按下 F4 打開屬性窗口，設置 Datasource屬性為 Data1，在 Form窗口中用鼠標右鍵單擊控件 DGrid1，選擇 Retrieve Fields；再用鼠標右鍵單擊控件 DGrid1，選擇 Edit，用鼠標調整控件及有關字段大小；再用鼠 標右鍵單擊控件 DGrid1，選擇 Properties（屬性），在彈出窗口中，選擇 Colums 標簽，在下拉列表中選 Colum1，將 Caption 屬性改為“學號”，選擇 Colum2， Caption 屬性改為“姓名”，選擇 Colum 4 將 Caption 屬性改為“性別”、“專業(yè)”，按下“確定”按鈕。 再向 Form 窗口中加入一個按鈕控件，將 Caption 屬性設置為“退出”，雙擊該控件（ Command1），在代碼窗口中寫入“ END”，存盤。 此時，一個具備數據庫讀寫、瀏覽功能的應用程序就建立了，按下 F5運行，通過單擊 Data1計算機系畢業(yè)設計文檔 11 的各按鈕即可看出當前記錄的變化情況。 在此基礎上，我們還可以借助數據庫控制控件的有關屬性和方法進行更靈活的操作和控制。 設置 =False’將控件設為不可見 將按鈕 Command2， 3， 4， 5， 6， 7 的 Caption 屬性分別設置為“追加”、“首記錄”、“上一條”、“下一條”、“尾記錄”、“刪除”，雙擊各按鈕，分別寫入事件代碼： Sub Command1Click() ’關閉應用程序 End End Sub Sub Command2Click() ’追加記錄 .Addnew .Update .MoveLast End Sub Sub Command3Click() ’移向首記錄 .MoveFirst End Sub Sub Command4Click() ’移向上一條記錄 .MovePrevius If .Bof Then .MoveFirst End If End Sub Sub Command3Click() ’移向尾記錄 .MoveLast End Sub Sub Command4Click() ’移向下一條記錄 .MoveNext If .Eof Then .MoveLast End If End Sub 除此之外，數據庫控制控件還有 Bookmark、 RecordCount 等許多屬性與方法，能對數據庫進行各種方便的操作。 由此可見，數據庫控制控件具有數據庫操作方面的強大功能。另外，數據庫控制控件的RecordSource 屬性可用一個 SQL 語句賦值，以此來有效地調用 SQL 語句，從而發(fā)揮 SELECT計算機系畢業(yè)設計文檔 12 語句強大的功能，更使數據庫控制控件（ Data Control）錦上添花。 真正刪除數據庫的記錄 大家知道，缺省情況下， VB 刪除記錄只是把記錄作上個刪除標志而已，并沒有真正刪除。要真正刪除記錄，你可以使用 VB 提供的以下方法： BeginTrans、 CommitTrans、 RollBack。其中， BeginTrans 方法開始記錄數據庫的變動， CommitTrans 方法確認數據庫的變動，而 RollBack 方法則可以恢復被刪除或修改的記錄。它們可以嵌套使用。因此，要恢復被刪除的記錄，應該在使用 BeginTrans 方法之后及使用 CommiTrans 方法之前使用 RollBack 方法。 不用 DATA 控件操作數據庫文件 在 VB 中如果使用 DATA 控件訪問數據庫，那么程序執(zhí)行就必須要一些大型 DLL 支持。這對于安裝 盤的發(fā)放是一個大問題。那么，在 VB 中能不能不用 DATA 控件訪問數據庫呢？ 在 VB 中不用 DATA 控件而訪問數據庫，只有一法：將數據庫文件當成 2進制文件打開。但此法最大困難就是你必須了解數據庫文件的結構形式。 關閉所有的數據連接 如果在代碼中使用了數據控件如 DAO， RDO， 或 ADO， 在退出時應該關閉所有打開的 recordset， database，和 workspace 。 雖然對象能自動注銷， 但是數據連接不會馬上斷開， 可能會導致一些內存不能被系統(tǒng)重新分配。 下面的代碼可以關閉所有打開的 DAO workspace， 并釋放所占的內存。 Private Sub Form_Unload(Cancel As Integer) On Error Resume Next 39。39。 Dim ws As Workspace Dim db As Database Dim rs As Recordset 39。39。 For Each ws In Workspaces For Each db In For Each rs In Set rs = Nothing Next Set db = Nothing Next 計算機系畢業(yè)設計文檔 13 Set ws = Nothing Next 39。39。 End Sub 計算機系畢業(yè)設計文檔 14 第 4章 使用 ACCESS2021 實現關系 型數據庫