Indlæs fil Database....

Der er du nødt til at lave et script der kan gøre det for dig. Der findes ikke en decideret funktion til det.

Ja men hvordan ser det script ud?

Læs hvad jeg skrev: \"Der er du nødt til at lave et script\"

Hvilken database ?

fra en kommafil til access

jeg bruger denne:


<html><head></head><body>
<p></p>

</head><body style=\"background-color: #FFF7CE\">

<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Leveringsstatistik aftaler.</title>
</head>
<FONT SIZE=\"6\" COLOR=\"#3300CC\"><CENTER><B>Et øjeblik, henter data og opdatere databasen med de nye data.</B>
</CENTER><BR>

<body>



<%
\'-----------------------------------------
\'opdatere databasen udfra filen data2.txt
\'-----------------------------------------

Server.ScriptTimeout = 3000


Set Conn = Server.CreateObject(\"ADODB.Connection\")
FilePath = Server.MapPath(\"database.mdb\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & FilePath & \",\"

Set op = CreateObject(\"Scripting.FileSystemObject\")
Set fil = op.OpenTextFile(server.mappath(\"data2.txt\"))
antal =0

do while not fil.AtEndOfStream
antal =antal +1
    Line = fil.readline
    LineSplit = split(Line,\";\")

    SQL_Found = \"SELECT id FROM akunde WHERE kunde_nr = \'\" & linesplit(0) & \"\' and sted = \" & linesplit(2) &\" and aar = \" & linesplit(3) &\" and uge = \" & linesplit(4) &\"\"
    Set Found = Conn.Execute(SQL_Found)

    If Found.EOF or Found.BOF Then
   

SQL_Insert = \"INSERT INTO akunde (kunde_nr,kunde_navn,sted,aar,Uge,Akunder,Akunder_forsinket,Aaftaler,Aaftaler_forsinket,KAftaler,KAftaler_forsinket,SAftaler,SAftaler_forsinket) VALUES (\'\" & linesplit(0) & \"\',\'\" & linesplit(1) & \"\',\" & linesplit(2) & \",\" & linesplit(3) & \",\" & linesplit(4) & \",\" & linesplit(5) & \",\" & linesplit(6) & \",\" & linesplit(7) & \",\" & linesplit(8) & \",\" & linesplit(9) & \",\" & linesplit(10) & \",\" & linesplit(11) & \",\" & linesplit(12)& \")\"
      \'response.write SQL_Insert
Conn.Execute(SQL_Insert)



        Else



    SQL_Update = \"UPDATE akunde SET kunde_navn = \'\" & linesplit(1) & \"\',Akunder = \" & linesplit(5) & \",Akunder_forsinket = \" & linesplit(6) & \",Aaftaler = \" & linesplit(7) & \",Aaftaler_forsinket = \" & linesplit(8) & \",Kaftaler = \" & linesplit(9) & \",Kaftaler_forsinket = \" & linesplit(10) & \",Saftaler = \" & linesplit(11) & \",Saftaler_forsinket = \" & linesplit(12) & \" WHERE ID = \" & Found(\"id\") & \"\"
    Conn.Execute(SQL_Update)
    End If
       
loop
set fil = nothing
set Found = nothing








\'--------------------------
\'Sletter filen data.txt
\'--------------------------
set fil = nothing
set RS = nothing

strFile = Server.MapPath(\"data2.txt\")
    \'Response.Write strFile
\'strFile = \"data.txt\"
set fso = server.createobject(\"scripting.filesystemobject\")
fso.deletefile(strFile)
set fso = nothing

%>

<BR><BR>
<FONT SIZE=\"6\" COLOR=\"#3300CC\"><CENTER><B>Har opdateret..:</B><B><%=antal%></B> <B>rækker i databasen</B><BR><BR>

<FONT SIZE=\"4\" COLOR=\"#3300CC\"><CENTER><B>og slettet komma-filen</B>
<BR><BR><BR>
<a href=\"default.asp\" style=\"color: #3300FF\">Tilbage </a></font></td>

</CENTER></FONT></body>



Du skal jo så bare lige ændre koden så det passer til din db

fordelen er jo så hvis dine data findes i forvejen ja så ændre koden bare de nuværende data til de data der er i din komma fil