开发平台自定义函数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、只是简单的读取和添加功能，无法对某个字段进行计算或更新。