Feil i SQL (insert)
HeiJeg får feil i SQL setningen, når det ligger mange text filer i mappen. Feilen kommer ikke hvis det kun er en text fil som ligger der.
Feilmelding:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Mangler semikolon (;) i slutten av SQL-setningen
Min Kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../fpdb/registrering_av_pib.mdb")
'Reference the FileSystemObject
set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Reference the Text directory
set Folder = FSO.GetFolder("d:\pks\admin\pibfiler")
Dim SQL, col
SQL = ""
'Reference the File collection of the Text directory
set FileCollection = Folder.Files
'Traverse through the FileCollection using the FOR EACH...NEXT loop
For Each FileName in FileCollection
strFileName = FileName.Name
Set myFile = fso.openTextFile("d:\pks\admin\pibfiler\" & strFileName)
SQL = SQL & "INSERT INTO Resultater ("
strLine = myFile.readLine
valArr = SPLIT(strLine,";")
for i = 0 to UBOUND(valArr)
SQL = SQL & valArr(i)
if( i <> 28 ) then
SQL = SQL & ", "
end if
next
SQL = SQL & ") VALUES ("
strLine = myFile.readLine
valArr = SPLIT(strLine,";")
for i = 0 to UBOUND(valArr)
SQL = SQL & "'" & valArr(i) & "'"
if( i <> UBOUND(valArr) ) then
SQL = SQL & ", "
end if
Next
'ON Error resume next
SQL = SQL & ")"
Response.write SQL
Conn.execute( SQL )
response.write strFileName & " Lagt inn i basen og slettet fra mappen PIBfiler<br>"
strFileName = FileName.Name
Set myFile = fso.GetFile("d:\pks\admin\pibfiler\" & strFileName)
myFile.Delete
Next
'De-reference all the objects
set FileCollection = Nothing
set Folder = Nothing
set FSO = Nothing
response.write "<br><b>Nå var det gjort!!</b>"
Conn.Close
set Conn = nothing
%>
Er det noen som vil hjelpe?
Odd
