(圖片較大，請拉動滾動條觀看) （2）讀者可以從本書的配套光盤上找到實例的配套程序。 【參見光盤文件】：第10章/使用ADODB對象編程訪問數據庫.vbp，窗體為Form3.frm。 （3）窗體Form3內所有的VB代碼如下。 ――――――――――――――――――――――――――――――――――――― ‘強制性聲明變量后才能使用 Option EXPlicit ‘定義RS為ADODB對象的記錄集 Dim Rs As New ADODB.Recordset ‘定義conn為ADODB對象的連接 PRivate conn As ADODB.Connection ‘窗體運行時初始化過程 Private Sub Form_Load() ‘定義ConnStr為連接字符串 Dim ConnStr As String ‘定義Cmd為ADODB的命令字符串 Dim Cmd As New ADODB.Command Set conn = New ADODB.Connection ConnStr = "DSN=graduateDB;uid=scott;pwd=tiger;" conn.ConnectionString = ConnStr ‘按照ConnStr的內容連接數據庫 conn.Open ‘查詢數據表dept的內容 With Cmd .ActiveConnection = conn .CommandType = adCmdTable .CommandText = "dept" End With ‘將數據表dept的內容送記錄集RS With Rs .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockPessimistic .Open Cmd End With ‘定義3個文本框的數據源為RS Set Text1.DataSource = Rs Set Text2.DataSource = Rs Set Text3.DataSource = Rs ‘定義3個文本框顯示的字段 Text1.DataField = "DEPTNO" Text2.DataField = "DNAME" Text3.DataField = "LOC" End Sub ‘單擊【首記錄】按鈕的執行過程 Private Sub CmdFirst_Click() Rs.MoveFirst Rs.Update End Sub ‘單擊【上記錄】按鈕的執行過程 Private Sub CmdPrevious_Click() Rs.MovePrevious If Rs.BOF Then Rs.MoveFirst Rs.Update End If End Sub ‘單擊【下記錄】按鈕的執行過程 Private Sub CmdNext_Click() Rs.MoveNext If Rs.EOF Then Rs.MoveLast Rs.Update End If End Sub ‘單擊【末記錄】按鈕的執行過程 Private Sub CmdLast_Click() Rs.MoveLast Rs.Update End Sub ‘單擊【退出】按鈕的執行過程 Private Sub CmdExit_Click() conn.Close Set conn = Nothing Unload Me End Sub ――――――――――――――――――――――――――――――――――――― （4）窗體Form3的運行結果如圖10.33所示。
