Kopiering/redigering af tabel (database)
Jeg skal have flyttet alt data fra en Access-database-tabel til en ny og samtidig ændre lidt på dataene...Jeg har lavet følgende script til at gøre det for mig:
*****************************************
set rs = Conn.execute("select * from news")
do until rs.EOF
StrBesked = rs("besked")
StrBesked = replace(StrBesked, Chr(13), VbCrLf)
StrBesked = replace(StrBesked,"#smil","<#smil>")
StrBesked = replace(StrBesked,"#sur","<#sur>")
StrBesked = replace(StrBesked,"#spørg","<#spørg>")
StrBesked = replace(StrBesked,"#cool","<#cool>")
StrBesked = replace(StrBesked,"#ked","<#ked>")
StrBesked = replace(StrBesked,"#kold","<#kold>")
StrBesked = replace(StrBesked,"#lol","<#lol>")
StrBesked = replace(StrBesked,"#opkast","<#opkast>")
StrBesked = replace(StrBesked,"#tunge","<#tunge>")
StrBesked = replace(StrBesked,"#cig","<#cig>")
StrBesked = replace(StrBesked,"#skrig","<#skrig>")
StrBesked = replace(StrBesked,"#ninja","<#ninja>")
StrBesked = replace(StrBesked,"#handup","<#handup>")
StrBesked = replace(StrBesked,"#handdown","<#handdown>")
StrBesked = replace(StrBesked,"#stop","<#stop>")
StrBesked = replace(StrBesked,"#disk","<#disk>")
StrBesked = replace(StrBesked,"#fare","<#fare>")
StrBesked = replace(StrBesked,"#cd","<#cd>")
StrBesked = replace(StrBesked,"#love","<#love>")
StrBesked = replace(StrBesked,"#unlove","<#unlove>")
if isEmail(rs("email")) then
StrEmail = rs("email")
StrKey = ""
Randomize
for i = 1 to 50
if Rnd >= 0.5 then
StrKey = StrKey & LCase(Chr(Int((26*Rnd)+65)))
else
StrKey = StrKey & round(Rnd*10)
end if
next
else
StrEmail = ""
StrKey = ""
end if
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "SELECT * FROM Tavlen", Conn, 1, 3
rs2.AddNew
rs2("id") = rs("id")
rs2("svarid") = rs("svarid")
rs2("adgang") = 0
rs2("overskrift") = rs("overskrift")
rs2("besked") = StrBesked
rs2("forfatter") = rs("forfatter")
rs2("MailMode") = "normal"
rs2("email") = StrEmail
rs2("Key") = StrKey
rs2("dato") = rs("dato")
rs2.Update
rs2.Close
Set rs2 = Nothing
rs.MoveNext
loop
set rs = nothing
*****************************************
Men den melder følgende fejl:
Der opstod en eller flere fejl ved en OLE DB-handling på flere trin. Kontroller alle OLE DB-statusværdier.
Så nu har jeg et par spørgsmål...
1) Hvorfor vil scriptet ikke virke? - Hvordan får jeg det til at virke?
2) Kan dette overhovedet lade sig gøre?
- Her tænker jeg bl.a. på om der vil blive problemer med kolonnen id der er af typen autonummerering - vil den for fremtiden kunne finde ud af at fortsætte efter den sidste post, med det næste nummer, eller vil den 'starte forfra' fra 1 med autonummereringen (hvilket jo ville forårsage et problem!)
På forhånd tak!
/Killer_R
