Hallo Leute,
irgendwie stehe ich auf dem Schlauch und bevor ich es zu kompliziert (und unnötig) mache, frage ich lieber Euch Profis.
Ich habe eine sehr große Datenbank mit Artikeln.
Ein Feld "webtext" enthält einen RTF-String.
Ich habe eine Funktion die den RTF-String in einen HTMl-String umwandelt:
Nun suche ich die kürzeste und eleganteste Codeform in dem ich von jedem Datensatz das feld "webtext" auslese, modifiziere und dann wieder speichere ("UPDATE"?).
Hier ein Codeabschnitt mit dem ich (theoretisch) das Feld "webtext" bei jedem Artikel leeren würde. Nur so als Ausgangspunkt.
Wie gehe ich am besten vor?
Leute, ist erledigt. Könnt diesen Beitrag gerne löschen oder auch stehen lassen, falls meine Lösung für andere praktikabel ist:
irgendwie stehe ich auf dem Schlauch und bevor ich es zu kompliziert (und unnötig) mache, frage ich lieber Euch Profis.
Ich habe eine sehr große Datenbank mit Artikeln.
Ein Feld "webtext" enthält einen RTF-String.
Ich habe eine Funktion die den RTF-String in einen HTMl-String umwandelt:
Public Function ConvertRTFToHTML(RT_Text As String) As String
Nun suche ich die kürzeste und eleganteste Codeform in dem ich von jedem Datensatz das feld "webtext" auslese, modifiziere und dann wieder speichere ("UPDATE"?).
Hier ein Codeabschnitt mit dem ich (theoretisch) das Feld "webtext" bei jedem Artikel leeren würde. Nur so als Ausgangspunkt.
Wie gehe ich am besten vor?
VB.NET-Quellcode
- Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path.Combine(BONitERP2_DatenOrdner, "onlineshop.mdb") & "; Jet OLEDB:Database Password=" & DatenbankPasswort & ";" & SpeedUpString)
- Dim cmd As New OleDbCommand
- Dim sql As String = ""
- conn.Open()
- sql = "UPDATE Artikel SET webtext ='';"
- cmd = New OleDbCommand(sql, conn)
- cmd.ExecuteNonQuery()
- conn.Close()
Leute, ist erledigt. Könnt diesen Beitrag gerne löschen oder auch stehen lassen, falls meine Lösung für andere praktikabel ist:
VB.NET-Quellcode
- ''' <summary>
- ''' Wandelt alle RTF-Texte in HTML-Texte um (onlineshop.erp2)
- ''' </summary>
- ''' <remarks></remarks>
- Public Sub OnlineShopDatenbankInHTMLUmwandlen()
- Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path.Combine(BONitERP2_DatenOrdner, "onlineshop.erp2") & "; Jet OLEDB:Database Password=" & DatenbankPasswort & ";" & SpeedUpString)
- Dim cmd As New OleDbCommand
- Dim reader As OleDbDataReader
- Dim sql As String = ""
- Dim Temp_Webtext As String
- Dim Temp_WebArtikel As String
- conn.Open()
- sql = "SELECT * FROM artikel;"
- cmd = New OleDbCommand(sql, conn)
- reader = cmd.ExecuteReader
- Do While reader.Read()
- Temp_WebArtikel = reader("Artikelnummer").ToString
- Temp_Webtext = reader("webtext").ToString
- Temp_Webtext = ConvertRTFToHTMLFuerOnlineshop(Temp_Webtext)
- sql = "UPDATE artikel SET webtext='" + Replace(Temp_Webtext, "'", "''") + "' WHERE artikelnummer='" + Temp_WebArtikel + "';"
- cmd = New OleDbCommand(sql, conn)
- cmd.ExecuteNonQuery()
- Loop
- reader.Close()
- conn.Close()
- End Sub
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dive26“ ()