例题61练习违接Access数据源和SQL Server数据源。通过本实例达到以下目标： (1)会根据数据源选择合适的NET Framework数据提供程序。 (2)拿据连接Access数据尊和SQL.Server数据源的代码偏写. (3)体会连接对象的声明、创建、设置属性的关键语句， (4)拿捉ConnectionString属性的正确设置与作用。 《5)初步体会导入命名空间的代码和作用。 运行参考界面如图6.12所示。 测试连簧两资数据库 a▣☒ 连观A加G4数据常成功 连接ee电 注接刘L Server 图6.12测试连接两种数据源的运行参考界面 要求如下： (1)加载配套素材文件夹C6下的窗体文件Epl.b,并将其设为项目的启动窗 体。 (2)编码实现： )单击连接ac: 按钮时，选接指定位置的数据库文件“学生管理m6”《如本 例中此文件的位置存放于文件夹“d6),并将连接结果最示在其上面的标签控件中。 2)单击 连接刘L5rvw 按组时，违接SQLServer附带的示例数据库mt,并将 连接结果是示在其上面的标签控件中， 解恶步最： (1)加载指定素材E甲lvb,将其设为启动窗体并运行程序：确认文件“学生管理mdb“ 的存放位置，并将它和数据违接字符串取值结合起来。 (2)给按A□写代码并运行调试：实现~连接数据库文件学生管理m曲 井显示连接结果”。分以下两步走： I)根据数据源选择OEDB.NET Framework数据提供程序，并引入(imports)相应的命 名空同“System Data OLEDB”,注意语句的位置是在程序的最前面，参考代码截图如图6.13 所示： 入名空间 Inports System.Data.0leDb Public Class Exp1.. 图6.13引入金名空间“System.Data OLEDB" 2》拾按钮 连我Ac:☐的1k事件编写代码，主爱工作是 声明一个OleDB Connection对象. 利用保留字new创建OleDB Connection对象. 设置OleDB Connection对象的ConnectionString属性
例题 6.1 练习连接 Access 数据源和 SQL Server 数据源。通过本实例达到以下目标： （1）会根据数据源选择合适的.NET Framework 数据提供程序。 （2）掌握连接 Access 数据源和 SQL Server 数据源的代码编写。 （3）体会连接对象的声明、创建、设置属性的关键语句。 （4）掌握 ConnectionString 属性的正确设置与作用。 （5）初步体会导入命名空间的代码和作用。 运行参考界面如图 6.12 所示。 图 6.12 测试连接两种数据源的运行参考界面 要求如下： （1）加载配套素材文件夹 Chapter6 下的窗体文件 Exp1.vb，并将其设为项目的启动窗 体。 （2）编码实现： 1）单击 按钮时，连接指定位置的数据库文件“学生管理.mdb”（如本 例中此文件的位置存放于文件夹“d:\ch6”），并将连接结果显示在其上面的标签控件中。 2）单击 按钮时，连接 SQL Server 附带的示例数据库 master，并将 连接结果显示在其上面的标签控件中。 解题步骤： （1）加载指定素材 Exp1.vb，将其设为启动窗体并运行程序；确认文件“学生管理.mdb” 的存放位置，并将它和数据连接字符串取值结合起来。 （2）给按钮 编写代码并运行调试：实现“连接数据库文件学生管理.mdb 并显示连接结果”。分以下两步走： 1）根据数据源选择 OLEDB .NET Framework 数据提供程序，并引入（imports）相应的命 名空间“System.Data.OLEDB”，注意语句的位置是在程序的最前面，参考代码截图如图 6.13 所示。 图 6.13 引入命名空间“System.Data.OLEDB” 2）给按钮 的 Click 事件编写代码，主要工作是： ✓ 声明一个 OleDB Connection 对象。 ✓ 利用保留字 new 创建 OleDB Connection 对象。 ✓ 设置 OleDB Connection 对象的 ConnectionString 属性
利用对象的Opm方法打开连接。 利用对象的S属性判断连接是否打开。 参考代码截图如图6.14所示。 功能：连授到数貂库文件学生置理，出” Private Sub btnAccess_Click(ByVal sender As Syaten.Object,Byal e As Systen Eve Din myCorn As 0leDbCarnection "声明一个O1 eDBCannection网象 Din conStr As String myCann New 0leDbCannection '建一个o1 eDBCannection对界 conStr=Provider=icroeoft.Jet.0LEDB.4.0,Data Source=dlch6\半生管理.n mConn ComneetionString=conStr '设置Corneet5 onString属性 nyCann.Open() ”疗开速按 If myCorn.State ConnectionState.Open Then ”判断连接状态 1blResul t,Text=“证楼Acce数招库夜功！ Else blResul,Text三“连按eets故据库失收： End If nyCarn.Close() ndS品h 图6.14连接数据岸文件“学生管理.mdb”的参考代码候图 【注意】对于初学者而言，上述代码在自己编写时，可能因为这样或者椰样的错误，使 得打开连接时程序异常中止。其中设置ConnectionString属性是出错频率较高的地方，如： 没有正确指定数据文件的实际存成位置、单词不正确的拼写、不按规定使用点号、分号或者 空格等等。为了避免因错误导致程序的异常中止，可采用T厅Catch语句（可参考复2.7）， 参考代码如图615所示。 ”功能：连接到Acce5数据库文件半生言理.品 Private Sb btnAecess_Click(ByVal sender As Syaten Object,ByWal e As Syatem Ever Dim nyCorm As 0lelbConnection 声明一个0 leDBCannecticn时tR Dim conStr As String myCoen New 0lelbConnectlon '建一个o1 eDBCannection时象 conStr三-vider=Nicro5oft.Jet.0LB,9.0;Data Source=dlch6\学生管理.n myCoen.CormectlonString conStrConnectianString Try mCorn.Open( ‘打开连接 1b1 Rerult..Tert=“连换Access数据年成功！ Catch ex As Exception 1 blResult.Text=“连装Acceas故据阵失败！° End Try myCoen.Cloge() End Sub 图8.15 使月“Try-Catch”语句的参考代码截图 (3)给按扭 连预S机Srr 编写代码并运行调试：实现“连接SQL Server附带的示例 量据岸mer并显示连接结果”。分以下两步走： I)根据数据源选择SQL Server NET Framework数据提供程序，并入(mpot在)相应的 命名空间“System Data SqlClient”,参考代码载图如图6.16所示. ”引入名空间 Imports System Data.SqlClient Publie Class Exp1.. 图6.16引入命名空间“Sycm.Data.SqlClient” 2)给按钮 连接L5红v世 的口ck事件编写代码，参考代码餐图如图617所示
✓ 利用对象的 Open 方法打开连接。 ✓ 利用对象的 State 属性判断连接是否打开。 参考代码截图如图 6.14 所示。 图 6.14 连接数据库文件“学生管理.mdb”的参考代码截图 【注意】对于初学者而言，上述代码在自己编写时，可能因为这样或者那样的错误，使 得打开连接时程序异常中止。其中设置 ConnectionString 属性是出错频率较高的地方，如： 没有正确指定数据文件的实际存放位置、单词不正确的拼写、不按规定使用点号、分号或者 空格等等。为了避免因错误导致程序的异常中止，可采用 Try…Catch 语句（可参考§2.7）， 参考代码如图 6.15 所示。 图 6.15 使用“Try…Catch” 语句的参考代码截图 （3）给按钮 编写代码并运行调试：实现“连接 SQL Server 附带的示例 数据库 master 并显示连接结果”。分以下两步走： 1）根据数据源选择 SQL Server.NET Framework 数据提供程序，并引入（imports）相应的 命名空间“System.Data.SqlClient”，参考代码截图如图 6.16 所示。 图 6.16 引入命名空间“System.Data. SqlClient ” 2）给按钮 的 Click 事件编写代码，参考代码截图如图 6.17 所示
'功能：连按到SQL Server数据库naster Private Sub btnSQL_Click(ByVal sender As Systen.Object,ByVal e As Din myCann As SqlConnection '声明一个SqlConnectioni对象 Din conStr As String myConn New SqlCornection ”创建一个SqlCormectiani对R conStr "server =(local);database master:User id=sa;Pd= myConn.CormectionString conStr 设置CormectionString属性 Try myCann.Open() ”打开连按 1blResult.Text=“连接QL Server故据库成功！ Catch ex As Exception 1 blResult.Text=“连接SQL Server数据库失收！“ End Try my/Corn.Close() End Sub 图6.17连接SQLServer数据库的参考代码成图
图 6.17 连接 SQL Server 数据库的参考代码截图