Dim MyDB As Database
Dim MyRecordSet As Recordset
Dim path As String
Dim sql As Stringsql = "Select * From AutoData Where Comment = '" & Well_Name & "' and Record_Index >= " & Str(Index_Start) & "and Record_Index <=" & Str(Index_End)
path = App.pathSet MyDB = OpenDatabase(path & "\xyrep.mdb")Set MySet = MyDB.OpenRecordset(sql, dbOpenDynaset)
"XYREP.MDB"这个数据库(access 97)中有30万条数据,用上面方法查询很慢。用DNS方法来搞更慢,比我直接打开文件还慢,希望各位能提供更快的方法。

解决方案 »

  1.   

    将字段Comment和Record_Index设索引,另外最好设有主键,
    如果还有问题,工程发给我,我帮你调 [email protected]
      

  2.   

    access本来属于桌面应用啊实在不行可以filemapping到内存中读写可能会快些
      

  3.   

    那个文件是以前的人留下来的,我看了下,里边就是comment这个字段的"索引" 选择的是“有(重复)”,用ACCESS 2003打开的,无法修改RECORD_INDEX的索引这个选项。
      

  4.   

    sql = "Select * From AutoData Where Comment = '" & Well_Name & "' and Record_Index  between  " & Index_Start & " and  " & Index_End
      

  5.   

    楼主的数据库是老版本,想修改索引,需要先转换为现在的版本,改后再转换为以前的版本
    工具>数据库实用工具>转换数据库
      

  6.   

    关注,我也在搞关于ACCESS数据库程序,我的数据库里面只有1W多条数据,怎么都那么慢呢,我设置了索引的啊,我看其他人说压缩可以提高速度,是不是真的,如何在代码里写?