vergleichen Sie zwei Datensätze in vb6

HALLO,

Habe ich zwei recordsets rs1 und rs2 in vb6. ich möchte vergleichen, die jeden Datensatz in rs1 mit jedem Datensatz in rs2. Wenn rtn(Spalte) in rs1 ist die gleiche wie in rtn in rs2.dann set Datum = now und behaupten = c.

Dies ist, was ich wan zu tun. Wie vergleichen die einzelnen Zeilen in rs1 mit jeder Zeile in rs2. Pls Help me.

InformationsquelleAutor pbrp | 2009-12-07

  1. 1

    Nur Schleife über beide recordsets in eine innere und äußere Schleife, die der folgenden ähnelt

    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

    Wenn Sie brauchen, um zu vergleichen, jedes Feld können Sie die Iteration über die Felder, die der folgenden ähnelt
    Dies setzt Voraus, der recordsets haben die gleichen Felder in der gleichen Reihenfolge

    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

    InformationsquelleAutor cmsjr

  2. 0

    Eine viel bessere Lösung wäre der Vergleich in der Abfrage/SQL-Code anstelle des Codes, so dass sich alle nicht übereinstimmenden Zeilen zurückgegeben, die aus einer einzigen Abfrage.

    Beispielsweise

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

    InformationsquelleAutor JohnFx

Schreibe einen Kommentar