高手帮忙看看，两种查询方式有什么区别，那种更快，鲜花感谢

geniux

1. 刚接触ACEESS和SQL，数据量十万条左右，在论坛学习了，这两种查询方式。但是，查询速度不满人意。自己测试了一下，速度不稳定，两个时快时慢。也不知道区别在哪里。望大家解析一下。

复制代码

geniux

1. Function Find_Data(Record_Time As String, Table_num As String, Channel As String)
   
2.     If Len(Record_Time) < 11 Or Channel = Empty Then
   
3.         Find_Data = "" '时间不完整直接停止执行，提高速度
   
4.         Exit Function
   
5.     End If
   
6.     Dim RS1 As Recordset
   
7.     Dim DB1 As Database
   
8.     Set DB1 = OpenDatabase("D:\Users\li.runbai\Desktop\Access项目\Temperature.mdb")
   
9.     Set RS1 = DB1.OpenRecordset(Name:="表" & Table_num, Type:=dbOpenDynaset)
   
10.     RS1.FindFirst "时间=" & "'" & Record_Time & "'"
    
11.          If RS1.NoMatch = True Then
    
12.          Find_Data = -1
    
13.          RS1.Close
    
14.          Exit Function
    
15.          Else
    
16.              Find_Data = RS1.Fields(Channel).Value
    
17.          End If
    
18.     RS1.Close
    
19.     Set RS1 = Nothing
    
20.     Set DB1 = Nothing
    
21. End Function
    
22. Function Find_Data_SQL(Record_Time As String, Table_num As String, Channel As String)
    
23.     If Len(Record_Time) < 11 Or Channel = Empty Then
    
24.         Find_Data_SQL = "" '时间不完整直接停止执行，提高速度
    
25.         Exit Function
    
26.     End If
    
27.     Dim Cnn As New ADODB.Connection                     '定义数据库类变量
    
28.     Dim rst As New ADODB.Recordset
    
29.     Dim Stpath, strSQL As String                        '定义长整形变量
    
30.     Dim icols, a As Integer                             '定义数字变量
    
31.     Stpath = "D:\Users\li.runbai\Desktop\Access项目\Temperature.mdb"   '获取数据库路径，此处为与该excel表在同目录下
    
32.     Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"
    
33.     strSQL = "Select " & "*" & " from 表" & Table_num & " WHERE " & "时间 = '" & Record_Time & "' "
    
34.    
    
35.     Debug.Print strSQL
    
36.     rst.Open strSQL, Cnn
    
37.    
    
38.     If rst.EOF Or rst.BOF Then
    
39.           Find_Data_SQL = -1
    
40.     Else
    
41.           Find_Data_SQL = rst.Fields(Channel).Value
    
42.     End If
    
43.    
    
44.     rst.Close
    
45.     Set rst = Nothing
    
46.     Set Cnn = Nothing
    
47. 
    
48. End Function

复制代码

geniux

代码如下，两个函数

zpy2

查询速度不满人意。自己测试了一下，速度不稳定，两个时快时慢。
快也不满意？
慢就要具体问题具体分析了
你的代码我看了，区别不大，但是不会出现 你说的情况

geniux

zpy2 发表于 2020-1-17 12:22
查询速度不满人意。自己测试了一下，速度不稳定，两个时快时慢。
快也不满意？
慢就要具体问题具体分析了 ...

嗯嗯，其实速度还是很慢啊，一秒才10几条，数量少的时候，速度差不多。请教一下。这两种方式有什么区别？另外，一次连接，多次查询，和单次连接，单次查询，速度貌似没什么变化。为什么呢？

zpy2

geniux 发表于 2020-1-17 13:43
嗯嗯，其实速度还是很慢啊，一秒才10几条，数量少的时候，速度差不多。请教一下。这两种方式有什么区别？ ...

一秒才10几条，啥意思？前端界面渲染慢？你看看下面，用浏览器渲染是不是快点

ABC5258

geniux 发表于 2020-1-17 13:43
嗯嗯，其实速度还是很慢啊，一秒才10几条，数量少的时候，速度差不多。请教一下。这两种方式有什么区别？ ...

where字段有没有索引？

geniux

ABC5258 发表于 2020-1-17 19:39
where字段有没有索引？

还真没有，建了索引，测试了一下。速度提高了一倍多。感谢