# Re: 请问有没有办法把Database的Table内的资料存入一个Database呢?

Posted by 丸子 on August 13, 1998 at 14:57:05:

In Reply to: Re: 请问有没有办法把Database的Table内的资料存入一个Database呢? posted by Chen on August 05, 1998 at 15:45:29:

: Dim recRecordset1 As Recordset
: Dim recRecordset2 As Recordset
: Dim fld As Field

: Set recRecordset1 = FromDB.OpenRecordset(rFrom)
: Set recRecordset2 = rToDB.OpenRecordset(rTo)
: While recRecordset1.EOF = False
: 将recRecordset1各栏位值对应复制到recRecordset2
: Wend

I see
thanks for your help

Follow Ups: