是不是ado效率太低
dtzfl 2003-10-31 02:28:58 我用类似下面的程序测试ado
for i=0 to rs.recordcount-1
strSql = "select * from xxx where personno='" & rs!personNo & "'"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open strsql, strcon1, adOpenStatic, adLockOptimistic, adCmdText
Set rs2 = New ADODB.Recordset
rs2.CursorLocation = adUseClient
rs2.Open strsql, strcon1, adOpenStatic, adLockOptimistic, adCmdText
If rs2.RecordCount < 1 Then rs2.AddNew
rs2("PersonNo") = rs1("PersonNo")
rs2("PersonID") = rs1("PersonID")
rs2("Photo") = rs1("Photo") '是一张图片
rs2.Update
next
结果是1000条记录左右速度还可以,此后越来越慢,查看资源使用情况CPU使用接近100,内存使用越来越多.
是不是ado效率太低,没释放内存,不知如何提高效率?