請教各位 我目前有一個程式如下
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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()