23 svar · 638 visningar · startad av devotion · sida 2 av 2
Hej! Följande kod lägger till information från en prislista i txt-format i en databastabell (Tack @nders :) ) <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> <% dim objConn dim
Läs frågan i sin helhet →
while not objFile.atendofstream
strLine = objFile.ReadLine
iEnumber = Replace(Trim(Mid(strLine, 1, 8)), "'", "''")
...
...
objConn.Execute strSQL, , 128
end if
allEnumbers = allEnumbers & iEnumber & ","
wend
objconn.Execute("DELETE FROM tblPriceList WHERE eNumber NOT INT ("& left(allEnumbers,len(allEnumbers)-1) &")")
Dessutom borde du nog ha en WHERE-clausul i din UPDATE-sats, då den uppdaterar ALLA poster med samma värde annars. ;)
Dessutom borde du nog ha en WHERE-clausul i din UPDATE-sats, då den uppdaterar ALLA poster med samma värde annars.
Helt klart. Jag som glömde den i min kod. :) (Jag har redigerat koden i mitt senaste inlägg)
I övrigt är koden cyprys visar exakt som jag hade tänkt mig. :)
mvh
Hej!
Tack alla engagerade forumbesökare i allmänhet och @nders i synnerhet :)
Nu fungerar det!!
Koden är lite mer optimerad nu.. :r
Det tar ca 1 sekund att göra samma operation som min usla kod tog 30 sekunder att göra....
Avslutar denna tråden nu men återkommer säkert i andra ärenden!!!
MVH
Nu när jag läst cyprys kod igen så är den inte exakt som jag tänkt mig. ;)
Så här hade jag tänkt:
while not objFile.atendofstream
strLine = objFile.ReadLine
iEnumber = Replace(Trim(Mid(strLine, 1, 8)), "'", "''")
...
...
objConn.Execute strSQL, , 128
end if
allEnumbers = allEnumbers & "'" & iEnumber & "',"
wend
objconn.Execute("DELETE FROM tblPriceList WHERE eNumber NOT IN ("& left(allEnumbers,len(allEnumbers)-1) &")")
mvh