Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access开发平台

开发平台自定义函数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群 (群号:84825014)       access源码网店

最新评论 查看更多评论(3)

2018/11/14 11:42:05zhang
LoadRecord有一个窗体始终无法成功加载数据,请教会是什么原因?

2018/9/8 12:13:01KevinFan
LoadRecord有时候无法成功加载数据。我有一个主次表窗体,因为明细表的批号=主窗体单号&明细窗体行号,在保存的时候动态生成。因为保存后,明细窗体的临时表并没有批号的内容,所以需要重新加载一次数据,使用LoadRecord函数,有时候加载成功,有时候不成功,一直没找到原因。老老实实使用rstTmp![字段1] = rst![字段1]这种模式,重新加载数据完全没问题。

2017/10/30 8:34:20麥田
总结的好

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助