請教各位 我目前有一個程式如下
Dim cnn1 As ADODB.Connection
Dim rsSendData As ADODB.Recordset
Dim strCnn As String
' Open a connection.
Set cnn1 = New ADODB.Connection
strCnn = "dsn=DATA;"
cnn1.Open strCnn
Set rsSendData = New ADODB.Recordset
rsSendData.CursorType = adOpenKeyset
rsSendData.LockType = adLockOptimistic
rsSendData.Open "select * from ABC ", cnn1, , , adCmdText
rsSendData.Close
cnn1.Close
Set rsSendData = Nothing
Set cnn1 = Nothing
當我每次一執行此sub 時 記憶體就被吃掉100多k 為何我已經將所有變數都設為nothing了 記憶體還是無法釋放,我是用sql2000+MDAC 2.7
Dim cnn1 As ADODB.Connection
Dim rsSendData As ADODB.Recordset
Dim strCnn As String
' Open a connection.
Set cnn1 = New ADODB.Connection
strCnn = "dsn=DATA;"
cnn1.Open strCnn
Set rsSendData = New ADODB.Recordset
rsSendData.CursorType = adOpenKeyset
rsSendData.LockType = adLockOptimistic
rsSendData.Open "select * from ABC ", cnn1, , , adCmdText
rsSendData.Close
cnn1.Close
Set rsSendData = Nothing
Set cnn1 = Nothing
當我每次一執行此sub 時 記憶體就被吃掉100多k 為何我已經將所有變數都設為nothing了 記憶體還是無法釋放,我是用sql2000+MDAC 2.7
全站熱搜
留言列表