《实验六通过ODBC方式访问数据库》由会员分享，可在线阅读，更多相关《实验六通过ODBC方式访问数据库（12页珍藏版）》请在金锄头文库上搜索。
1、实验六 通过ODBC方式访问数据库一、实验条件与环境1通用 PC 机2. PC机必须安装Windows 2000系列、Windows XP系列或Windows NT操作系统平台 3PC 机还须安装 Microsoft SQL Server 2000 任意一版本（个人版、标准版、企业版）4. PC机还须安装VB、VC、C+ Builder、Dehpi等面向对象的可视化程序设计软件5. 最好有一台公用的 SQL Server 2000 服务器二、实验目的1. 通过上机实验了解可视化程序设计语言对数据库进行访问的常用方法2. 通过上机实验掌握软件开发工具面向用户提供的ODBC对象接口的概念及其作用3
2、. 通过上机实验熟悉SQL语句在面向对象编程语言中的使用4. 通过上机实验熟悉通过ODBC接口访问数据库并对数据库进行操作5. 通过上机实验熟悉使用ODBC来进行数据库应用程序的设计6. 通过上机实验熟悉数据源的概念及数据源的创建方法1. 通过上机实验熟悉ADO DATA控件的主要属性、事件、方法及其使用三、实验要求：1. 要求学生至少熟悉一门面向对象的可视化程序设计语言（如：VB、VC、C+ Builder、 Dehpi 等）2. 实验前，要求学生充分作好ADO DATA控件、ODBC数据接口及数据源等相关内容的预 习工作3. 本实验涉及的实验内容最好能在2课时内完成4. 实验完成后需要书写
3、实验报告，本次实验报告需在下次实验课堂上上交四、通过 ODBC 方式访问数据库并进行各种数据操作的一个实例建立一个名为MyDB的数据库，然后在此数据库中建立一个名为S的数据表，有关数 据表S的属性描述为：Sno,学号，数据类型为char（10）； Sname,姓名，数据类型为char（8）； Ssex，性别，数据类型为char（2）； BirthDay，生日，数据类型为datetime（8）。创建一个名为 Students的数据源，然后利用可视化程序设计语言设计一个用户操作界面，通过ODBC数据 接口和ADO DATA实现对数据库MyDB中数据表S的查询、插入、删除、修改等数据操作。实现过程说
4、明：本功能的实现采用Microsoft SQL Server 2000作为数据库管理系统，采用VB作为用户 操作界面的软件开发工具。计算机操作系统为 Windows 2000 Professional。实现步骤：1为数据库MyDB中S数据表创建名为Students的数据源打开“开始/设置/控制面板/管理工具/数据源（ODBC）”然后按照系统的提示，逐步进 行设置，最终创建数据源 Students 。a）鼠标双击“数据源（ODBC）”图标，出现“ODBC数据源管理器”界面（见图1）；2）鼠标单击“ODBC数据源管理器”界面的“添加”按钮，出现“创建数据源”界面（见图 2 ） ，在此界面中选择安装
5、数据源的驱动程序类别为“ SQL Server”；3）鼠标单击“创建数据源”界面的“完成”按钮，出现“建立新的数据源到SQL Server”界面（见图 3），在此界面中设置好数据源的名称、描述信息及服务器的名称等参数；图1选择您想为其安装数据源的驰动程序g）:名称Microsoft FoxPro Driver (*. dbf)Microsoft FoxPro VFP Driver (*. dbf)M i cr o s o ft ODBC for Or acleMicrosoft P:=Lfadox Driver (*. db ；lMi crosoft FaradoxTreiber (*. db
6、 ) Microsoft Tskt Hrivert盟t; *. csv)Microsoft TextTreiber (*. txt; *. csv) Microedft Vi sual FoxFro Driver Mi crosoft Vi sual FoxFroTreiberSQL Server 完成 I 取逍图24）鼠标单击图3界面的“下一步”按钮，出现图3界面的一个子界面，界面标题栏的名称也为“建立新的数据源到SQL Server”（见图4）,在此界面中设置好数据源的登5）鼠标单击图 4 界面的“下一步”按钮，出现图 3 界面的一个子界面，界面标题栏的名称也为“建立新的数据源到SQL S
7、erver”（见图5）,在此界面中选定可选项“更改 默认的数据库为”，并设置好更改默认的数据库为MyDB，设置情况如图5所示；图3图46）鼠标单击图 5 界面的“下一步”按钮，出现图 3 界面的一个子界面，界面标题栏的 名称也为“建立新的数据源到SQL Server”（见图6），在此界面中所有可选项按其默 认值选定，不需作改动；7）鼠标单击图6界面的“完成”按钮，出现“ODBC Microsoft SQL Server安装”界面 （见图 7）；8）鼠标单击图7界面的“测试数据源”按钮，出现“SQL Server ODBC数据源测试” 界面（见图 8）；9）鼠标单击图8界面的“确定”按钮，数据源
8、Students就建立起来了。图5图6图72利用 VB 编程语言创建数据库应用程序用户操作界面在VB中创建的用户操作界面如下图9所示。界面中涉及到的控件有以下这些(其含义 和功能作用参见软件界面图 9)：1) Frame 控件 FrameCond2) Frame 控件 FrameOpt3) DataGrid控件4) Label控件Labell控件数组，Index范围为0至55) TextBox控件 TxtSno6) TextBox控件 TxtSname7) OptionButton 控件 OptSsex 控件数组， Index 范围为 0 至 l8) ComboBox控件控件数组，Index范
9、围为0至29) CommandButton 控件 CmdOpt 控件数组， Index 范围为 0至 410) Adodc控件AdodcODBC (设置为不可见模式)OptSsex(0) ， OptSsex(l)数塞揉作查询Q)TxtSno TxtSnameDataGridQueryFrameOptFrameCondComboDate(0)， ComboDate(1)， ComboDate(2)-Ini x|条件复原(或旦土 | _ | 月 T| 日 TCmdOpt(0)CmdOpt(1)CmdOpt(2)CmdOpt(3)CmdOpt(4)数摇表数据显示镰ODB匸數垂繰作示倒学号:姓性别:出
10、生日期:操作条件插入(D删除修改血图9数据库应用程序用户操作界面常量、变量定义Const StrDSN = Provider=MSDASQL.1;Persist Security Info=False; User ID=sa; & password=sa;Data Source=Students;Mode=ReadWriteConst StrRst = select * from sDim Conn As New ADODB.ConnectionDim Rst As New ADODB.Recordset 设置数据操作控件的相应属性AdodcODBC.ConnectionString = St
11、rDSNAdodcODBC.RecordSource = StrRstDataGridQuery.DataSource= AdodcODBC主要控件事件代码说明1) 窗体装载事件及代码Private Sub Form_Load()AdodcODBC.ConnectionString = StrDSNAdodcODBC.RecordSource = StrRstFor i = 1970 To 2005ComboDate(0).AddItem iNext iFor i = 1 To 12ComboDate(1).AddItem iNext iFor i = 1 To 31ComboDate(2).
12、AddItem iNext iConn.Open StrDSNRst.CursorType = adOpenDynamicRst.CursorLocation = adUseClientRst.LockType = adLockOptimisticRst.ActiveConnection = ConnRst.Open StrRstEnd Sub2) 窗体卸载事件及代码Private Sub Form_Unload(Cancel As Integer)Rst.CloseConn.CloseEnd Sub3) 数据网格控件DataGridQuery中数据发生更新时触发的事件及代码Private S
13、ub DataGridQuery_AfterUpdate()If DataGridQuery.Row -1 ThenAdodcODBC.Recordset.UpdateEnd IfEnd Sub4) 进行数据操作(查询、插入、删除、修改)及设置操作条件的事件及代说码明：查询操作可以不带条件查询，可以基于学号查询，可以基于姓名查询，可以基于性别 查询，还可基于学号、姓名、性别三条件联合查询； 插入操作要求用户将一个学生信息填写完整后才能进行； 删除操作只能基于两个条件进行，一个是基于学号的删除，另一个是基于性别的删除；修改操作直接在数据网格控件 DataGridQuery 上直接进行，但本软件不
14、提供修改操作 时对修改项进行数据合法性检查的功能；可以通过点击软件界面上的“条件复原”按钮进行操作条件的复原和设置。 Private Sub CmdOpt_Click(Index As Integer)Dim Querycondition, TmpStr As StringSelect Case IndexCase 0数据查询操作For i = 3 To 5 Label1(i).Enabled = False ComboDate(i - 3).Enabled = FalseNext iIf TxtSno.Text = And TxtSname.Text = And OptSsex(0).Value = False And OptSsex(1).Value = False ThenQuerycondition = select * from s End IfIf TxtSno.Text And TxtSname.Text = And OptSsex(0).Value = False And OptSsex(1).Value = False ThenQuerycondition = select * from s where sno= & & Trim(TxtSno.Text) & !End If
