Question

VB 数据库关闭连接

Dim i As Integer
Dim m As Integer
FileCopy "温度记录.mdb", "dbf\ch12.mdb"
Data1.DatabaseName = "dbf\ch12.mdb "
Data1.RecordSource = "ch12666 "
Data1.Refresh
Data1.Recordset.AddNew
For i = 1 To 10
Data1.Recordset(i) = MSFlexGrid3.TextMatrix(1, i)
Next
Data1.Recordset.Update

怎么样才能关闭数据库连接，每次使用完数据库后LDB文件都不会消失 cn.close 和 rs.close 也关闭不了 错在哪里？
二楼的办法不行 你的第二个办法我以前就试过了 不行

Answer 1

Data1.Database.close
这样试试
------------------
data1.recordset.close
这样应该行
------------------
.....要不换ADO连接?

Answer 2

rs.close
cn.close
rs=nothing
cn=nothing
这样呢?

Answer 3

自己做