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

sunsoncheng · 发表于 2009-6-22 14:27

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 · 发表于 2009-6-22 14:33

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

这有关系吗?

nowarmy · 发表于 2009-6-22 15:07

谢谢分享！慢慢学习……

lbpp · 发表于 2009-6-22 16:13

原帖由 sunsoncheng 于 2009-6-22 14:27 发表
Call 查连接                   '查看数据库是否连接

SQL = " select * from 加工流程表 where 页码='615741'"

Set rs = Nothing

rs.Open SQL, cnn, 1, 1, 1    '打开一个 ...

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

lbpp · 发表于 2009-6-23 20:52

原帖由 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，直接省略保存路径后会将数据保存至找开的文件。

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

Sub RstFileSave()
Dim rsGzb As ADODB.Recordset
Set rsGzb = New ADODB.Recordset
With rsGzb
.Open ThisWorkbook.Path & "\rstSaveFile", , adOpenStatic, adLockBatchOptimistic, adCmdFile
Sheet1.Range("A1").CopyFromRecordset rsGzb
.AddNew Array("gh", "xm"), Array("TTTT", "ttt")
.Update
.MoveFirst
Sheet1.Range("E1").CopyFromRecordset rsGzb
.Save
.Close
End With
Set rsGzb = Nothing
End Sub

复制代码

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

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

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

sunsoncheng · 发表于 2009-6-24 08:27

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

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

现在的问题是这段:

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

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

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

lbpp · 发表于 2009-6-24 19:00

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

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

现在的问题是这段:

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

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

Const sSAVE_FILE_NAME As String = "\UpdateDbTest"
Const sHOST As String = "localhost"
Const sDB_NAME As String = "lbpp"
Const sUSER_NAME As String = "sa"
Const sPASSWORD As String = "!@#lbpp"
Sub RstSave2File()
Dim cn As ADODB.Connection
Dim sSqlCommand As String
sSqlCommand = "select * from jb"
'建立连接
Call ConnectDB(cn, SQL_Server, sHOST, sDB_NAME, sUSER_NAME, sPASSWORD)
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sSqlCommand, cn, adOpenStatic, adLockBatchOptimistic
rs.Save ThisWorkbook.Path & sSAVE_FILE_NAME
Set rs.ActiveConnection = Nothing
Call CloseConnect(cn)
rs.Close
Set rs = Nothing
End Sub
Sub ReadFile_UpdateDB()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.Open ThisWorkbook.Path & sSAVE_FILE_NAME, , adOpenStatic, adLockBatchOptimistic, adCmdFile
.AddNew Array("gh", "xm", "jb"), Array("3456", "李四", 100.38)
.Update
Call ConnectDB(cn, SQL_Server, sHOST, sDB_NAME, sUSER_NAME, sPASSWORD)
'=============== 恢复连接 ================
rs.ActiveConnection = cn
rs.UpdateBatch
.Close
End With
Set rs = Nothing
End Sub

复制代码

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

lbpp · 发表于 2009-8-13 15:34

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

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

何彪 · 发表于 2009-8-13 15:52

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

lbl016 · 发表于 2009-8-13 15:55

谢谢楼主分享....

		自动登录	找回密码
密码			免费注册

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