关于视图来源的窗体查询效率问题

珲　发表于：2016-10-12 22:46:23 　

我有一个查询窗体，数据来源是SQL2000下的视图，局域网连接。

窗体打开默认是显示视图所有数据的，查询时发现速度很慢，请各位老师帮我分析下是不是我的代码有问题，看怎么优化。

如果设置成打开默认不加载，通过VBA指定数据来源查询速度会不会快呢？

视图2万条左右数据，以左连接3个表形成，服务器上打开速度很快。

我的查询代码：

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.text1) Then
        strWhere = strWhere & "([病历号] like '*" & Me.text1 & "*') AND "
    End If
    
    If Not IsNull(Me.text2) Then
        strWhere = strWhere & "([姓名] like '*" & Me.text2 & "*') AND "
    End If
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    Me.基本信息子窗体.Form.Filter = strWhere
    Me.基本信息子窗体.Form.FilterOn = True

附上示例文件，帮忙优化一下，谢谢

文件中我把视图换成表了，复制了几条数据。

点击下载此附件

Top

zhaoyoulong 发表于：2016-10-13 07:39:21

问题应该不在代码上，压缩修复一下数据库看看

Top

西出阳关无故人发表于：2016-10-13 09:37:03

试一下:

窗体打开时，不要加载全部数据到窗体。

点击查询后，也不用窗体筛选来体现查询结果。而是设置子窗体的数据源为有条件的查询。

Private Sub clear_Click()
Me.text1 = Null
Me.text2 = Null
Me.基本信息子窗体.Form.RecordSource = "select * from 基本信息 where 1=0"
End Sub

Private Sub search_Click()
On Error GoTo Err_search_Click

Dim strWhere As String
strWhere = ""
If Not IsNull(Me.text1) Then
strWhere = strWhere & "([病历号] like '*" & Me.text1 & "*') AND "
End If

If Not IsNull(Me.text2) Then
strWhere = strWhere & "([姓名] like '*" & Me.text2 & "*') AND "
End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If
Me.基本信息子窗体.Form.RecordSource = "select * from 基本信息 " & IIf(Len(strWhere) > 0, " where " & strWhere, "")
'Me.基本信息子窗体.Form.FilterOn = True

Exit_search_Click:
Exit Sub

Err_search_Click:
MsgBox Err.Description
Resume Exit_search_Click
End Sub

Top

珲发表于：2016-10-14 09:54:11

谢谢楼上的

我把查询条件前面的*去掉快多了

Top

KevinFan 发表于：2016-10-17 20:12:57

加了*号是模糊查找，肯定慢多了。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

关于视图来源的窗体查询效率问题