Opdatering af Access med data fra en csv-fil

jeg ville placere
linie = Split(f.ReadLine,";")
lige før loop, og en gang til som sidste linje i loop

claes57 ikke rigtig forstået, loop er det ikke sidste linie i loop'et ..?

Set f = fso.OpenTextFile(filespec,1)
linie = Split(f.ReadLine,";")
Do While not f.AtEndOfStream
    Set rsSave = Server.CreateObject("ADODB.RecordSet")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/data.mdb")
    rsSave.open "bsk", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
    rsSave.addnew
    rsSave("user") =  trim(linie(0))
    rsSave("knr") =  trim(linie(1))
    rsSave.update
    rsSave.close
    set rsSave = Nothing
    linie = Split(f.ReadLine,";")
loop

sådan...

Ok ...
Vil du hjælpe mig til at forstå hvorfor ...

Tak ...

Jeg ville nok også placere:

Set rsSave = Server.CreateObject("ADODB.RecordSet")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/data.mdb")

Uden for loopet. Der er vel ingen grund til at oprette database-objekterne inde i selve loopet for hver linie i tekstfilen. Det vil i mine øjne give et ekstremt overhead.

Opret objektet og sæt det for hver post, hvor det behøves.

Vil det sige noget i stil med dette ...


<!-- #include virtual="/ADOVBS.inc" -->
<%
Set krs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/data.mdb")
strsql = "delete FROM bsk"
krs.Open strSQL, strDSN, 1

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/BESTSELL_KU.CSV")
Set f = fso.OpenTextFile(filespec,1)
linie = Split(f.ReadLine,";")
Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/data.mdb")
Do While not f.AtEndOfStream
    rsSave.open "bsk", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
    rsSave.addnew
    rsSave("user") =  trim(linie(0))
    rsSave("knr") =  trim(linie(1))
    rsSave.update
    linie = Split(f.ReadLine,";")
loop
f.Close
rsSave.close
set rsSave = Nothing


I starten sletter jeg gammelt indhold ... er det korrekt at den forbindelse ikke skal lukkes ...

jeg er med på thomasso's ting også.

Min placering af readline gør, at filen bliver læst før den tester på eof første gang - og så er eof-værdien sat.
I loopet behandles post, og næste læses, hvis der er flere.

Vi kører lige resten af optimeringen igennem - speeder også rutinen op:

Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/data.mdb")
rsSave.open "bsk", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
Set f = fso.OpenTextFile(filespec,1)
linie = Split(f.ReadLine,";")
Do While not f.AtEndOfStream
    rsSave.addnew
    rsSave("user") =  trim(linie(0))
    rsSave("knr") =  trim(linie(1))
    rsSave.update
    linie = Split(f.ReadLine,";")
loop
rsSave.close
set rsSave = Nothing

Lækkert ...

Det omkring toppen sletning af gammelt materiale er det ok ...

Så mangler jeg vist kun 2 ting ...

TAK for hjælpen,
Samt et par svar ...

Det virker temmelig meget bedre ...

Tak

Jamen så ligger jeg et lille svar.
Synes måske claes57 fortjener de fleste point :)

... ærgerligt at den jeg ikke får vist sidste linie ... ;)

ReadLine virker ikke på sidste linje, da linjen ikke slutter med et linjeskift.
hvis du inden kørsel tilføjer et CrLf til filen, så er den med.
det gøres altså lige før disse to linjer

Set f = fso.OpenTextFile(filespec,1)
linie = Split(f.ReadLine,";")

hvor der skal appendes et linjeskift (konstanten vbCrLf)
Set f = fso.OpenTextFile(filespec, ForAppending, True)
f.WriteLine(vbCrLf)
f.Close

point - glem det bare...

Ok ... tak for hjælpen ...

Nu tildelte jeg jo godt nok til anden side, nu da jeg ikke fik svar fra dig. Giver gerne .. værdifuld hjælp ...

Søren

det var bare en service-oplysning. Point er underordnet.