求助！用ADO绑定窗体记录源后，断开，后怎么在联上。

坡芽歌书

用ADO绑定窗体记录源后，断开，后怎么在联上。
如题：
Private Function ADOBatchRst(frm As Form, RecSource As String) As Integer
    Dim rs As New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
        .Open RecSource, sqlcon adOpenStatic, adLockBatchOptimistic
       Set .ActiveConnection = Nothing    ' 断开连接    End With
    Set frm.Recordset = rs
'    ADOBatchRst = rs.RecordCount
    Set rs = Nothing
End Function
以上函数是小宝版主的。
ADOBatchRst me.子窗体.form,"表1"


在对子窗体的数据进行，新增，修改，册除后，
怎么  链接上  并  对数据进行保存（批量更新）UpdateBatch


谢谢！！！！！！！！！！！！

kinsey

一就是 这样的！

wu8313

抄段帮助 给你：
Open 和 Close 方法范例 (VB)
本范例在已打开的 Recordset 和 Connection 对象上使用 Open 和 Close 方法。

'BeginOpenVB

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string

Public Sub OpenX()
    On Error GoTo ErrorHandler

    Dim Cnxn As ADODB.Connection
    Dim rstEmployees As ADODB.Recordset
    Dim strCnxn As String
    Dim strSQLEmployees As String
    Dim varDate As Variant
   
    ' Open connection
    strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Set Cnxn = New ADODB.Connection
    Cnxn.Open strCnxn
   
    ' Open employee table
    Set rstEmployees = New ADODB.Recordset
    strSQLEmployees = "employee"
    rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable
   
    ' Assign the first employee record's hire date
    ' to a variable, then change the hire date
    varDate = rstEmployees!hire_date
    Debug.Print "Original data"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
        rstEmployees!lname & " - " & rstEmployees!hire_date
    rstEmployees!hire_date = #1/1/1900#
    rstEmployees.Update
    Debug.Print "Changed data"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
        rstEmployees!lname & " - " & rstEmployees!hire_date
   
    ' Requery Recordset and reset the hire date
    rstEmployees.Requery
    rstEmployees!hire_date = varDate
    rstEmployees.Update
    Debug.Print "Data after reset"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
       rstEmployees!lname & " - " & rstEmployees!hire_date

    ' clean up
    rstEmployees.Close
    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = Nothing
    Exit Sub
   
ErrorHandler:
    ' clean up
    If Not rstEmployees Is Nothing Then
        If rstEmployees.State = adStateOpen Then rstEmployees.Close
    End If
    Set rstEmployees = Nothing
   
    If Not Cnxn Is Nothing Then
        If Cnxn.State = adStateOpen Then Cnxn.Close
    End If
    Set Cnxn = Nothing
   
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
'EndOpenVB