在一个窗口中打开的记录集能否在另一个窗口中调用.

Question

如果可以调用的话,帮助讲讲其详细过程与方法.(ADO连接)
我现在的问题是原窗口已经打开了这个数据库和记录集,现在是在一个新窗口中输入了一些数据,要把这些数据保存到原窗口已经打开的记录集中,是需要重新写ADO连接进行添加还是可以调用原窗口中打开的记录集直接进行添加.

Answer 1

'Form1中
Public rst as recordset
.......'Form2中调用
...
Msgbox Form1.rst.Feilds(1)

Answer 2

'FORM1 代码
Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Public rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "select * from USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Form2.Show
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub
'=============================='FORM2 代码Option ExplicitPrivate Sub Command1_Click()
    Form1.rs.AddNew
    Form1.rs!UID = "DDDD"
    Form1.rs!PWD = "AAAA"
    Form1.rs!TRUENAME = "AAAA"
    Form1.rs!CREATEDATE = "2004/06/26"
    Form1.rs.Update
End Sub

Answer 3

可以将 form1中的记录集 Public为全局的记录集
这样，在Form2中可以使用"form1.记录集名称"的方法调用。不过，建议使用过记录集立即关闭且销毁。不要做为全局的。