返回Recordset后，与数据库断开连接(ADODB)

 

Private   Sub  Command1_Click()
     Dim  szSQL  As   String
     Dim  conn  As   New  ADODB.Connection
     Dim  rs  As  ADODB.Recordset
    
    conn.ConnectionString  =  m_conStr
    conn.CursorLocation  =  adUseClient
    conn.Open
    
    szSQL  =   " select * from table1"
     Set  rs  =  conn. Execute (szSQL)
    
    rs.ActiveConnection  =   Nothing   ' 如果是服务器短光标，则此句会出错，就不能脱离连接
    conn.Close
     Set  conn  =   Nothing

     While   Not  rs.EOF
        Debug.Print  " [ "   &   Now   &   " ] "   &  rs.Fields( 0 )  &   " : "   &  rs.Fields( 1 )
        rs.MoveNext
     Wend

End Sub