Also mein Problem ist folgendes, ich versuche aus meinem Musik Ordner die Einzelnen Lieder in eine Access DB einzubinden.
Nun erhalte ich immer ein Syntaxfehler beim der Insert into SQL Befel.
Das Problem taucht nur auf wenn ein Value ein ' (Hochkomma) beinhaltet.
Hier noch mein Quell Code
Was kann ich nun tun um diesen Fehler zu umgehen?
Nun erhalte ich immer ein Syntaxfehler beim der Insert into SQL Befel.
Das Problem taucht nur auf wenn ein Value ein ' (Hochkomma) beinhaltet.
Hier noch mein Quell Code
VB.NET-Quellcode
- Private Sub Menuform_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
- Dim sFile As String
- Dim sPath As String = "C:\Users\Public\Music\Adele\"
- 'Anzahl der Dateien
- Dim counter = My.Computer.FileSystem.GetFiles( _
- sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3").Count + My.Computer.FileSystem.GetFiles( _
- sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.wma").Count
- '--------------------------------------------------------------------------------------------------------------------
- 'Initialisiere Access DB
- '--------------------------------------------------------------------------------------------------------------------
- Dim con As New OleDbConnection
- Dim cmd As New OleDbCommand
- con.ConnectionString =
- "Provider=Microsoft.ACE.OLEDB.12.0;" &
- "Data Source= C:\Users\Jonas\Documents\Visual Studio 2010\Projects\Mediaplayer\Mediaplayer\Mediaplayer\dateien\Musikbibliothek.accdb"
- cmd.Connection = con
- '---------------------------------------------------------------------------------------------------------------------
- ' alle Dateien im Pfad sPath Verzeichnis einschl. Unterordner
- Try
- con.Open()
- For Each sFile In My.Computer.FileSystem.GetFiles( _
- sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
- Dim MP3file As New ID3TagLibrary.MP3File(sFile)
- cmd.CommandText = "insert into Bibliothek (Titel, Pfad) values ('" & MP3file.Title & " ', '" & sFile & "')"
- cmd.ExecuteNonQuery()
- Next
- con.Close()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- End Class
Was kann ich nun tun um diesen Fehler zu umgehen?