Dela upp ett fält till två, eller nått...

Tyvärr känner jag inte till om det finns något inom SQL som gör att man kan göra det du beskriver. Det finns nog troligtvis inte.

Du får hämta post för post och ändra det. Huruvida du delar upp namnen beror på hur du vill göra det. Du kan använda Split() eller någon kombination med InStr() med Left() eller Right().

Lägg till en kolumn "fornamn" och en "efternamn" och som princip:

sql="Select namn,id from tabell"
'öppna databas och loopa ut
Do while not RS.EOF
str = RS("namn")
id = RS("id")
mySplit = split(str," ")
Response.Write "Uppdaterar: "& str &"<br>"
Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"') where id = " & id),,128
RS.movenext
loop
'Stäng databas
RS.Close

Du kan kanske lägga till on error resume next om det är så att något namn skulle saknas i tabellen.

Om du använder Access kan du förmodligen göra på följande sätt

UPDATE tabell SET fornamn = Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)

Här är koden jag använder, den kör igenom praktiskt taget alla poster men inga namn ändras alls:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=E:\inetpub\wwwroot\Spas\main\avance.mdb;"
SQL = "SELECT * FROM Avance"
Set RS = Conn.Execute(SQL)
'öppna databas och loopa ut
Do while not RS.EOF
str = RS("namn")
id = RS("nr")
mySplit = split(str," ")
Response.Write "Uppdaterar: "& str &"<br>"
on error resume next
Conn.execute "UPDATE tabell SET fornamn = Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)"
RS.movenext
loop
'Stäng databas
RS.Close
%>

Nu blandar du ihop två koder. :) Ersätt:

Conn.execute "UPDATE tabell SET fornamn = Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)"

Med:

Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"') where id = " & id),,128

Jo jag har prövat båda faktiskt, och jag bytte ut "tabell" mot det riktiga namnet, samma sak, sidan körs igenom och det ser ok ut, öppnar tabellen i access och inget har ändrats, mysko mysko...

Det jag tänkte med min SQL-sats var att den kan du köra direkt i Access, men det går givetvis att göra med en funktion också.

strSql = "UPDATE Avance SET fornamn = Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)"

Conn.Execute strSql, lngUpdates

Response.Write lngUpdates & " st. poster uppdaterades."

Hej vänta, det finns tre ( tecken men fyra ) tecken, ett för mycket eller?

Jo, det är det, och tar man bort error resume next så får jag:
Extra ) in query expression ''EFTERNAMN)'.

Engine^ skrev:

Det jag tänkte med min SQL-sats var att den kan du köra direkt i Access

Jo som en fråga, men det låter mig inte spar koden, klistrade bara in den såhär:
UPDATE Avance SET fornamn = Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)

Men det säger "missing ),], or Item in query expression" osv.

edit:
Detta säger det när jag gjorde det som en funktion:
"Missing ), ], or Item in query expression 'Left(namn, InStr(namn, ' '), efternamn = Mid(namn, InStr(namn, ' ') + 1)'. "

Samma sak som i access

Såg inte det själv. ;) Ersätt:

Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"') where id = " & id),,128

Med:

Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"' where id = " & id),,128

LeonL skrev:

Såg inte det själv. ;) Ersätt:

Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"') where id = " & id),,128

Med:

Conn.execute("UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"' where id = " & id),,128

Jo jag prövade detta också men då säger det "No value given for one or more required parameters"

Skriv tillbaka "On Error Resume Next".

Då kör det igenom alla poster på sidan men i tabellen händer ingenting.

Innehåller ID något värde? Skriv ut SQL-strängen för att kolla om allt ligger rätt till.

Jodå alla id strängar har värden, kan man använda response.write för att set hur UPDATE strängen ser ut?

visst:

Response.Write "UPDATE tabell set fornamn='"& mySplit(0) &"',efternamn='"& mySplit(1) &"' where id = " & id

Joo, det såg ju ok ut, ex:
"UPDATE avance set fornamn='XXXXX',efternamn='XXXX' where id = 4 "

Förstår inte vad som är fel...

Jag som var lite klantig med paranteserna...

strSql = "UPDATE Avance SET fornamn = Left(namn, InStr(namn, ' ')[b])[/b], efternamn = Mid(namn, InStr(namn, ' ') + 1)"

Tackar för all hjälp, funkar fint nu :)