vb数据库记录查询四法vb数据库dao

vb数据库记录查询四法vb数据库dao内容摘要：

2 个字节构成。 字段说明 起始地址 字节数 含义 111 11 字段名称 12 1 字段类型（分别为 C、 N、 D、 L 等） 1316 4 该字段在文件中地址 17 1 字段长度 18 1 小数位数 1932 14 未使用 知道了字段信息说明，就可以使用 复合变量 + 2 进制文件 来操作数据库了。 T ext 转换为 Access MDB T ext 文件类型在很多软件中都为一般应用 程序与数据库之间架起一座桥梁。 你可以使用 T ext ISAM 驱动程序和 SQL 来把 Text 文件转换成 Access MDB 数据库文件，首先，为文本文件创建一个 SCHEMA. INI 文件。 然后，你可以使用下面的代码来实现转换： Dim db As Database, tbl as T ableDef Set db = ( amp。 \, dbLangGeneral, dbVersion_0) Set tbl = db. Cr eateTableDef(Temp) tbl. Connect = T ext。 database=c:\vbpj\data tbl. SourceTableName = Customertxt db. tbl db. Execute Select T emp.* into NewT able from T emp db. tbl. Name db. Close Set tbl = Nothing Set db = Nothing 锁住数据库中 的表 把表达式 True=False 放到表的 ValidationRule 属性就能锁上。 HardLockTable?实现了该功能。 声明 P ublic MyDB As Database Dim Dummy As Integer 函数 Function HardLockTable (ByVal whichAction As String, ?ByVal aT able As String) As Integer On Error GoTo HardLockTableError HardLockTable = T rue Select Case whichAction Case Lock (aTable).ValidationRule = T rue=False (aTable).ValidationText =?This table locked via amp。 ?ValidationRule on amp。 Now Case UnLock (aTable).ValidationRule = (aTable).ValidationText = Case T estThenUnLock If (aTable).ValidationRule = T rue=False T hen (aTable).ValidationRule = (aTable).ValidationText = End If End Select HardLockTableErrorExit : 39。 subFlushDBEngine 39。 optional, see next suggestion Exit Function HardLockTableError: HardLockTable = False MsgBox Error$ amp。 error amp。 in HardLockTable trying amp。 to amp。 whichAction amp。 amp。 aT able Resume HardLockTableErrorExit End Function 使用例子 39。 上锁 Dummy = HardLockTable(Lock, T estTable) 39。 开锁 Dummy = HardLockTable(UnLock, T estTable) 关闭所有的数据连接 如果在代码中使用了数据控件如 DAO， RDO， 或 ADO， 在退出时应该关闭所有打开的 recordset， database，和 workspace。 虽然对象能自动注销， 但是数据连接不会马上断开， 可能会导致一些内存不能被系统重新分配。 下面的代码可以关闭所有打开的 DAO workspace， 并释放所占的内存。 P rivate Sub Form_Unload(Cancel As Integer) On Error Resume Next 39。 Dim ws As Workspace Dim db As Database Dim rs As Recordset 39。 For Each ws In Workspaces For Each db In ws. Databases For Each rs In db. Recordsets rs. Close Set rs = Nothing Next db. Close Set db = Nothing Next ws. Close Set ws = Nothing Next 39。 End Sub 如何删除 FoxPro 数据库的数据 ? 用 VB 对 FOXPRO 数据库操作 ,经常会遇到这样一个问题 : 只能对记录进行 DEL,也就是在该条记录上打一个删除标记 ,但不能 象在数据库中那样 ,用 PACK把这条记录真正删除 .当记录数较多时 , 用 DBGRID 等控件做的程序都会出错 .该怎样办呢 ?其实 ,VB 中无法对 DBF 文件进行 PACK。 只能把ISAM 的设置 Deleted 设为 On。 这样相当于 FoxPro 的 SET DELETED ON。 不信你可以试一试。 VB 应用小集 访问 VB 外来数据库 VB 最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据库的强大功能。 VB中将非 MS Access 数据库称为外来数据库 (External Database)，如 dBASE、 FoxPro、 ODBC 等。 VB中使用数据控制访问外来数据库同访问 Access 数据库类似，这里不再赘述，现在主要读一下用生成对象的方法来访问外来数据库。 访问外来数据库 ((以 dBASE 为例 )大致分为以下几步： 第一步：建立一个 Access 型数据库，并在数据库中创建新表 —即为附加表。 通过设置 附加表的各属性值，使其与你所要访问的数据库建立链接关系。 程序代码如下： DimDbasDatabase DimT dasNewTabledef SetDb=OpenDataba。