我如何提高数据库数据访问效率？马上结分！

[htjuw]

我使用追捕的数据库写了一个根据ip查地区的程序，我是这样实现的：
我将得到的ip以小数点为节分为四段，转换类型为int，同样的将startip和endip转换，变量名如下：
m1,m2,m3,m4
s1,s2,s3,s4
e1,e2,e3,e4
如果满足(m1>=s1 and m1<=e1 and m2>=s2 and m2<=e2 and m3>=s3 and m3<=e3 and m4>=s4 and m4<=e4)则取出地区字符串，跳出，否则继续循环，取出下一条记录比较

这样虽然能够实现，但速度实在是太慢了，有没有好的办法提高效率？

[dbcontrols]

IFF

[valhallen]

加索引
快很多

[dbcontrols]

优化程序速度
速度是程序的命，如果您的软件再好，但运行速度很慢，那么您将失去用户耐心。VB6在操纵数据库方面做的很出色，但操纵表的还是用SQL语句快，好在VB6的DAO对象、ADO对象和数据环境、ADO控件都可以使用SQL语句，但怎么提高数据操纵速度呢？建立索引当然是最基本的要求，除此之外呢？有没有其他的方法？第一VB论坛(http://www.d1vb.com)的网友经常提出这个问题，这里我告诉您几种优化的方法：
一、表的设计
当在表中添加字段的时候,应该选择长度最小的数据类型,这样表在内存中每页可以存储更多的记录。如：“姓名”字段一般设置为TEXT类型，长度为10一般就够用，则比默认的255要好的多。整型Integer的长度是2，在使用整型Integer就可以解决问题的地方不要使用Single、Long、Double、Currency，因为它们的长度分别为４、４、８、８，都比２大。在建立表后一定要建立索引，这可以大大提高查询速度，是提高速度最基本的要求。
二、压缩数据库
JET数据库的查询优化是有代价的，随着数据库的不断扩大，优化将不再起作用。压缩数据库会改变数据库的状态，并重新优化所有查询。同时，随着数据库的增大，会产生很多碎片。而压缩数据库可以把一个表中的数据数据写到硬盘中连续的页里，提高了顺序搜索的速度。
压缩数据库使用CompactDatabase命令，下面的语句压缩数据库并产生一个数据库备份：
DBEngine.CompactDatabase “C:\VB\BIBLIO.MDB”, “C:\VB\BIBLIO2.MDB”
Kill “C:\VB\BIBLIO.BAK” Name “C:\VB\BIBLIO.MDB” As “C:\VB\BIBLIO.BAK”
Name “C:\VB\BIBLIO2.MDB” As “C:\VB\BIBLIO.MDB”
注意，如果数据库很大的话，可能需要整夜的时间来压缩数据库。
三、避免查询输出里面多余的计算
当查询的结果作为另外一个查询的数据源的时候，可能引起查询优化问题。在这个时候第一次查询里面尽量避免大量的计算。在如下示例中，Query1是第一个查询的结果，然后它作为第二个查询的数据源。
Dim DB As Database
Dim RS As RecordSet
Set DB = DBEngine.Workspaces(0).Opendatabase(“Biblio.MDB”)
DB.CreateQueryDef(“Query1”, _
“SELECT IIF(Au_ID=1,’Hello’,’Goodbye’) AS X FROM Authors”)
Set RS = DB.OpenRecordSet(“SELECT * FROM Query1 WHERE X=’Hello’”)
由于在第一个查询Query1中的IIF()表达式不能被优化，，所以在第二个查询中的WHERE子句也不能被优化。如果一个表达式在一个查询树中埋藏的很深的话，则这个查询不可被使用，它是不可优化的。
如果可能的话，把这个SQL语句合并为一个没有嵌套的SQL语句：
Set RS = DB.OpenRecordSet(“SELECT * FROM Authors WHERE Au_ID=1”)
对于更灵活的嵌套查询，尽量在SQL语句中使用字段名，如：
DB.CreateQueryDef(“Query1”, _
“SELECT IIF(Au_ID=1,’Hello’,’Goodbye’) AS X, Au_ID, FROM Authors”)
Set RS = DB.OpenRecordSet(“SELECT * FROM Query1 WHERE Au_ID=1”)
如果在查询输出中实在无法避免计算式的话，尽量把计算式放在最外层，不要放在最内层。
四、只输出需要的字段
在建立查询的时候，仅返回需要的字段，这样可以节省不必要的开支。如果某个字段不是你需要的，不要在查询语句中出现。上面的事例正说明了这个问题。
五、分组、合并及汇总
这里要说明的主要是合并，当你需要把两个表合并，就是说：当你要根据“Customer Name”对两个表进行合并，要肯定GROUP BY field (Customer Name)和汇总(Sum, Count, and 等)的字段是来自同一张表。
例如：下列语句优化性较差，因为SUM子句来自Ord表，而GROUP BY子句来自Cust表：
SELECT Cust.CustID,
FIRST(Cust.CustName) AS CustName,
SUM(Ord.Price) AS Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
GROUP BY Cust.CustID
如果按照Ord.CustID分组，查询性能就好的多了：
SELECT Ord.CustID,
FIRST(Cust.CustName) AS CustName,
SUM(Ord.Price) AS Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
GROUP BY Ord.CustID
六、尽量减少分组的字段
SQL语句中分组（GROUP BY）的字段越多，执行查询的时间越长。在GROUP BY子句中尽量用aggregate函数来减少字段的数量。
如：
GROUP BY As Few Fields As Possible
SELECT Cust.CustID,
Cust.CustName,
Cust.Phone,
SUM(Ord.Price) AS Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
GROUP BY Cust.CustID, Cust.CustName, Cust.Phone
可以改为：:
SELECT Ord.CustID,
FIRST(Cust.CustName) AS CustName,
FIRST(Cust.Phone) AS Phone,
SUM(Ord.Price) AS Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
GROUP BY Ord.CustID
七、在合并之前嵌套GROUP BY子句
如果要合并两张表，而且只在一张表中分组，把查询分为两个SELECT语句要快的多。
如：
SELECT Ord.CustID,
FIRST(Cust.CustName) AS CustName,
FIRST(Cust.Phone) AS Phone,
SUM(Ord.Price) AS Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
GROUP BY Ord.CustID
可改为：
查询1:
SELECT CustID, SUM(Price) AS Total
FROM Ord
GROUP BY CustID
查询2:
SELECT Query1.CustID, Cust.CustName, Cust.Phone, Query1.Total
FROM Cust INNER JOIN Ord ON Cust.CustID = Ord.CustID
八、在合并的时候两边的字段都设置索引
在合并表的时候，尽量使两边的字段都设置索引。这在执行查询的时候查询优化器可以更多的使用sophisticated 内部合并策略。
当然，在关系型数据库中，表要设计的尽量小，（最好1-2K页），这样删除表的索引的时候要快的多，这是因为内存中读入了很少的页。这需要根据实际情况多次测试。
九、添加索引来提高查询和排序的速度
为合并或查询条件中的所有使用字段建立索引。Microsoft Jet 2.0极其以后版本的数据库引擎使用使用了Rushmore查询优化技术，因此支持一张表的复合索引。
要尽量避免在查询条件中进行计算或在查询条件中使用未索引的字段。排序更是如此，绝对要避免计算或使用未索引的字段。
十、使用可优化的表达式
重新构造查询语句，以便于Rushmore技术可以对其进行优化。Rushmore是一种数据访问技术，使用它可以提高记录集的查询速度。使用Rushmore的时候，若在查询条件中使用具体类型的表达式，查询速度将非常快。Rushmore不会自动为你的查询提高速度，你必须按照具体的方法修改查询语句，以便于Rushmore可以优化它们。
十一、用COUNT(*)代替 COUNT([Column Name])
Microsoft Jet数据库引擎有特别的优化方法，它在使用COUNT(*)要比用COUNT([Column Name])快得多。
注意，这两个运算符是有差别的：
Count(*) 计算所有的行。
Count([Column Name])计算所有Column Name非空的行。
十二、在变量中避免使用LIKE
由于在查询完成的时候变量的值不确定，所以无法使用索引，这样，建立的索引就失去了意义，这就严重制约着查询速度。
十三、避免LIKE和统配符同时使用
如果要把LIKE运算符同统配符一起使用，为了使用索引，必须把统配符放在后面。
如，下列语句利用了索引。
Like "Smith"
Like "Sm*"
而下列语句根本没有使用索引：
Like "*sen"
Like "*sen*"
十四、测试合并约束
如果要在合并中使用表达式约束一个字段的数值，需要测试表达式放在合并的一侧，还是其他地方，看哪种查询的速度较快。在一些查询中，表达式放在合并关键词join一侧反而比较快。
十五、使用中间结果表
用SELECT INTO建立工作表，尤其是结果集用于几个查询的时候，尽量使用中间结果表。在查询前做的准备工作越多，查询速度越快。
十六、避免子SELECT语句和NOT IN同时使用
子SELECT语句和NOT IN同时使用很难优化，取反嵌套的查询或OUTER JOINs影响很大。
下列事例查询不在orders表中的用户：
优化前：
SELECT Customers.*
FROM Customers
WHERE Customers.[Customer ID]
NOT IN (SELECT [Customer ID] FROM Orders);
优化后：
SELECT Customers.*
FROM Customers LEFT JOIN Orders
ON Customers.[Customer ID] = Orders.[Customer ID]
WHERE ((Orders.[Customer ID] Is Null));

[feihong0233]

SELECT [地区字段] FROM [表] WHERE (m1 BETWEEN s1 AND e1) AND (m2 BETWEEN s2 AND e2) AND (m3 BETWEEN s3 AND e3) AND (m4 BETWEEN s4 AND e4)

[valhallen]

还是泰山厉害 佩服~
不仅仅是5T投地了 是全身都嵌到地里了 哈哈
不过有句忠告 你的行为谁都可以看的到 没必要为了一些事生气
干吗啊？大家都是来这里学习 没一个愿意来这里怄气
别理会旁人怎么说 只谈技术 ~~~

[dbcontrols]

参考

If Asc(a1) < 0 Then
t1 = Left(a1, 1)
If Asc(t1) < Asc("啊") Then
GetPY = "0"
Exit Function
End If
If Asc(t1) >= Asc("啊") And Asc(t1) < Asc("芭") Then
GetPY = "A"
Exit Function
End If
If Asc(t1) >= Asc("芭") And Asc(t1) < Asc("擦") Then
GetPY = "B"
Exit Function
End If
If Asc(t1) >= Asc("擦") And Asc(t1) < Asc("搭") Then
GetPY = "C"
Exit Function
End If
If Asc(t1) >= Asc("搭") And Asc(t1) < Asc("蛾") Then
GetPY = "D"
Exit Function
End If
If Asc(t1) >= Asc("蛾") And Asc(t1) < Asc("发") Then
GetPY = "E"
Exit Function
End If
If Asc(t1) >= Asc("发") And Asc(t1) < Asc("噶") Then
GetPY = "F"
Exit Function
End If
If Asc(t1) >= Asc("噶") And Asc(t1) < Asc("哈") Then
GetPY = "G"
Exit Function
End If
If Asc(t1) >= Asc("哈") And Asc(t1) < Asc("击") Then
GetPY = "H"
Exit Function
End If
If Asc(t1) >= Asc("击") And Asc(t1) < Asc("喀") Then
GetPY = "J"
Exit Function
End If
If Asc(t1) >= Asc("喀") And Asc(t1) < Asc("垃") Then
GetPY = "K"
Exit Function
End If
If Asc(t1) >= Asc("垃") And Asc(t1) < Asc("妈") Then
GetPY = "L"
Exit Function
End If
If Asc(t1) >= Asc("妈") And Asc(t1) < Asc("拿") Then
GetPY = "M"
Exit Function
End If
If Asc(t1) >= Asc("拿") And Asc(t1) < Asc("哦") Then
GetPY = "N"
Exit Function
End If
If Asc(t1) >= Asc("哦") And Asc(t1) < Asc("啪") Then
GetPY = "O"
Exit Function
End If
If Asc(t1) >= Asc("啪") And Asc(t1) < Asc("期") Then
GetPY = "P"
Exit Function
End If
If Asc(t1) >= Asc("期") And Asc(t1) < Asc("然") Then
GetPY = "Q"
Exit Function
End If
If Asc(t1) >= Asc("然") And Asc(t1) < Asc("撒") Then
GetPY = "R"
Exit Function
End If
If Asc(t1) >= Asc("撒") And Asc(t1) < Asc("塌") Then
GetPY = "S"
Exit Function
End If
If Asc(t1) >= Asc("塌") And Asc(t1) < Asc("挖") Then
GetPY = "T"
Exit Function
End If
If Asc(t1) >= Asc("挖") And Asc(t1) < Asc("昔") Then
GetPY = "W"
Exit Function
End If
If Asc(t1) >= Asc("昔") And Asc(t1) < Asc("压") Then
GetPY = "X"
Exit Function
End If
If Asc(t1) >= Asc("压") And Asc(t1) < Asc("匝") Then
GetPY = "Y"
Exit Function
End If
If Asc(t1) >= Asc("匝") Then
GetPY = "Z"
Exit Function
End If
Else
If UCase(a1) <= "Z" And UCase(a1) >= "A" Then
GetPY = UCase(Left(a1, 1))
Else
GetPY = "0"
End If
End If
End Function

[riyueming]

up

[htjuw]

多谢你泰山！

我想再问一下，我刚开始学电脑两个月的时间，我不会vb，我现在学习c#，但我感觉语言不重要，关键是算法，所以说如果我用c#实现你的算法是应该一样吧？

顺便说一句，我也看到你和巴顿的争执了，我不评论谁是谁非，只是希望大家互相帮助（虽然我现在帮不了你什么忙^_^）,不要吵架，其实我就是冲vb论坛高手多才来这里发贴的，你的代码我基本看得懂！再次表示感谢！

再顺便问一句，ado.net的执行效率和ado差不多吧？？