比較VB6

Question

HI兩家唱片集，

我在VB6兩個記錄RS1和RS2。我想比較rs1中的每條記錄與rs2中的每條記錄。如果rs1中的rtn（列）與rs2.t中的rtn中的相同，則set date = now和claim = c。

這就是我想要做的。如何比較rs1中的每一行與rs2中的每一行。幫幫我吧。

Answer 1

只是環比都的記錄在一個內部循環和外循環類似於以下

rs1.MoveFirst 
While not rs1.EOF 
    rs2.MoveFirst 
    While not rs2.EOF 
     'Do your comparisons here' 
     if rs1("colum").value = rs2("column").value then 
      'do other stuff 
     end if 
     rs2.MoveNext 
    Wend 
rs1.MoveNext 
Wend 

如果您需要在每個你可以遍歷類似於以下 領域領域比較這個假設的記錄有以相同的順序

Dim i as integer 
for i = 0 to rs1.Fields.Count -1 
    if rs.fields(i).Value = rs2.fields(i).value then 
     'DO other stuff' 
    End if 
Next i 

Answer 2

同一領域一個更好的解決辦法是做在Query/SQL，而不是使得每行不匹配，從一個單一的查詢返回的代碼進行比較。

例如

SELECT T1.*,T2.* 
FROM T1,T2 
WHERE (T1.ID=T2.ID) AND 
    ((T1.Field1<>T2.Field1) OR (T1.Field2<>T2.Field2) ...)