conn.execue "update t set klass = " & _
" concat(left(klass,1) + 1,substring(klass from 2)) " & _
" where left(klass,1) between '0' and '9' "
Designmässigt är det ingen bra ide att lagra sammansatta värden i en kolumn.
1 svar · 276 visningar · startad av golgata
Har följande kod men den är anpassad för Access. Hur skriver jag om den så att den passar mysql.
Scriptet gör så att man plusar på första siffran i strängen med 1.
t.ex
1b till 2b
2a blir 3a
osv
<%
Dim usestr, str, str1
öppning av databasen
Do Until RecSet.EOF
usestr = RecSet("klass")
str = Mid(usestr, 1, 1)
str1 = Mid(usestr, 2)
If str>="0" and str<="9" Then
RecSet("klass") = (CLng(str) + 1) & str1
RecSet.Update
End If
RecSet.MoveNext
Loop
RecSet.Close%>
conn.execue "update t set klass = " & _
" concat(left(klass,1) + 1,substring(klass from 2)) " & _
" where left(klass,1) between '0' and '9' "
Designmässigt är det ingen bra ide att lagra sammansatta värden i en kolumn.