Office中国论坛/Access中国论坛

标题: [求助]关于数据保存的问题 [打印本页]

作者: jxcxd 时间: 2006-3-7 18:37
标题: [求助]关于数据保存的问题
想请教个问题,我做了个学费管理的软件,现在想实现这样一个效果,学生的学费每三年就自动保存出来,自动实现和学费数据库的分离。

作者: 一点通 时间: 2006-3-7 18:49
1\将过期的数据用"生成表查询"保存到新的表中,

2\将过期的数据用"删除查询"删除不再用的数据

作者: jxcxd 时间: 2006-3-7 18:52
是啊,怎样做?最好有例子可看

[此贴子已经被作者于2006-3-7 10:52:20编辑过]

作者: fan0217 时间: 2006-3-8 02:39
这也是一种方法：http://www.office-cn.net/forum.php?mod=viewthread&tid=36740&replyID=&skin=1

红色的代码做一些修改，就可以把数据写入其他的数据库了．

Public Function CopyRecord(ByVal strSource As String, ByVal strTarget As String, _
                                          ByVal DelRecord As Boolean)
'====================================================================
' 名称:       CopyRecord
' 作用:       在两个字段完全相同的表中复制记录
' 参数说明: 1.strSource:记录来源表的名称
'             2.strTarget:目标表的名称
'             3.DelRecord:复制后是否删除原记录，True为删除，False为保留
' 作者:       fan0217@163.com
' 日期:       2006-2-26
' 注释:
'
'====================================================================
On Error GoTo Err_CopyRecord

Dim conn As New ADODB.Connection
Dim rsSour As New ADODB.Recordset
Dim rsTar As New ADODB.Recordset

Dim i As Integer

Set conn = CurrentProject.Connection

rsSour.Open strSource, conn, adOpenKeyset, adLockOptimistic
rsTar.Open strTarget, conn, adOpenKeyset, adLockOptimistic

Do Until rsSour.EOF
rsTar.AddNew

For i = 0 To rsSour.Fields.Count - 1
   rsTar.Fields(i) = rsSour.Fields(i)
Next

rsTar.Update

If DelRecord = True Then
      rsSour.Delete
End If
rsSour.MoveNext
Loop

Exit_CopyRecord:
Exit Function

Err_CopyRecord:
MsgBox Err.Description
Resume Exit_CopyRecord
End Function

[此贴子已经被作者于2006-3-7 19:00:26编辑过]

作者: jxcxd 时间: 2006-3-16 23:29
复制一部分不知怎样搞啊,这是全部复制

作者: cg1 时间: 2006-3-17 00:06
把 MDB copy一份，然后把不要的记录删除掉就行了

作者: jxcxd 时间: 2006-3-20 19:37
记录少就可以这样做，记录多就很麻烦了, 有没有更好的方法啊

[此贴子已经被作者于2006-3-20 11:38:25编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)