[VBA] 2 Tabellen vergelijken in MS Access.

[Verwijderd]

Klinkt simpel maar dat is het dus blijkbaar niet

Ik heb me al helemaal suf gezocht op het internet maar niet echt wat bruikbaars gevonden.

Ik wil het volgende voor elkaar krijgen:

Input: 2 tabellen
1 Tabel expected results en 1 tabel actual results. Deze 2 tabellen wil ik vergelijken. Er moet dus vergeleken worden op veld nivo. Een actual record is pas correct als alle velden matchen met een expected record.
Output: De records uit expected die niet in actual voorkomen.

Het lastige is dat alles generiek en dynamisch moet zijn. Elke willekeurige expected tabel kan dus als basis gebruikt worden. De veld-layout van de expected en actual tabel komen altijd overeen.

Ik heb de unmatched query wizzard geprobeerd maar die werkt maar met 1 veld waarop je kunt vergelijken. Niet echt handig dus.

Ik heb het volgende bedacht, voornamelijk pseudo-code:

code:

Do Until expected.EOF
    'Bepalen primary keys expected tabel.
    'Ga naar eerste record expected tabel.
    Do Until actual.EOF
      'Zoek naar record in actual met zelfde primary key.
      If (primaryKey.match) Then
        'Loop door alle expected velden en vergelijk ze met de actual velden.
        If (complete.match) Then
            'Bij een complete match (op alle velden) end do en
            'ga naar volgend expected record.
            'Zorg dat actual weer vooraan staat MoveFirst.
        Else
            'Bij geen complete match (op alle velden) doe voorloping een debug.print.
            'Ga naar het volgende expected record zorg dat actual weer vooraan staat.
        End If
        
      End If
    Loop
Loop

context:
Ik probeer de uitkomst van een test (actual) te vergelijken met een lokaal opgeslagen expected resultaat.

Waarschijnlijk ben ik weer veels te moeilijk aan het doen geef me dan even een schop in de goede richting

alvast bedankt.

[brokenp]

Probeer het eens met SQL, je maakt een join op je id's als ze gelijk moeten zijn.

Ik snap niet helemaal wat je wil, kan je evt een tabelstructuur geven of zo?

[Anoniem: 26483]

Volgens mij is de enige manier 2 recordsets maken
de ene origineel,
de andere de vergelijk

vervolgens loop je door de velden van de origineel en kijk of a deze in de vergelijk staat en of deze dezelfde inhoud heeft

For each field in rst.fields
'check if field exist
for each field2 in rst2.fields
if field2.name = field.name then
'check inhoud
if fiield2.value = field.value then
jiippiie gelijk

next
next

enigste nadeel, dit kost onnoemelijk veel tijd

[Verwijderd]

Op zondag 28 juli 2002 20:23 schreef brokenp het volgende:
Probeer het eens met SQL, je maakt een join op je id's als ze gelijk moeten zijn.

Ik snap niet helemaal wat je wil, kan je evt een tabelstructuur geven of zo?

Het probleem is dat niet alleen de ID`s gelijk moeten zijn maar alles in het record, dus elk veld in het record moet gelijk zijn.

Op zondag 28 juli 2002 22:20 schreef watnou het volgende:
Volgens mij is de enige manier 2 recordsets maken
de ene origineel,
de andere de vergelijk

vervolgens loop je door de velden van de origineel en kijk of a deze in de vergelijk staat en of deze dezelfde inhoud heeft

For each field in rst.fields
'check if field exist
for each field2 in rst2.fields
if field2.name = field.name then
'check inhoud
if fiield2.value = field.value then
jiippiie gelijk

next
next

enigste nadeel, dit kost onnoemelijk veel tijd

performance is not an issue

Ok, nu bekijk je het dus op veld nivo. Maar is het dan nog wel per record....

dit zou opzich wel kunnen maar dan ga je dus eerst zoeken op record nivo naar een match op de primary keys. en daarna ga je bovenstaand stukje code uitvoeren.

Ik ga even een experimentje bouwen...

iig bedankt voor jullie reacties.

[Verwijderd]

Ik heb de oplossing gevonden zie onderstaande code

code:

Private Function compareData(tblExpected As String, tblActual As String) As Boolean

On Error GoTo out
compareData = False

Dim strSQL As String
Dim rs_expected As Recordset
Dim rs_actual As Recordset
Dim dbs As Database
Dim fld1 As Field
Dim fld2 As Field
Dim strFind As String
Dim tbl As TableDef
Dim idx As Index
Dim fld As Field

Set dbs = CurrentDb

strSQL = "SELECT * FROM " & tblExpected
Set rs_expected = dbs.OpenRecordset(strSQL)

strSQL = "SELECT * FROM " & tblActual
Set rs_actual = dbs.OpenRecordset(strSQL)
addLogItem "Getting data from expected and actual tables", "COMPARE", "FINOK"
rs_actual.MoveFirst
rs_actual.MoveLast

addLogItem "Starting compare Process", "COMPARE", "FINOK"
Do Until rs_expected.EOF
    
    Debug.Print "Processing record: " & rs_expected.AbsolutePosition

    'Determine primary key expected and compile find script
    strFind = ""
    For Each idx In dbs.TableDefs(tblExpected).Indexes
        If idx.Primary = True Then
            For Each fld In idx.Fields
                strFind = strFind & fld.Name & " = '" & rs_expected.Fields(fld.Name) & "' AND "
            Next
        End If
    Next
    strFind = Left$(strFind, Len(strFind) - 4)
    
    'Find primary key in rs_actual.
    rs_actual.FindFirst strFind
    If rs_actual.NoMatch Then
        Debug.Print "  -NoMatch! Cannot find match in actual for expected record: " & rs_expected.AbsolutePosition
    Else
        'Select field from expected
        For Each fld1 In rs_expected.Fields
            'Select field from actual
            For Each fld2 In rs_actual.Fields
                'Compare field names
                If (fld1.Name = fld2.Name) Then
                    'Compare field values
                    If (fld1.Value = fld2.Value) Then
                        'Match!
                        Debug.Print "  +Match!   " & " Local: " & fld1.Value & " Actual: " & fld2.Value
                    Else
                        'NoMatch!
                        Debug.Print "  -NoMatch! " & " Local: " & fld1.Value & " Actual: " & fld2.Value & " Error in record: " & rs_expected.AbsolutePosition
                    End If
                End If
            Next
        Next
    End If
    rs_expected.MoveNext
Loop

Set rs_expected = Nothing
Set rs_actual = Nothing
addLogItem "Finished compare Process", "COMPARE", "FINOK"
compareData = True
Exit Function

out:
    addLogItem "Error in compare Process", "COMPARE", "FINERR"
    Debug.Print Err.Description
    compareData = False
End Function