T McKeown
ADODB.Recordset, , . Call rs.Close() - , .
, , , .
Dim conn, conn_string, rs
conn_string = "some connection string to your database"
'Memory allocated for ADODB.Connection object
Set conn = Server.CreateObject("ADODB.Connection")
'Connection opened to data source (SQL Server, Oracle, MySQL etc)
Call conn.Open()
Set rs = conn.Execute("SELECT * FROM [sometable]")
Do While Not rs.EOF
'Long running page (do some processing)
Call rs.MoveNext()
Loop
'Remove any locks on the tables and dis-associate connection
Call rs.Close()
'Deallocate ADODB.Recordset from memory
Set rs = Nothing
'Connection is still open and needs to be closed
Call conn.Close()
'Connection closed but still allocated in memory
Set conn = Nothing
, ADODB.
Dim conn, conn_string, rs, cmd, data
conn_string = "some connection string to your database"
'Memory allocated for ADODB.Command object
Set cmd = Server.CreateObject("ADODB.Command")
With cmd
'Connection allocated when ADODB.Command is run and only
'lasts for the life of ADODB.Command object.
.ActiveConnection = conn_string
.CommandType = adCmdText
.CommandText = "SELECT * FROM [sometable]"
'Allocate memory for ADODB.Recordset
Set rs = .Execute()
'Use .GetRows() to build a two dimensional array
'containing the ADODB.Recordset data.
If Not rs.EOF Then data = rs.GetRows()
Call rs.Close()
'Deallocate memory for ADODB.Recordset
Set rs = Nothing
End with
'Deallocate ADODB.Command which closes and de-allocates
'the associated ADODB.Connection.
Set cmd = Nothing
'All ADODB objects have been deallocated rest of the page can run
'without them using the array to iterate through the data.
If IsArray(data) Then
'Long running page (do some processing)
End If
. , .