2 svar · 360 visningar · startad av Freestyler
Har en textfil med adressuppgifter. Ett företag/rad. Ser ut såhär:
Företag AB|Adress|Tel|Fax|Mail|Hemsida
Företag2 AB|Adress|Tel|Fax|Mail|Hemsida
osv...
Hur importerar jag detta enklast till en access-db mha ASP?
Du får skapa en liten procedur för det.
Läs in alla rader i filen med FSO till en variabel.
Splitta variabeln med vbCrLf
Loopa ut alla rader och splitta raderna på |-tecknet.
lägg in i databasen.
Tackar.
Tänkte dela med mig av lösningen.
'create the file system object
set fso = Server.CreateObject("Scripting.FileSystemObject")
'create the DB object
set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=foo.mdb;Mode=ReadWrite;Persist Security Info=False"
DB.Open
'open the text file
strFilePath = Server.Mappath( "\" ) & "\import.txt"
set f = fso.OpenTextFile(strFilePath, 1)
do while NOT f.AtEndOfStream
currentLine = f.readLine()
values = split( currentLine,"|")
rubrik = values(1)
adress = values(2)
land = "Sweden"
telefon = values(4)
fax = values(5)
strSQL = "INSERT INTO links(rubrik,adress,land,tel,fax) VALUES ('" & rubrik & "','" & adress & "','" & land & "','" & telefon & "','" & fax & "')"
DB.Execute(strSQL)
loop
Db.close()
set db = nothing
f.close()
set f = nothing
set fso = nothing