生成指定起止记录

时　间:2016-12-04 09:37:34
作　者:易勋   ID：35404  城市：上海
摘　要:TMP_Test 表中至少有“编号”字段
正　文:

Function AutoGenerate(strStart As Integer, strUP As Integer)
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    '初始化参数为一个新的ADODB型Recordset
    Set rst = New ADODB.Recordset
    
    '把 rst 参数设定为本数据库,并连接
    rst.ActiveConnection = CurrentProject.Connection
    
    rst.Open "TMP_Test", , adOpenKeyset, adLockOptimistic
    
    CurrentDb.Execute "delete from TMP_Test"
    '循环记录集
    Do While strStart <= strUP
        rst.AddNew
        rst!编号 = strStart
        strStart = strStart + 1
        rst.Update
    Loop
    rst.Close
End Function


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店