通过控件访问数据库
（1）启动VB。
（2）出现如图10.12所示的新建工程的选项卡。
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）
（3）出现如图10.13所示的VB主界面。
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）
（4）如图10.14所示。
（5）出现如图10.15所示的界面。
―――――――――――――――――――――――――――――――――――――
odbc;dsn=graduateDB;uid=scott;pwd=tiger;
―――――――――――――――――――――――――――――――――――――
（6）如图10.16所示。
（7）选择窗体上出现名为Text1的控件。
（8）出现如图10.17所示的控件的属性窗口。
（9）按照和Text1同样的步骤添加名为Text2的控件，其主要的设置为。
（10）按照和Text2同样的步骤添加名为Text3的控件，其主要的设置为。
（11）设计好的窗体Form1如图10.18所示。
（12）在VB主界面的单击运行快捷按钮，如图10.19所示。
（13）运行结果如图10.20所示。
（14）读者可以从本书的配套光盘上找到实例的配套程序。
：第10章使用Data控件访问数据库.vbp，窗体为Form1.frm。
（15）利用表格来表示上述过程中窗体的设置，如表10.1所示。
通过控件访问数据库
（1）启动VB，建立新的工程。
（2）如图10.21所示的VB主界面的选择/选项。
（3）出现如图10.22所示的部件的选项卡。
（4）如图10.23所示。
（5）如图10.24所示。
（6）出现如图10.25所示的属性页的选项卡。
（7）切换到如图10.26所示的属性页的选项卡。
（8）切换到如图10.27所示的属性页的选项卡。
（9）主要的属性设置如图10.28所示。
（10）向Form1窗体中添加一个名为Text2的控件。
（11）向Form1窗体中添加一个名为Text3的控件。
（12）读者可以从本书的配套光盘上找到实例的配套程序。
：第10章使用ADODC控件访问数据库.vbp，窗体为Form2.frm。
（13）利用表格来表示上述过程中窗体的设置，如表10.2所示。
（14）程序运行结果如图10.29所示。
通过编程对象访问数据库
1. 引用对象
要使用对象，必须首先进行引用。
（1）启动VB，新建工程。
（2）如图10.30所示。
（3）出现如图10.31所示的界面。
2. 使用对象编程
（1）设计如图10.32所示的窗体Form3。
利用表格来表示上述过程中窗体的设置，如表10.3所示。
（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所示。
