打印本文 打印本文  关闭窗口 关闭窗口  
ACCESS记录的删除和读写
作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:44:13  文章录入：杜斌  责任编辑：杜斌
　　清空表记录的方法
　　1、CurrentDb().Execute \"delete * from 表名\"
　　2、docmd.runsql \"SQL语句\"
　　3，RunSQL \"Delete * From 表名\"
　　确定所显示的当前记录的记录编号。
　　下面的示例显示如何使用
　　Currentrecord 属性来确定所显示的当前记录的记录编号。在通用过程 Currentformrecord 中将当前记录的编号值赋给变量 Lngrecordnum。
　　Sub CurrentFormRecord(frm As Form)
　　Dim lngrecordnum As Long
　　lngrecordnum = frm.CurrentRecord \’CurrentRecord是当前记录号
　　End Sub
　　读取最后一条记录
　　dlast(\"字段名\",\"表名\")
　　在字段默认值中用此函数能使该字段的新纪录显示上一条记录该字段的值
　　怎样使窗体一打开就定位到指定记录上
　　定义了一个变量lngbh，要窗体打开时显示ID=Lngbh的这条记录。
　　DoCmd.OpenForm \"formname\", acNormal, , \"ID =\" & LNGBH, acFormEdit, acWindowNormal
　　如何在打开窗体时自动到相应记录
　　用法:DoCmd.RunCommand acCmdRecordsGoToNew
　　acCmdRecordsGoToFirst 移到第一条记录
　　acCmdRecordsGoToLast 移到最后一条记录
　　acCmdRecordsGoToNew 新增一条记录
　　acCmdRecordsGoToNext 移到下一条记录
　　acCmdRecordsGoToPrevious 移到上一条记录
　　判断记录的位置
　　me.Recordset.AbsolutePosition = 0 \’第一条记录
　　me.Recordset.AbsolutePosition = me.Recordset.RecordCount -1 \’最后一条记录
　　me.Recordset.AbsolutePosition=-1 \’第一条记录前 me.Recordset.bof=true
　　me.Recordset.AbsolutePosition=me.Recordset.RecordCount \’最后一条记录后 me.Recordset.eof=true
　　me.Recordset.AbsolutePosition=n \’第n+1条记录
　　判断是否为新增记录
　　me.newrecord=true
　　me.newrecord=false
　　VB语句删除记录：
　　For I = 1 To 20
　　SQL = \"Delete 订单明细ID FROM 订单明细 Where 订单明细ID=\" & I
　　DoCmd.RunSQL SQL
　　Next
　　或：
　　CurrentProject.Connection.Execute \"Delete * FROM要删除记录的表\"
打印本文 打印本文  关闭窗口 关闭窗口