(图片较大，请拉动滚动条观看) （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所示。
