开发平台自定义函数LoadRecord的使用
时 间:2017-10-29 11:09:30
作 者:牛魔王 ID:33197 城市:成都
摘 要:开发平台自定义函数LoadRecord的使用
正 文:
红尘如烟老师对开发平台自定义函数LoadRecord作了解释.
http://www.accessoft.com/article-show.asp?id=16674
LoadRecord函数也有另外一种用法
把源数据表的记录添加到目标数据表
以前的代码可能是:
sql=" Insert INTO 目标数据表(字段1,字段2,字段3,...字段n)" & _
" Select 字段1,字段2,字段3,...字段n" & _
" FROM 源数据表" & _
" Where 条件表达式"
Conn.Execute sql
或者是
Dim cnn: Set cnn = CurrentProject.Connection
Dim strSQL: strSQL = "Select * FROM [源数据表] Where 条件表达式"
Dim rst: Set rst = OpenADORecordset(strSQL, , cnn)
Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("目标数据表")
Do Until rst.EOF
rstTmp.AddNew
rstTmp![字段1] = rst![字段1]
.
.
rstTmp![字段n] = rst![字段n]
rstTmp.Update
rst.MoveNext
Loop
rst.Close
rstTmp.Close
现在用LoadRecord函数直接一句就OK了:
LoadRecord "目标数据表", "Select * FROM [源数据表] Where 条件表达式”, CurrentProject.Connection
LoadRecord函数的释义:
LoadRecord(Distination,Source,[ActiveConnection])
目标 来源 动态链接
LoadRecord函数的总结:
1、比如增加或减少表中字段,不需要修改代码。只需要在表中添加或删除同名字段即可。
而原来的代码在添加数据时,要一个字段一个字段的写,现在在LoadRecord函数里面,通过循环来自动读取并添加数据。
2、只是简单的读取和添加功能,无法对某个字段进行计算或更新。
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)