 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在VB编程中通常要与数据库打交道，对于数据量较小的应用，一般选用Access作为数据库，因为Access数据库比较简朴，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库治理软件。因此，在功能能够满意要求的条件下，Access数据库往往成为一些小型数据库软件的首选。 关于用VB操作Access库表的方式有多种，一般初学者往往会使用数据控件，许多资料上也大都以此作为操作Access数据库的起点来介绍，因为这个方式使用起来异常简朴，但使用数据控件的方式在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方式。 第一种：使用数据库对象 首先，要进行有关数据对象的声明，代码如下。 Dim MyWs As Workspace Dim MyDB As Database Dim WordTab As Recordset 生成工作区，打开数据库，然后再根据需要打开相应的库表。 Set MyWs = DBEngine.CreateWorkspace??″″?? ″Admin″?? ″″?? dbUseJet Set MyDB = MyWs.OpenDatabase??数据库名称?? False?? False Set WordTab = MyDB.OpenRecordset??″表名″?? dbOpenDynaset 这种方式的长处是代码比较简朴，要求的环境为DAO 2.5/3.51，其中表名可以换成SELECT语句，即根据条件打开所需要的记录集，这种方式可脱离数据控件，可以比较方便灵活地操作数据库表，增加了程序的灵活性。 提示：经过测试发现，这种方式只能打开Access97库表，对于Access2000库表却无能为力，会弹出库表格式不对的出错提示。另外，对数据环境的要求仍比较多。 第二种：使用ADODB 首先，声明一个链接变量，并根据需要声明记录集变量。 Dim LocCnn1 As ADODB.Connection Dim LocRst1 As ADODB.Recordset 建立与数据库的链接，假如数据库没有口令，最后一行可以不写（写上也不会错）。 Set LocCnn1 = New ADODB.Connection LocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0??User ID=Admin??″ & _ ″Data Source=″ & App.Path & ″数据库名称.mdb??″& _ ″Mode=Share Deny None??Extended Properties=\\\'\\\'??Persist Security Info=False??″ & _ ″Jet OLEDB??Database Password=\\\'asp561rbc\\\'??″ 这种方式虽然代码长一些，但对数据环境要求低，且结构清楚，所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方式相同，因而大量的操作数据库的代码一样，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简朴数据库时，程序的移植会比较方便。 另外，这种方式对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。 假如还要获取详细的记录集内容，则须再根据条件打开详细的库表，代码如下： Set LocRst1 = New ADODB.Recordset LocRst1.CursorType = adOpenKeyset LocRst1.LockType = adLockOptimistic LocRst1.Open ″SELECT ?? FROM 表名″?? LocCnn1??adCmdText 提示：一般情况下，建议使用第二种方式。 返回类别: 教程 上一教程: 通过COM使用ADODB 下一教程: SQL语句的一些集合 您可以阅读与"VB两种操作ACCESS数据库方式的比较"相关的教程: · 在VB中压缩ACCESS数据库 · SQL SERVER 和 ACCESS 操作数据库结构SQL语句 · MYSQL下创建数据库的两种方法 · 以独占方法打开ACCESS数据库 · SQL SERVER和ORACLE防止数据锁定的比较 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
