Hallo Leute,
ich steh aktuell wieder vor einem Problem und das sieht so aus:
Ich habe eine Tabelle in meiner SQl Datenbank in der Dateinamen stehen.
Und dementsprechend ein Verzeichnis mit Dateien. Nun kann es aber sein das manche Dateien nicht vorhanden sind, diese würde ich dann gerne in einer csv-Datei speichern.
Also mein Vorhaben wäre nun Tabelle ausgeben lassen, einen Wert aus der Liste nehmen und mit den Dateien in dem Verzeichnis vergleichen.
Sollte die Datei nicht vorhanden sein soll der Name in die CSV-Datei geschrieben werden.
Dann zweiten Wert nehmen und vergleichen usw.
Das ist aktuell mein Ansatz:
resultfile ist als String deklariert
sCSVFile ist der Pfad + Name der CSV und ebenfalls als String deklariert
Als Zwischenschritt wollte ich mir die Werte aus der Tabelle in einer CSV-Datei anzeigen lassen, was aktuelle aber auch nicht geht.
Die Verbindung steht soweit und funktioniert auch.
Es wäre mir eine riesen Hilfe wenn mich da jemand unterstützen könnte.
ich steh aktuell wieder vor einem Problem und das sieht so aus:
Ich habe eine Tabelle in meiner SQl Datenbank in der Dateinamen stehen.
Und dementsprechend ein Verzeichnis mit Dateien. Nun kann es aber sein das manche Dateien nicht vorhanden sind, diese würde ich dann gerne in einer csv-Datei speichern.
Also mein Vorhaben wäre nun Tabelle ausgeben lassen, einen Wert aus der Liste nehmen und mit den Dateien in dem Verzeichnis vergleichen.
Sollte die Datei nicht vorhanden sein soll der Name in die CSV-Datei geschrieben werden.
Dann zweiten Wert nehmen und vergleichen usw.
Das ist aktuell mein Ansatz:
VB.NET-Quellcode
- Dim schemadb As String = "select name from sys.schemas where name LIKE '%pdb%' or name LIKE '%plm%'"
- Dim cmd As New OleDbCommand
- Dim adapter As New OleDbDataAdapter
- cmd.Connection = condatabase
- condatabase.Open()
- cmd.CommandText = schemadb
- adapter.SelectCommand = cmd
- schema = cmd.ExecuteScalar
- If (schema = "pdb") Then
- Using cmd2 As New OleDbCommand("SELECT Spalte1 FROM pdb.Tabelle1", condatabase)
- cmd2.CommandType = CommandType.Text
- Dim dr As OleDbDataReader = cmd2.ExecuteReader()
- While dr.Read()
- Dim resultfile As String = dr("Spalte1").ToString()
- End While
- End Using
- ElseIf (schema = "plm") Then
- Using cmd2 As New OleDbCommand("SELECT Spalte1 FROM plm.Tabelle1", condatabase)
- cmd2.CommandType = CommandType.Text
- Dim dr As OleDbDataReader = cmd2.ExecuteReader()
- While dr.Read()
- Dim resultfile As String = dr("Spalte1").ToString()
- End While
- End Using
- End If
- condatabase.Close()
- If Not IO.File.Exists(sCSVFile) Then
- IO.File.Create(sCSVFile)
- End If
- Dim fs As New FileStream(sCSVFile, FileMode.Open)
- Dim sw As New StreamWriter(fs)
- sw.WriteLine(resultFiles)
- sw.Close()
resultfile ist als String deklariert
sCSVFile ist der Pfad + Name der CSV und ebenfalls als String deklariert
Als Zwischenschritt wollte ich mir die Werte aus der Tabelle in einer CSV-Datei anzeigen lassen, was aktuelle aber auch nicht geht.
Die Verbindung steht soweit und funktioniert auch.
Es wäre mir eine riesen Hilfe wenn mich da jemand unterstützen könnte.