找個好的算法(數據庫)

[MyLf]

我用代碼事理數據庫,用一個標準數據庫和一個待整理的數據庫作比較(待整理的數據庫有可能少表,也有可能少字段):
'分別用Tb1,Tb2枚舉標準,待整理數據庫中的表
Dim Tb1 As ADOX.Table
Dim Tb2 As ADOX.Table
Dim Tb As String
Dim FD As String
Dim Co1 As ADOX.Column
Dim Co2 As ADOX.Column
Dim blnCExit As Boolean '字段是否存在
'........
For Each Co1 In Tb1.Columns '檢測字段有無
FD = LCase(Co1.Name)
blnCExit = False
For Each Co2 In Tb2.Columns
If LCase(Co2.Name) = FD Then
blnCExit = True
Exit For
End If
Next
If blnCExit = False Then
'少字段則.....
End if
Next
大家看到這是個雙重循環,有沒有比這個好的算法?

還有個問題: 可用分最高到多少, 我現在有2000多分,好像不見長了

[MyLf]

打錯了,是"用代碼整理數據庫"

[ferrytang]

为什么不直接比对系统信息表呢!?

[MyLf]

To:ferrytang(ferry) 怎麼去對比呢?還不是要用記錄集打開系統信息表，然後用Find查找有沒有某個字段,我原來是這樣作的，但發現比這更慢，Find方法太慢了，几個表看不出，要是有一百多個表就很明顯了（很不幸，我的就有一百多個）
To:JimXiang(吉祥) 你的最后句話已說明了可行性，不管怎樣還得謝謝你

[JimXiang]

提一点，你在一个字段比较前，先比较表中的字段个数。不过这样不能判断字段名是否正确。

[MyLf]

我的問題沒人感興趣還是沒有別的辦法?

[MyLf]

問題我自己解決了,不管怎樣,還得謝謝兩位