大尾巴狼

所谓大尾巴狼,就是装腔作势。

返回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

posted on 2004-08-15 00:31  大尾巴狼  阅读(1124)  评论(0编辑  收藏  举报

导航