1、Visual Studio 2013中使用 ADO 访问数据库的实例Visual Studio 2013 预览版以 Visual Studio 2012 和后续的 Microsoft Visual Studio 更新中的进展为基础构建而成，为开发团队提供需要的解决方案，使其接纳这种转变并开发和交付利用下一波 Windows 平台创新 (Windows 8.1) 的新式应用程序，同时在所有 Microsoft 平台上支持多种设备和服务。Visual Studio 2013 新增功能支持 Windows 8.1 App 开发敏捷项目管理（Agile Portfolio Management）版本控
2、制轻量代码注释（lightweight code commenting）编程过程Visual Studio 2013 预览版提供的工具集非常适合生成利用下一波 Windows 平台创新 (Windows 8.1) 的新式应用程序，同时在所有 Microsoft 平台上支持设备和服务。支持在 Windows 8.1 预览版中开发 Windows 应用商店应用程序，具体表现在对工具、控件和模板进行了许多更新、对于 XAML 应用程序支持新近提出的编码 UI 测试、用于 XAML 和 HTML 应用程序的 UI 响应能力分析器和能耗探查器、增强了用于 HTML 应用程序的内存探查工具以及改进了与 W
3、indows 应用商店的集成。Visual Studio 2013 预览版进行了大量改进，可帮助您在编码时提高工作效率并集中精力。某些功能首先在 Visual Studio Power Tools 扩展中以试验性质出现，经过改进后才纳入到 Visual Studio 中。新版本中内置了多种提高工作效率的功能，如自动补全方括号、使用快捷键移动整行或整块的代码以及行内导航。此外，Visual Studio 2013 预览版的团队资源管理器增强了主页设计，可以更简便地导航到团队协作功能，并可取消停靠“挂起更改” 和“生成”，使其显示在一个单独的窗口中。在处理大型代码文件时，可能难以了解当前所处的位置
4、。在 Visual Studio 2013 预览版中，可轻松地在两种模式之间切换滚动条的行为。在栏模式中，可更直接地查看脱字号位置等注释、更改所在位置和跟踪错误。在图模式下，滚动条显示源代码的实时预览，而将鼠标悬停在代码上即可在工具提示中更详细地预览这段代码。然后单击代码所在位置即可导航到该位置。2013 中以 ADO2013 取代以前的 ADO。用惯 ADO 的程序员怎样在 2013 中怎样应用 ADO 呢？本人经过不断的摸索，发现在 2013 中 ADO 一样可以用，并且很好用。现在结合 Visual Basic2013 强大的类开发功能，本人将 ADO 开发成组件使用，效果非常理想。我使
5、用的方法如下：启动 Visual Studio2013。在新建项目中选择 Visual Basic 项目，在模板中选择类库，在名称中输入类库名称如 DataAccess.确定后，则进入类库开发环境中，把 Class1 换名为 ADOAccess。在项目菜单中加入引用，选择 COM 页，找到 Microsoft ActionX Data Object 20 Library 或更高版本。COM 选项是 Microsoft 为了区分现在的 2013，兼容以前的开发方式而设置的，凡是 2013 之前的组件都可在 COM 页中可找到。在类名上面写上 Imports ADODB.Connection； I
6、mports ADODB.Recordset ；Imports ADODB.CursorLocationEnum； Imports System.DBNull 4 条引用语句，这里分别是引用 ADO，ADO 的宏定义,设置空值函数的来源。在类中定义一局部连接对象变量。 Private mCnnDB As New ADODB.Connection()然后定义连接 Access 数据库的过程. Access 数据库用 adUseClient 指定，通过Microsoft.Jet.OLEDB 数据访问方式访问数据库，Microsoft.Jet.OLEDB 又有多种版本，其中 4.0 是最高版本，它能
7、访问 ACCESS 2000，所以这里的数据提供者指定为 Microsoft.Jet.OLEDB.4.0。指定了本地数据库和提供者后，就可打开一个数据库了，用 open 方法实现。完整的代码如下：作用: 连接 Access 数据库参数: DBName 数据库名Public Sub ConnAccess(ByVal DBName As String)Dim strDB As StringmCnnDB.CursorLocation = adUseClientmCnnDB.Provider = “Microsoft.Jet.OLEDB.4.0“mCnnDB.Open(DBName, “Admin“)
8、End Sub 在 ODBC 中设置 DNS,在下面的 ConnectionString 中指定用户名和密码，最后用 open 方法打开。由于 ODBC 分有用户名和无用户名两者，我们必须分别实现，借助类的函数名重载功能，我们编写两个同名的过程，完整的代码如下：作用: 连接 ODBC 数据库(不需指定用户和密码 )参数：dsnName 为 ODBC 名Public Sub ConnODBC(ByVal dsnName As String)mCnnDB.Provider = “MSDASQL“ mCnnDB.ConnectionString = “Data Source=“ “ pwd= ;dr
9、iver=SQL Server;“ database=“ pwd=“ driver=SQL Server;“ database=“ “ “ & _“Data Source=“ & ServerName & “.Open()End WithEnd Sub 连结数据库后，就可以利用 ADO 扩充读写数据的函数。ADO 在访问表时要指明其光标类型和锁类型，且指定其读写权限，这里我们编写的是有读写权限的通用的函数，所以我们指定光标 CursorType 为adOpenKeyset，锁为 adLockOptimistic，2013 需指明其来源，这是为什么开始要有 “Imports ADODB.Curs
10、orLocationEnum“语句的原因。有了这些，就可通过执行查询语句来打开一个表。打开表后，我们判断表是否为空表，不是则移动记录至尾后再现移至记录头（这是为了可以访问其中每条记录，特别是用RecordCount 求记录数时不至于返回-1 的关键） ，最后返回一个记录集，完整的代码如下：作用:连接表参数：TableName 表名返回：记录集Public Function OpenTable(ByVal TableName) As ADODB.RecordsetDim strSql As StringDim rec As ADODB.Recordsetrec = New ADODB.Recor
11、dset()rec.CursorType = ADODB.CursorTypeEnum.adOpenKeysetrec.LockType = ADODB.LockTypeEnum.adLockOptimisticstrSql = “SELECT * FROM “ & TableNamerec.Open(strSql, mCnnDB) 打开记录集If Not rec.EOF Thenrec.MoveLast()rec.MoveFirst()End IfOpenTable = recEnd Function 下面是扩充上面函数的功能，可以跟据条件访问单个表。Public Overloads Fun
12、ction OpenTable(ByVal TableName As String, ByVal strWhere As String) As ADODB.RecordsetDim strSql As StringDim rec As ADODB.Recordsetrec = New ADODB.Recordset()rec.CursorType = ADODB.CursorTypeEnum.adOpenKeysetrec.LockType = ADODB.LockTypeEnum.adLockOptimisticstrSql = “SELECT * FROM “ & TableName &
13、“ where “ & strWhererec.Open(strSql, mCnnDB) 打开记录集If Not rec.EOF Thenrec.MoveLast()rec.MoveFirst()End IfReturn recEnd Function 继续扩充访问表的功能。有时要打开多个表，读写其中的数据，我们可以通过建立查询视图实现，其它类似上面的 OpenTable，完整的代码如下：作用:连接多表参数：strSQL返回：记录集Public Function ExecuteSQL(ByVal strSql As String) As ADODB.RecordsetDim rec As Ne
14、w ADODB.Recordset()rec.CursorType = ADODB.CursorTypeEnum.adOpenKeysetrec.LockType = ADODB.LockTypeEnum.adLockOptimisticrec.Open(strSql, mCnnDB) 打开记录集ExecuteSQL = recEnd Function 下面编写了一个用记录集填充 AxMSFlexGrid 网格的过程。其中函数RecordCount 是我自己编写的求记录集中记录的函数。这里不能直接用 ADO 的RecordCount 求得。如果记录集是空，则退出过程。否则求出记录集的记录数和字
15、段来确定 AxMSFlexGrid 网格的行列数据，然后读出记录集的数据直接填充到AxMSFlexGrid 网格。要说明的是读出记录集的数据时要先判断是否为空值，由函数 IsDBNull 实现(函数 IsDBNull 来源于 System.DBNull).最后记录集应该返回到记录首位，否则影响了原有的记录集，完整的代码如下：作用：用记录集的数据填充网格参数：MSGrid 网格对象，rec 记录集对象Public Sub FillMsGrid(ByVal MSGrid As AxMSFlexGridLib.AxMSFlexGrid, ByVal rec As ADODB.Recordset)Di
16、m i, j, RecordNum As IntegerIf rec.EOF Then Exit SubRecordNum = RecordCount(rec)MSGrid.Rows = RecordNum + 1MSGrid.Cols = rec.Fields.Count + 1For i = 0 To RecordNum - 1For j = 0 To rec.Fields.Count - 1If IsDBNull(rec(j).Value) ThenMSGrid.set_TextMatrix(i + 1, j + 1, “)ElseMSGrid.set_TextMatrix(i + 1,
17、 j + 1, rec(j).Value)End IfNextMSGrid.set_TextMatrix(i + 1, 0, i)rec.MoveNext()Nextrec.MoveFrist()End Sub作用：取记录集的记录数参数：rec 记录集对象返回：记录集的记录数Public Function RecordCount(ByVal rec As ADODB.Recordset) As IntegerDim i As IntegerIf rec.EOF ThenRecordCount = 0Exit FunctionEnd IfWith rec.MoveFirst()Do While
18、Not .EOFi += 1.MoveNext()Loop.MoveFirst()End WithRecordCount = iEnd Function以上代码编好后放在所定义的类中.下面的省略号代表上面的函数和过程。可直接生成为 DLL 组件。方法是在 2013 编辑环境下选择生成菜单中按生成就生成了 DLL 文件。然后，你可以直接调用该组件了。Imports ADODB.ConnectionImports ADODB.RecordsetImports ADODB.CursorLocationEnumImports System.DBNull 函数 IsDBNull 的来源Class ADO
19、AccessPrivate mCnnDB As New ADODB.Connection()End Class 调用上面生成的组件方法如下：在 Visual Basic2013 中建立一项目，在窗口 Form1 中加入一 AxMSFlexGrid 网格命名为 MsGrid1,布置如下然后引用刚建立的 Dll。方法是选择项目菜单的添加引用，选择项目页，按浏览找到其 DLL 文件确定后引用完成。在 Form1 中定义一 ADOAccess 对象，在Load 事件中编写调用代码，分别测试其功能，代码如下：Public Class Form1Inherits System.Windows.Forms.
20、FormDim DB As New ADOAccess()Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim rec As New ADODB.Recordset()DB.ConnAccess(“e:test.mdb“)DB.ConnSQLServer(“wj-1058“, “test“)DB.ConnODBC(“testODBC“)DB.ConnOracle(“wj-1059“, “system“, “manager“)rec = D
21、B.OpenTable(“DEMO.customer“)rec = DB.OpenTable(“doc_file“)DB.FillMsGrid(MSGrid1, rec)End Sub 说明：1.你的机上要有 Access 数据库文件（e:test.mdb） ，MS Server 数据库中有数据库 test，doc_file 为 test 中的表，Oracle 数据库中有表DEMO.customer2. wj-1058 为 MS Server 服务器名，wj-1059 为 Oracle 服务器名，“system“, “manager“分别为用户名及口令。3. 一次仅连接一种数据库。以上程序在 Visual Studio2013 中调试通过。 总结：上面方法介绍了刚面世不久的 Visual Basic2013 中有关数据库的开发，ADO 在 Visual Basic2013 中的应用，连接几种最实用的数据库，且介绍了编写组件的方法。
