[求助]關(guān)于數(shù)據(jù)保存的問(wèn)題

jxcxd

想請(qǐng)教個(gè)問(wèn)題,我做了個(gè)學(xué)費(fèi)管理的軟件,現(xiàn)在想實(shí)現(xiàn)這樣一個(gè)效果,學(xué)生的學(xué)費(fèi)每三年就自動(dòng)保存出來(lái),自動(dòng)實(shí)現(xiàn)和學(xué)費(fèi)數(shù)據(jù)庫(kù)的分離。

一點(diǎn)通

1\將過(guò)期的數(shù)據(jù)用"生成表查詢(xún)"保存到新的表中,

2\將過(guò)期的數(shù)據(jù)用"刪除查詢(xún)"刪除不再用的數(shù)據(jù)

jxcxd

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

[此貼子已經(jīng)被作者于2006-3-7 10:52:20編輯過(guò)]

fan0217

這也是一種方法：http://ctxi.cn/forum.php?mod=viewthread&tid=36740&replyID=&skin=1

紅色的代碼做一些修改，就可以把數(shù)據(jù)寫(xiě)入其他的數(shù)據(jù)庫(kù)了．

Public Function CopyRecord(ByVal strSource As String, ByVal strTarget As String, _
                                            ByVal DelRecord As Boolean)
'====================================================================
' 名稱(chēng):        CopyRecord
' 作用:        在兩個(gè)字段完全相同的表中復(fù)制記錄
' 參數(shù)說(shuō)明:    1.strSource:記錄來(lái)源表的名稱(chēng)
'              2.strTarget:目標(biāo)表的名稱(chēng)
'              3.DelRecord:復(fù)制后是否刪除原記錄，True為刪除，F(xiàn)alse為保留
' 作者:        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

[此貼子已經(jīng)被作者于2006-3-7 19:00:26編輯過(guò)]

jxcxd

復(fù)制一部分不知怎樣搞啊,這是全部復(fù)制

cg1

把 MDB copy一份，然后把不要的記錄刪除掉就行了

jxcxd

記錄少就可以這樣做，記錄多就很麻煩了,  有沒(méi)有更好的方法啊

[此貼子已經(jīng)被作者于2006-3-20 11:38:25編輯過(guò)]