通过控件访问数据库
（1）启动VB。
（2）出现如图10.12所示的新建工程的选项卡。
（3）出现如图10.13所示的VB主界面。
（4）如图10.14所示。
（5）出现如图10.15所示的界面。
―――――――――――――――――――――――――――――――――――――
odbc;dsn=graduateDB;uid=scott;pwd=tiger;
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）―――――――――――――――――――――――――――――――――――――
（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所示。
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）（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所示。
