Replace-problem
2 svar · 289 visningar · startad av i-or
Är det ungefär såhär du vill göra?
strSQL = "SELECT * FROM t_diaryworkouts"
Set objRS = Connect.Execute(strSQL)
Do Until objRS.EOF
Response.Write(objRS("f_comments"))
strSQL = "UPDATE t_diaryworkouts SET f_comments = '" & Replace(objRS("f_comments"), "ss", "jj") & "' WHERE f_comments = '" & objRS("f_comments") & "'"
Connect.Execute(strSQL)
objRS.MoveNext
Loop
objRS.Close : Set objRS = Nothing
Var inte säker på om man kunde använda Replace() direkt i en SQL-sats, annars fungerar det att göra på ett annat sätt också, men jag vill inte förvirra dig och skriva något som inte fungerar med säkerhet.
Tack så mycket!
Det jag egentligen skulle göra (exemplet ovan var bara en felsökning, fel av mig att ange det kanske) är att ersätta alla radbryt med "; ". Det går bra att ersätta chr(10) eller chr(13) med ett annat tecken men radbryten försvinner inte.
SQL-satsen för detta är (enligt Sebbes exempel):
strSQL = "UPDATE t_diaryworkouts SET f_contents = '" & Replace(Replace(RecSet("f_contents"),"'","''"), chr(10), ":") & "' WHERE f_id = '" & RecSet("f_id") & "'"
Hur ska jag göra för att radbryten ska försvinna?
Edit: Glöm det, jag hade kastat om bokstäverna i vbcrlf, nu fungerar det. Tack igen!