Datenbank inhalt vergleichen

[ArimSlayer]

Ich möchte den inhalt eines bestimmten ordners mit dem inhalt einer datenbank tabelle vergleichen. Nur häng ich da ständig fest und finde keine lösung.

Die DB ist so aufgebaut Test_Datei als tabellen name , dann die spalten "dateiname" und "datum".

Also er soll die werte da drin vergleichen, und mir dann bei fehlende einträge oder geänderten dateien mitteilen das z.b die und die datei neu ist , und die wurde geändert.

Dann soll er mir die abweichenden dateien"namen" in eine var speichern und die möchte ich dann hochladen

und den befehl um die daten in die db zu schreiben hab ich und kann ich auch..

nur beim überprüfen hackt es halt noch. so hab ich es bisher aber das ist aber nicht so wirklich das richtige. da ich die geänderten dateien nicht auswählen kann und sie hochladen kann. ich hoffe ihrkönnt mir helfen

Public di As New DirectoryInfo("\upload")

    Public fsi As FileSystemInfo() = di.GetFileSystemInfos()

    Public info As FileSystemInfo

    Public newDS As DataSet


Private Sub btn_pr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_pr.Click

        Dim sql As OleDbCommand = New OleDbCommand("SELECT bezeichnung,datum FROM Test_Datei", mt.conn)

        sql.CommandTimeout = 30

        Dim oleDA As OleDbDataAdapter = New OleDbDataAdapter

        Dim myRow As DataRow


        oleDA.SelectCommand = sql

        newDS = New DataSet

        oleDA.Fill(newDS, "Test_Datei")


        For Each info In fsi

            Dim myRowString As String

            Dim infoDatum As String

            ausgabe.InnerHtml += "#####################"


            For Each myRow In newDS.Tables("Test_Datei").Rows

                myRowString = CType(myRow("Datum"), String)

                Dim MyRowName = CType(myRow("Bezeichnung"), String)

                infoDatum = CType(info.LastAccessTime(), String)

                If myRowString <> infoDatum And MyRowName = info.Name Then

                    ausgabe.InnerHtml += " !!!!!!!!!!! [ ACHTUNG ] !!!!!!!!! " & info.Name & " " & infoDatum

                End If

            Next myRow

            ausgabe.InnerHtml += "Ende"

        Next

    End Sub