技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 技巧 > ACCESS数据库
ACCESS数据库

ACCESS的真假：一、DROP删除表再重建比Delete from Table1快吗？

正　文:

    有时候当我们需要把表中记录全部删除的时候，在很多数据库系统中我们会习惯性选择用truncate table 来实现，truncate table 在很多DBMS中是认为DDL语句，等同于drop table 然后再create table. 速度效率上一般认为远比delete from table高得多。

    虽然Drop table 和 delete 没什么可比性，有些类似于去拿 insert 和 select 比较，本身二者之间没有什么可替代性。 drop+create 只能与 delete from tbl; 功能上相通，并且要求在这个表上没外键参照。在实际系统中也很少会设计出需要delete from tbl没有任何条件的全部删除情景。能想到的只有某些时候会用一些临时表来处理数据，不过既然是临时表，一般是用完就删除了，也不需要用delete from tbl;

    不地仍是对这个观点感觉怀疑，所以做了个测试以求证。

求证： access中DROP删除表再重建比Delete from Table1快

    不过还是设计了下面的测试方案。表table1中有1万条记录，(如果嫌少可以影响测试结果大家可以自己调整一下试试贴出结果。) 然后复制成1000这样相同的表。分别用drop / create 和delete对比测试。由于在同一机器上做对比测试，所以理论上在其它不同环境下（不同CPU速度，不同内存，。。。）应该会是相同的相对结果。


view plaincopy to clipboardprint?
  1. Option Compare Database   
  2. Option Explicit   
  3.   
  4. Public Sub ti()   
  5.     Dim ssql As String  
  6.     Dim conn As ADODB.Connection   
  7.     Set conn = CurrentProject.Connection   
  8.        
  9.     ssql = "create table table1(id integer,cname char(10))"  
  10.     conn.Execute ssql   
  11.        
  12.     Dim i As Integer  
  13.     For i = 1 To 10000   
  14.         ssql = "insert into table1(id,cname) values(" & i & ",'" & i & "')"  
  15.         conn.Execute ssql   
  16.         DoEvents   
  17.     Next i   
  18.   
  19. End Sub  
  20. Public Sub tx()   
  21.     Dim ssql As String  
  22.     Dim conn As ADODB.Connection   
  23.     Set conn = CurrentProject.Connection   
  24.        
  25.     Dim i As Integer  
  26.     On Error Resume Next  
  27.     For i = 1 To 1000   
  28.         ssql = "drop table t" & (10000 + i)   
  29.         CurrentProject.Connection.Execute ssql   
  30.     Next i   
  31.     On Error GoTo 0   
  32.        
  33.     For i = 1 To 1000   
  34.         ssql = "select * into t" & (10000 + i) & " from table1"  
  35.         conn.Execute ssql   
  36.         DoEvents   
  37.     Next i   
  38.        
  39. End Sub  
  40.   
  41. Public Sub t1()   
  42.     Dim ssql As String  
  43.     Dim i As Integer  
  44.        
  45.     For i = 1 To 1000   
  46.         ssql = "drop table t" & (10000 + i)   
  47.         CurrentProject.Connection.Execute ssql   
  48.         ssql = "create table t" & (10000 + i) & " (id integer,cname char(10))"  
  49.         CurrentProject.Connection.Execute ssql   
  50.     Next i   
  51. End Sub  
  52.   
  53. Public Sub t2()   
  54.     Dim ssql As String  
  55.     Dim i As Integer  
  56.        
  57.     For i = 1 To 1000   
  58.         ssql = "delete from t" & (10000 + i)   
  59.         CurrentProject.Connection.Execute ssql   
  60.     Next i   
  61. End Sub  
  62.   
  63. Public Sub t()   
  64.        
  65.     Call tx   
  66.     Debug.Print "t1 start.", Now   
  67.     Call t1   
  68.     Debug.Print "t1 end  .", Now   
  69.        
  70.        
  71.     Call tx   
  72.     Debug.Print "t2 start.", Now   
  73.     Call t2   
  74.     Debug.Print "t2 end  .", Now   
  75. End Sub  

 

测试结果

t1 start.    5/15/2009 8:03:12 PM
t1 end  .    5/15/2009 8:03:16 PM
t2 start.    5/15/2009 8:03:31 PM
t2 end  .    5/15/2009 8:03:33 PM

测试结论
T2() 耗时 < T1() 耗时, 测试结果再一次与猜想背离。


发布人:ACMAIN_C…-blog.csdn.net  
分享到：
点击次数：  更新时间：2009-10-15 08:46:42  【打印此页】  【关闭】
上一条：Access VBA教材-1  下一条：条件选择列求和


相关文章

热门文章

热门产品