Avatar billede -mundi- Nybegynder
05. marts 2003 - 10:09 Der er 8 kommentarer og
2 løsninger

Import af csv fil via asp script

Jeg får hver aften leveret en fil med medlemsdata på min webserver, filen er i csv format. Hvordan importerer jeg den til access ? Det skal kunne køre automatisk på en win2k server.

Der er ca 30000 medlemmer, så en løsning med at loope igennem csv filen med et filesystemobject er ikke en løsning jeg kan bruge til noget :-)

Mvh
Avatar billede kabbak Professor
05. marts 2003 - 10:32 #1
Hvis filen har samme navn hver gang, kan dy lave en sammenkædning til tabel
Avatar billede kabbak Professor
05. marts 2003 - 10:32 #2
dy = du
Avatar billede fynbohans Nybegynder
05. marts 2003 - 20:31 #3
Der findes en ODBC-driver også til text-filer(.txt eller .csv),
så du må kunne hive dine data over i Access fra filen, som var det
enhver anden database.
Avatar billede -mundi- Nybegynder
06. marts 2003 - 08:44 #4
noget eksempel på det ?
Avatar billede fynbohans Nybegynder
06. marts 2003 - 10:59 #5
Der er et eksempel i Visual Basic Help i Access - kig under
OpenDase.
ODBC-driveren kan ses i Kontrolpanel under ODBC.
Avatar billede -mundi- Nybegynder
06. marts 2003 - 11:01 #6
Kigger på det og melder tilbage senere
Avatar billede kabbak Professor
19. juni 2003 - 22:52 #7
Hvordan går det -mundi-
Avatar billede -mundi- Nybegynder
20. juni 2003 - 09:22 #8
jeg har ikke fundet en brugbar løsning endnu
Avatar billede jonbdk Nybegynder
28. juli 2003 - 14:05 #9
Hej
Faldt over dette som ser ud til at relatere - ved ikke om du fandt info om den txt odbc driver fynbohans skriver om, men her er faktisk en rigtig god beskrivelse: http://www.able-consulting.com/MDAC/ADO/Connection/ODBC_DSNLess.htm#ODBCDriverForText
Avatar billede jonbdk Nybegynder
28. juli 2003 - 15:23 #10
Det kom til at se sådan ud:
<%
strConnect =  ";Provider=MSDASQL; Driver={Microsoft Text Driver (*.txt; *.csv)}; DBQ=C:\csv\;"
Set Conn = Server.CreateObject ("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
Conn.Open strConnect
strSQL = "select * from eks5.txt"
set rs = Conn.Execute(strSQL)
if NOT rs.EOF  then
        resultat = rs.getrows()     
        matches = ubound(resultat, 2) 
        response.write "Antal: " & matches
    Dim I
    For I = 0 To (matches)
        response.write " " & resultat(0,i)       
    next
ELSE
response.write "Ingen rækker"
END IF
%>
Du skal dog være opmærksom på, at første linje i tekstfilen IKKE tages med, så du får en EOF hvis der kun er 'en linje
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester