求助:外网访问速度,原来不是网速的问题!

sunsoncheng

终于做成了从外网访问公司里的SQL2000,太高兴了!

但速度太慢!给个我写的程序给大家看下,能否指出慢的原因,速度差了10~20倍!

谢

不服气将每个工作的时间作了记录,如下:

Private Sub UserForm_Initialize()           '初始化
On Error GoTo 9
        Dim arr, StrSql$, i&, j&
        Dim ooo!, aaa!, Msg$
        aaa = Timer:        ooo = Timer
        单号 = "" '确保不要出现以前的情况砂
       
        If CNN.State = 0 Then CNN.Open pthStr1 '找出最近一星期内完成的客户及单号工程及状态
        Msg = Msg & "\连接时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
       
       
        StrSql = " Select  客户 ,单号 ,输入日期  ,工程,总片数,总面积 ,完成日期 from 单资料  WHERE  完成日期>'" & Date - 7 & "' or  完成日期 is null "
       
        Set RS1 = Nothing
        Set RS1 = CreateObject("ADODB.Recordset")       '目标:不用引用!
       
        Msg = Msg & "\定义记录集时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
      
      
        RS1.Open StrSql, CNN, 1, 1, 1
       
        Msg = Msg & "\打开记录集时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
       
       
        Dim Mycollection As New Collection, A           '将唯一性加入
        Arr_Row = RS1.RecordCount
        Arr_Col = RS1.Fields.Count
        ReDim Arr_rs(0 To Arr_Row, 1 To Arr_Col)
       
        Msg = Msg & "\定义集合与数组的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
       
        For j = 1 To Arr_Col: Arr_rs(0, j) = RS1.Fields(j - 1).Name: Next '记录表头
       
        Msg = Msg & "\产生表头的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
       
        For i = 1 To Arr_Row
            For j = 1 To Arr_Col
                If IsNull(RS1.Fields(j - 1)) Then Arr_rs(i, j) = "" Else Arr_rs(i, j) = RS1.Fields(j - 1)
            Next
            RS1.MoveNext
        Next
        Set RS1 = Nothing
       
        Msg = Msg & "\将记录集存放在数组内的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
       
       
        On Error Resume Next
        For i = 1 To Arr_Row
            A = Arr_rs(i, 1)
            Mycollection.Add A, CStr(A)
        Next
        Err.Clear: On Error GoTo 0
       
        Msg = Msg & "\形成集合唯一性的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer
      
       
        ReDim arr(1 To Mycollection.Count, 1 To 2)
       
        For i = 1 To UBound(arr)
            arr(i, 1) = Mycollection.Item(i)
            arr(i, 2) = 1
        Next
        Set Mycollection = Nothing
        Call Initpage(arr)
        TreeView1.Sorted = True              '排列顺序
        TreeView1.SetFocus
       
        Msg = Msg & "\形成树形的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
       
       
        MsgBox Msg & "总时间为:" & Format(Timer - aaa, "0.00") & "S  OK  可以查询了!"
        Exit Sub
9:
      MsgBox Err.Description & "  多是上不了网的问题,再试试吧"
     
End Sub

一直以为是网速的问题,于是就将所有的过程都加了一个计时器,最后发现,最耗时间的地方是在

 For i = 1 To Arr_Row
            For j = 1 To Arr_Col
                If IsNull(RS1.Fields(j - 1)) Then Arr_rs(i, j) = "" Else Arr_rs(i, j) = RS1.Fields(j - 1)
            Next
            RS1.MoveNext
        Next
        Set RS1 = Nothing
       
        Msg = Msg & "\将记录集存放在数组内的时间:" & Format(Timer - ooo, "0.00") & "S" & Chr(10)
        ooo = Timer

总时间在28S的初始化工作,却在上面的花了23S,与想象的网速完全不是一回事!

即如下面兄弟说的用了  getrows   也不能快点点

再请高手们指示一下

多谢了

[此贴子已经被作者于2007-6-26 10:47:08编辑过]

lbpp

ADO的代码别人比较难找原因，因为不好调试。

我看了一下，觉得用

        For i = 1 To Arr_Row
            For j = 1 To Arr_Col
                If IsNull(RS1.Fields(j - 1)) Then Arr_rs(i, j) = "" Else Arr_rs(i, j) = RS1.Fields(j - 1)
            Next
       
            A = RS1("客户")
            Mycollection.Add A, CStr(A)
            RS1.MoveNext
        Next
通过两重循环来把数据存入数组效率太低，楼主可以去看一下getrows方法，好像可以把一个recordset直接存入数组，如果那样的话应该对提高速度有所帮助。

由于对collect对象不太熟悉，只大概了解了一下一般都是用于消除重复。我不了解为不在SQL语句中直接用distinct来直接去除重复？

sunsoncheng

现在还有一个状况,就是时好时坏,经测试最快只用10S就连上了,有时要1分多钟,有时却只是提示一般性网络错误!

这种情况总是说网络,或硬件有问题行吗?

单从语句的角度来说,再做更改可能也只是1~2S之间的差别,

所以本人还以为是有些东西可能未做好导致的!

请各位高手再指点

谢

热浪2006

QUOTE:

以下是引用sunsoncheng在2007-6-25 13:01:39的发言：

现在还有一个状况,就是时好时坏,经测试最快只用10S就连上了,有时要1分多钟,有时却只是提示一般性网络错误!

这种情况总是说网络,或硬件有问题行吗?

单从语句的角度来说,再做更改可能也只是1~2S之间的差别,

所以本人还以为是有些东西可能未做好导致的!

请各位高手再指点

谢

读外网数据库，最好采用复制到本地硬盘后读取，这样一旦复制成功后读取非常快，即便复制成功后断网也无妨。用后再删除。

sunsoncheng

你说得对!前天我就犯了这个错,昨天改过来的,但总不将整个数据库copy过来吧?

最多只是将记录集处理在数组中而已

现在的测试中发现,就是第一次读取记录集时出现问题

谢谢楼上的回复

再请教

sunsoncheng

谢各位老师再来指点一下!

sunsoncheng

补充一点:

记录集的行为数512行

机器配置为XP+2000内存为512M

按说怎么都不会慢的!偏偏就在没想到的角落出了事!

唉

sunsoncheng

经自己的多次测试

原来将记录集赋值到数组的方式,最快的是全部copyfromcordset到工作表再将已用范围赋值,对我上面的例子速度是约5~10倍!

YANGYUNHAO

怎么样联接，不会，有没有哪个老师可以指导一下