visual studio 2013中使用ado访问数据库的实例

《visual studio 2013中使用ado访问数据库的实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualStudio2013中使用ADO访问数据库的实例VisualStudio2013预览版以VisualStudio2012和后续的MicrosoftVisualStudio更新中的进展为基础构建而成，为开发团队提供需要的解决方案，使其接纳这种转变并开发和交付利用下一波Windows平台创新(Windows8.1)的新式应用程序，同时在所有Microsoft平台上支持多种设备和服务。VisualStudio2013新增功能支持Windows8.1App开发敏捷项目管理（AgilePortfolioManagement）版本控制轻量代码注释（lightweightcodecomment

2、ing）编程过程VisualStudio2013预览版提供的工具集非常适合生成利用下一波Windows平台创新(Windows8.1)的新式应用程序，同时在所有Microsoft平台上支持设备和服务。支持在Windows8.1预览版中开发Windows应用商店应用程序，具体表现在对工具、控件和模板进行了许多更新、对于XAML应用程序支持新近提出的编码UI测试、用于XAML和HTML应用程序的UI响应能力分析器和能耗探查器、增强了用于HTML应用程序的内存探查工具以及改进了与Windows应用商店的集成。VisualStudio2013预览版进行了大量改进，可帮助您在编码时提高工作效率并集中精

3、力。某些功能首先在VisualStudioPowerTools扩展中以试验性质出现，经过改进后才纳入到VisualStudio中。新版本中内置了多种提高工作效率的功能，如自动补全方括号、使用快捷键移动整行或整块的代码以及行内导航。此外，VisualStudio2013预览版的团队资源管理器增强了主页设计，可以更简便地导航到团队协作功能，并可取消停靠“挂起更改”和“生成”，使其显示在一个单独的窗口中。在处理大型代码文件时，可能难以了解当前所处的位置。在VisualStudio2013预览版中，可轻松地在两种模式之间切换滚动条的行为。在栏模式中，可更直接地查看脱字号位置等注释、更改所在位置和跟踪

4、错误。在图模式下，滚动条显示源代码的实时预览，而将鼠标悬停在代码上即可在工具提示中更详细地预览这段代码。然后单击代码所在位置即可导航到该位置。　　2013中以ADO2013取代以前的ADO。用惯ADO的程序员怎样在2013中怎样应用ADO呢？本人经过不断的摸索，发现在2013中ADO一样可以用，并且很好用。现在结合VisualBasic2013强大的类开发功能，本人将ADO开发成组件使用，效果非常理想。我使用的方法如下：　　启动VisualStudio2013。在新建项目中选择VisualBasic项目，在模板中选择类库，在名称中输入类库名称如DataAccess.确定后，则进入类库开发环境

5、中，把Class1换名为ADOAccess。　　在项目菜单中加入引用，选择COM页，找到MicrosoftActionXDataObject20Library或更高版本。COM选项是Microsoft为了区分现在的2013，兼容以前的开发方式而设置的，凡是2013之前的组件都可在COM页中可找到。　　在类名上面写上ImportsADODB.Connection；ImportsADODB.Recordset；ImportsADODB.CursorLocationEnum；ImportsSystem.DBNull4条引用语句，这里分别是引用ADO，ADO的宏定义,设置空值函数的来源。　　在类中定

6、义一局部连接对象变量。PrivatemCnnDBAsNewADODB.Connection()然后定义连接Access数据库的过程.Access数据库用adUseClient指定，通过Microsoft.Jet.OLEDB数据访问方式访问数据库，Microsoft.Jet.OLEDB又有多种版本，其中4.0是最高版本，它能访问ACCESS2000，所以这里的数据提供者指定为Microsoft.Jet.OLEDB.4.0。指定了本地数据库和提供者后，就可打开一个数据库了，用open方法实现。完整的代码如下：''作用:连接Access数据库''参数:DBName数据库名PublicSubConn

7、Access(ByValDBNameAsString)DimstrDBAsStringmCnnDB.CursorLocation=adUseClientmCnnDB.Provider="Microsoft.Jet.OLEDB.4.0"mCnnDB.Open(DBName,"Admin")EndSub　　在ODBC中设置DNS,在下面的ConnectionString中指定用户名和密码，最后用open方法打开。