[求助]关于数据保存的问题

jxcxd

想请教个问题,我做了个学费管理的软件,现在想实现这样一个效果,学生的学费每三年就自动保存出来,自动实现和学费数据库的分离。

一点通

1\将过期的数据用"生成表查询"保存到新的表中,

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

jxcxd

是啊,怎样做?最好有例子可看

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

fan0217

这也是一种方法：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

复制一部分不知怎样搞啊,这是全部复制

cg1

把 MDB copy一份，然后把不要的记录删除掉就行了

jxcxd

记录少就可以这样做，记录多就很麻烦了,  有没有更好的方法啊

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