"rohmann" <rohmann@esenet.dk> skrev i en meddelelse
news:99avka$aui$1@news.inet.tele.dk...
> Jeg skal hente data fra en scanner og disse vil forekomme i en komma
> separeret fil. Jeg ønsker at lægge disse data ned i databasen. Hvordan
bærer
> jeg mig ad med det.
>
Prøv dette her. Den virker godt hos mig. Jeg skriver en ascii log fil, som
jeg læser ind i en database for at kunne behandle dem videre.
Husk, at du skal have rettigheder til at skrive i biblioteket....
God fornøjelse
vh/mik
<!--#include virtual="/system/includes/AdoVbs.inc"-->
<%
' =============================================
' Konstanter og variabler
' =============================================
' Konstanter til FSO/ASCII fil
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
ConnectionString =
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"database\ABC.mdb;" &
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"database\;" &
"Driver={Microsoft Access Driver (*.mdb)};" & "DriverId=25;FIL=MS Access;" &
"ImplicitCommitSync=Yes;" & "MaxBufferSize=512;" & "MaxScanRows=8;" &
"PageTimeout=5;" & "SafeTransactions=0;" & "Threads=3;UID=admin;" &
"UserCommitSync=Yes;"
' Navn på filen skal allokeres dynamisk senere.
BasePath = Request.ServerVariables("APPL_PHYSICAL_PATH")
' Sæt database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnectionString
Set DbRec = Server.CreateObject("ADODB.Recordset")
DbRec.Open "BesoegsRapport", Conn, adOpenKeyset, adLockOptimistic,
adCmdTable
response.write "Start på kørsel<p>"
AsciiFile = BasePath + "database\kommasep.fil
Set objCtrlFso = Server.CreateObject("Scripting.FileSystemObject")
if objCtrlFso.FileExists(AsciiFile) then
' Læs i filen, hvis den eksisterer
Set CtrlFile = objCtrlFso.OpenTextFile(AsciiFile, ForReading)
do while not CtrlFile.AtEndOfStream
DataLinie = CtrlFile.ReadLine
' Fjern pinger
DataLinie = replace(DataLinie, """;""", ";")
DataLinie = replace(DataLinie, """", "")
' Split på ;
SplitArray = Split(DataLinie, ";")
'response.write SplitArray(6) & "<br>"
DbRec.AddNew
DbRec("A") = SplitArray(0)
DbRec("B") = SplitArray(1)
DbRec.update
loop
CtrlFile.close
Set CtrlFile = nothing
end if
response.write "Slut på kørsel"
' Luk recordset
Set DbRec = Nothing
Set Conn = Nothing
%>