紧急！！！为什么这样写的代码不行？关于数据库数据判断的问题

Question

试试这样
For i = 0 To rsSource.Fields.Count - 1
        If rsSource(i) <> rsdes1(i) Then
              check(i) = True
        Else
              check(i) = False
        End If
Next

Answer 1

smae()　：不行啊！还有没有大虾来捧场？？

Answer 2

Public Function cmpdata(rsSource As ADODB.Recordset, rsdes1 As ADODB.Recordset) As Boolean
Dim strsource As String
Dim strdes As String
Dim i As Integer
For i = 0 To rsSource.Fields.Count - 1
    If rsSource(rsSource(i).Name) <> rsdes1(rsSource(i).Name) Then
        cmpdata = True
        exit function
    end if
Next
End Function

Answer 3

呵呵，让我笨蛋来试下啦，
a=select count(*) from table1 join table2
b=select count(*) from table1
if a=b then 
     ok
end if
好象是这样吧

Answer 4

笨方法：用getrows把整个表读出来，再逐个字节比较