一句话让程序运行速度提高了几百倍(recordset的CursorLocation属性)

sunsoncheng

Call 查连接                     '查看数据库是否连接
        
    SQL = " select * from 加工流程表 where 页码='615741'"
   
    Set rs = Nothing
   
    rs.Open SQL, cnn, 1, 1, 1       '打开一个不存在的记录,这时的记录集为空但应有表头!
   
    A = "F:\111"
    If Len(Dir(A)) > 0 Then Kill A  '先清除原文件
    rs.Save A                       '将这个空的记录集保存到本机文件中
    Set rs = Nothing
   
    '打开保存的文件rstSaveFile
    rs.Open A, , 1, 2, 1 '3, 4, 256 'adOpenStatic, adLockBatchOptimistic, adCmdFile
   
    '打开本机文件,查看是否有内容表头之类
    '这时可以打出表头的名称,但总的记录数据为 0
    Debug.Print rs.RecordCount
    For i = 1 To rs.Fields.Count: Debug.Print rs.Fields(i - 1).Name, ",",:   Next

   
   
    '但下面的更新却不成立
   
        For i = 1 To 11
            rs.AddNew
            rs("输入日期") = Now
            rs("班组") = "陈新盛"
            rs("页码") = "615741"   '流程表页码


            rs("机台") = "我"
            rs("下工序") = "试"
            rs("备注") = "下"
            rs("班次") = "再"
            rs("生产人员") = "说"
            rs("生产日期") = CDate("2009-12-1")
            rs("计件小组") = "陈新盛"

            rs("单号") = "12345678"
            rs("序号") = "1000"

            rs("数量") = i
            

            rs("核算班组") = "新"
            rs("计件小组") = "盛"

            rs.Update
        Next
        
        
        '经历了本过程后,文件大小不见增长,
        '再用 rs.Open A,   与开始保存的一样,没有内容增加了


楼主:这是我的试验结果,这样的问题吗?

我的想法是先将一个空的记录集保存出来一个文件,再将这个文件的内容新增
再用
'rs.ActiveConnection = cnn
'rs.UpdateBatch

但前面的步骤就不能处理了,请指教

谢谢

sunsoncheng

连ID列,一共有22列,有些是允许空的,有些是默认值的,必须有值的都在这上面记入了

这有关系吗?

nowarmy

谢谢分享！慢慢学习……

lbpp

原帖由 sunsoncheng 于 2009-6-22 14:27 发表
Call 查连接                     '查看数据库是否连接
        
    SQL = " select * from 加工流程表 where 页码='615741'"
   
    Set rs = Nothing
   
    rs.Open SQL, cnn, 1, 1, 1       '打开一个 ...

不好意思，今天太忙来不及测试，回去我去试一下。我粗略看了一下代码，是不是最后还需save一下？

lbpp

原帖由 sunsoncheng 于 2009-6-22 14:27 发表
Call 查连接                     '查看数据库是否连接
        
    SQL = " select * from 加工流程表 where 页码='615741'"
   
    Set rs = Nothing
   
    rs.Open SQL, cnn, 1, 1, 1       '打开一个 ...

经测试，原因的确和前面分析的一样，当调用update后，其实只对内存中的recordset进行了更新，而没有直接更新文件，需要再执行save，直接省略保存路径后会将数据保存至找开的文件。

将我帖子中的附件中添加下面的代码，可以测试一下。

1. 
   
2. 
   
3. Sub RstFileSave()
   
4.     Dim rsGzb As ADODB.Recordset
   
5.     Set rsGzb = New ADODB.Recordset
   
6.     With rsGzb
   
7.         .Open ThisWorkbook.Path & "\rstSaveFile", , adOpenStatic, adLockBatchOptimistic, adCmdFile
   
8. 
   
9.         Sheet1.Range("A1").CopyFromRecordset rsGzb
   
10. 
    
11.         .AddNew Array("gh", "xm"), Array("TTTT", "ttt")
    
12.         .Update
    
13. 
    
14.         .MoveFirst
    
15.         Sheet1.Range("E1").CopyFromRecordset rsGzb
    
16. 
    
17.         .Save
    
18. 
    
19.         .Close
    
20.     End With
    
21.     Set rsGzb = Nothing
    
22. 
    
23. End Sub
    

复制代码

上面的代码第二次运行时将会发现第一次打开的recordset中已经增加了一条TTTT，ttt的记录，每运行一次会增加一条。

在客户机端的recordset上调用update方法，若使用批更新，则被修改的记录中的改动将保存到缓冲区中，直到调用updatebatch方法才提交到数据库。因此只要使用update来更新recordset中的数据，直到有数据连接的时候，调用一下updatebatch就可以更新数据库了。

[ 本帖最后由 lbpp 于 2009-6-23 20:58 编辑 ]

sunsoncheng

后面的SAVE好象是不重要的!

正如楼主讲的,其实内存中已处理了,SAVE只是给人看一下而已

现在的问题是这段:

在客户机端的recordset上调用update方法，若使用批更新，则被修改的记录中的改动将保存到缓冲区中，直到调用updatebatch方法才提交到数据库。因此只要使用update来更新recordset中的数据，直到有数据连接的时候，调用一下updatebatch就可以更新数据库了。

能给个详细的代码吗?      
就是如何将你之前存了的RSSAVEFILE文件的资料存到数据库中?

我试了好多次后,仍然更新不了数据库!
谢谢

lbpp

原帖由 sunsoncheng 于 2009-6-24 08:27 发表
后面的SAVE好象是不重要的!

正如楼主讲的,其实内存中已处理了,SAVE只是给人看一下而已

现在的问题是这段:

在客户机端的recordset上调用update方法，若使用批更新，则被修改的记录中的改动将保存到缓冲区中， ...

按你的要求做了一个示例。压缩包里做了一个示例数据库备份(Sql Server2000)，数据库名为lbpp，内有一个表jb，由gh,xm,jb三个字段组成。
示例中 RstSave2File 从数据库中读取数据保存到文件UpdateDbTest中
ReadFile_UpdateDB中将打开UpdateDbTest文件，然后新增一条记录，然后建立连接后更新数据库。

1. Const sSAVE_FILE_NAME As String = "\UpdateDbTest"
   
2. Const sHOST As String = "localhost"
   
3. Const sDB_NAME As String = "lbpp"
   
4. Const sUSER_NAME As String = "sa"
   
5. Const sPASSWORD As String = "!@#lbpp"
   
6. 
   
7. Sub RstSave2File()
   
8. 
   
9.     Dim cn As ADODB.Connection
   
10. 
    
11.     Dim sSqlCommand As String
    
12. 
    
13.     sSqlCommand = "select * from jb"
    
14. 
    
15.     '建立连接
    
16.     Call ConnectDB(cn, SQL_Server, sHOST, sDB_NAME, sUSER_NAME, sPASSWORD)
    
17. 
    
18.     Dim rs As ADODB.Recordset
    
19.     Set rs = New ADODB.Recordset
    
20.     rs.CursorLocation = adUseClient
    
21.    
    
22.     rs.Open sSqlCommand, cn, adOpenStatic, adLockBatchOptimistic
    
23. 
    
24.     rs.Save ThisWorkbook.Path & sSAVE_FILE_NAME
    
25. 
    
26.     Set rs.ActiveConnection = Nothing
    
27.    
    
28.     Call CloseConnect(cn)
    
29. 
    
30.     rs.Close
    
31.     Set rs = Nothing
    
32. 
    
33. End Sub
    
34. 
    
35. Sub ReadFile_UpdateDB()
    
36. 
    
37.     Dim cn As ADODB.Connection
    
38. 
    
39.     Dim rs As ADODB.Recordset
    
40.     Set rs = New ADODB.Recordset
    
41.     With rs
    
42.         .Open ThisWorkbook.Path & sSAVE_FILE_NAME, , adOpenStatic, adLockBatchOptimistic, adCmdFile
    
43. 
    
44.         .AddNew Array("gh", "xm", "jb"), Array("3456", "李四", 100.38)
    
45.         .Update
    
46. 
    
47. 
    
48.         Call ConnectDB(cn, SQL_Server, sHOST, sDB_NAME, sUSER_NAME, sPASSWORD)
    
49.         '=============== 恢复连接 ================
    
50.         rs.ActiveConnection = cn
    
51.         rs.UpdateBatch
    
52.         
    
53.         
    
54.         .Close
    
55.     End With
    
56.     Set rs = Nothing
    
57. 
    
58. End Sub
    

复制代码

由于没有看到你的代码，找不到具体原因，我的想法是，你新增记录不成功是不是因为你找开的recordset中的记录是来自多张表的，如果那样的话，我想应该是不能新增记录的，这就是在SQL中直接做也是不行的。方便的话把你的代码发一个给我看看，可以发到我邮箱中    litbearpp@gmail.com。

lbpp

速度变快的真正原因找到了。
ADO临时表引擎会自动对客户端临时表建立索引，而不对服务器端临时表建立索引，索引对于查找的速度影响是非常巨大的，所以这才是速度变快的真正原因。

[ 本帖最后由 lbpp 于 2009-8-13 15:36 编辑 ]

何彪

虽然我等菜鸟不知道你们在说些什么，但是还是觉得你们的水平——高！高老庄的高！

lbl016

谢谢楼主分享....