Importere *.txt filer til Accessdatabase via asp side

Jeg ved at i MySQL,
er der en fucktion som hedder \"drop\", hvor den importere TXT, men jeg ved desværre ikke med acces :o(

hmmm...det er ikke særlig smart å legge selve filene i databasen. Du skal heller legge inn navnet på filene, og når du skal bruke dem, så henter du filnavnene fra databasen, åpner selve filen og parser igjennom den...

/nute

Det er innholdet i txt filene som skal inn i databasen. ikke selve filen.

Der er lidt om det på denne side http://www.codelink.dk/codelink_view_link.asp?id=1738

det er det jeg mener...et er ikke særlig smart å legge hele innholdet av filen inn i databasen....

aaaahhh....tror jeg forstår hva du mener.

egentlig er dine txt filer en \"kopi\" av din tabellstruktur. Du mottar en txt fil med \"ett record\" i din tabell ? stemmer det ?

Stemmer det, nute!

:-D oki...så er det jo litt enklere å hjelpe :-D

har alle dine filer samme struktur ?

Ja, det har de.

kan du poste formatet av en fil ?

Du tenkte på txt filen?

jepp...

Jeg prøver å legge den ut på denne siden, men er ikke sikker på hvordan den blir sende ut her.

Butikk;Enhetsnummer;Poststednavn;Poststedadresse;Besoksadresse;Telefon
test;test;test;test;test;test

I see....skal til frokost, men ser på det etter det, oki ?

Den er grei!

skal/kan filene slettes etter at de er lagt inn i databasen ?

Ja, jeg vil at filene skal slettes etter at de er lagt inn i databasen.

oki....er igang med å skrive et utkast til deg...

Flott!!

prøv dette...(test på filer som du kan slette...lag noen \"fake\"filer med samme struktur som de \"ekte\" filene):

<%
Set Conn                 Server.CreateObject(\"ADODB.Connection\")

#############################
# ÅPNE DIN CONNECTION HER!  #
#############################

Set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myFolder    = myFileObject.getFolder(\"c:\\[din folder]\");
Dim SQL, col
SQL = \"\"
element
for each file in myFolder
  Set myFile = myFileObject.openTextFile( file, ForReading )
    SQL = SQL & \"INSERT INTO [dintabell] (\"\'Butikk,Enhetsnummer,Poststednavn,Poststedadresse,Besoksadresse,Telefon) 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
    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   
    SQL = SQL & \")\"
    Conn.execute( SQL )
    response.write myFile & \" saved and deleted<br>\"
    myFile.delete
next
response.write \"<br><b>All done!!</b>\"
Conn.Close
set myConn = nothing
%>

/nute

Skal teste den nå

Får følgene melding:Server object error \'ASP 0177 : 800a004c\'

Server.CreateObject Failed

/admin/import.asp, line 4

The operation completed successfully.

hva ligger i linje 4 ?

Set myFolder    = myFileObject.getFolder(\"../admin/pibfiler\");

Jeg slettet \";\", men hvis jeg har med \";\"  får jeg følgene melding: Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/admin/import.asp, line 4

Set myFolder    = myFileObject.getFolder(\"../admin/pibfiler\");
-------------------------------------------------------------^

hov...jeg kan se det ligger en semikolon etter den linje...den skal ikke være der...

eller...

prøv enten å skrive hele stien til filen fx:

Set myFolder    = myFileObject.getFolder(\"c:\\www\\enfolder\\admin\\pibfiler\")

legg merke til backslash istedefor vanslig slash ( / )

eller

Set myFolder    = myFileObject.getFolder( Server.MapPath(\"../admin/pibfiler\") )

/nute

Men, blir denne linen riktig?: \"SQL = SQL & \"INSERT INTO test1.mdb (\"\'Butikk,Enhetsnummer,Poststednavn,Poststedadresse,Besoksadresse,Telefon) VALUES \" Tenkte på hvilken tabell den skal inn i? Jeg har nå laget en database som heter \"test\" og en tabell som heter \"test1\".

Gjorde som du sa, fikk denne meldingen: Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'element\'

/admin/import.asp, line 7

fjern den linje hvor det står elment....det er bare en linje som jeg tenkte å skrive noe på , men glemte å fjerne den igjen... :)

ikke for at blande mig men...

\"SQL = SQL & \"INSERT INTO test1.mdb

burde være \"SQL = SQL & \"INSERT INTO [din_tabel_i_db\'en_og_ikke_selve_db_filnavnet]

du har fulltendig rett cyberfessor.....den hadde jeg oversett... :)

takker :)

altså \"SQL = SQL & \"INSERT INTO test1

Har gjort som nevnt over, vi nærmer oss nok slutten, men denne feilmeldingen kom nå: Microsoft VBScript compilation error \'800a041f\'

Unexpected \'Next\'

/admin/import.asp, line 31

next
^

Denne \"next\" er 5 linjer før slutten i scriptet. (hvis du skjønner hva jeg mener)

hmmm....prøv denne:

<%
Set Conn                Server.CreateObject(\"ADODB.Connection\")

#############################
# ÅPNE DIN CONNECTION HER!  #
#############################

Set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myFolder    = myFileObject.getFolder(\"c:\\[din folder]\")
Dim SQL, col
SQL = \"\"
for each file in myFolder
  Set myFile = myFileObject.openTextFile( file, ForReading )
  SQL = SQL & \"INSERT INTO [dintabell] (\"
   
  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
  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   
  SQL = SQL & \")\"
  Conn.execute( SQL )
  response.write myFile & \" saved and deleted<br>\"
next

for each file in myFolder
  Set myFile = myFileObject.getFile( file )
  myFile.delete
next

response.write \"<br><b>All done!!</b>\"
Conn.Close

set myConn = nothing
%>

/nute

Forsatt feil i \"Next\". Microsoft VBScript compilation error \'800a041f\'

Unexpected \'Next\'

/admin/import2.asp, line 34

next
^


-legger ved hvilken next:
SQL = SQL & \")\"
  Conn.execute( SQL )
  response.write myFile & \" saved and deleted<br>\"
next

for each file in myFolder
  Set myFile = myFileObject.getFile( file )
  myFile.delete
next

response.write \"<br><b>All done!!</b>\"
Conn.Close

set myConn = nothing
%>
PS! Den er den øverste \"next\" som ligger i linje 34.

hmmm....jeg kan ikke se hva som er galt...kan du prøve å kjøre dette enkle scriptet ?
<%
Set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myFolder    = myFileObject.getFolder(\"c:\\[din folder]\")
for each file in myFolder
  Set myFile = myFileObject.getFile( file )
  response.write \"Fil: \" & myFile & \"<br>\"
next
%>

/nute

Testet:
Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method

/admin/test1.asp, line 4

hva er i linje 4 ?

hvis det er denne linje:

Set myFolder    = myFileObject.getFolder(\"c:\\[din folder]\")

så skal du huske å angi din folder...

Nei denne: \"for each file in myFolder \"

hehe... er I helt sikre på at fso ikke er disabled på serveren??

men så er det merkelig at han kan opprette objektet, men ikke iterere gjennom filene....

Er det noe jeg kan prøve på?? Med serveren. Jeg kan ta kontakt med IT-ansvarlig for webserveren hvis han skal sjekke om noe er disabled.

Testet dette skriptet og det fungerte. Fant det hos microsoft:
<%
      \'Reference the FileSystemObject
      set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
     
      \'Reference the Text directory
      set Folder = FSO.GetFolder(\"d:\\pks\\admin\\pibfiler\")

      \'Reference the File collection of the Text directory
        set FileCollection = Folder.Files

      Response.Write(\"VBScript Method<BR>\")

      \'Display the number of files within the Text directory
      Response.Write(\"Number of files found: \" & FileCollection.Count & \"<BR>\")

      \'Traverse through the FileCollection using the FOR EACH...NEXT loop
      For Each FileName in FileCollection

        strFileName = FileName.Name
        Response.Write(strFileName & \"<BR>\")

      Next

      \'De-reference all the objects
      set FileCollection = Nothing
      set Folder = Nothing
      set FSO = Nothing

  %>

-Kan du bruke noe av det over til det opprinnelige scriptet du lagde, nute??

jeg har det litt travelt akkurat nå....kan jeg se på det om litt ?

Det, går bra! Jeg drar hjem fra jobb nå, men jeg kan jo teste dette  hjemme ifra, senere i dag.

oki

tjaa... måske en gaaaammel iis der ikke understøtter det :D

nå har jeg merget begge scripts...

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")

#############################
# ÅPNE DIN CONNECTION HER!  #
#############################

\'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 = myFileObject.openTextFile( strFileName, ForReading )
  SQL = SQL & \"INSERT INTO [dintabell] (\"
   
  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
  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   
  SQL = SQL & \")\"
  Conn.execute( SQL )
  response.write strFileName & \" saved<br>\"

Next

\'De-reference all the objects
set FileCollection = Nothing
set Folder = Nothing
set FSO = Nothing

response.write \"<br><b>All done!!</b>\"
Conn.Close

set Conn = nothing
%>

/nute

Fikk denne meldingen: Microsoft VBScript runtime error \'800a01a8\'

Object required: \'myFileObject\'

/admin/test3.asp, line 21

sorry...bytt myFileObject ut med FSO :)

Har gjort det, men .... \"Server object error \'ASP 0177 : 80070057\'

Server.CreateObject Failed

/admin/test3.asp, line 21

The operation completed successfully.

jeg vet ikke hva som ligger i de linjene du referer til....du er nødt til å poste dem sånn at jeg kan se hva som er galt...

Set myFile = FSO.openTextFile( strFileName, ForReading )

hmmm....det er tydelig at du sitter med en gammel version av ASP på serveren. Kan du ikke sende meg linken til det stedet hvor du fant det scriptet du postet til meg, så skal jeg se om jeg ikke kan finne ut av noe.

Evt prøv

Set myFile = FSO.openTextFile( strFileName)

i  linje 21...

/nute

Her har du linken: http://support.microsoft.com/support/kb/articles/Q229/6/93.ASP?LN=EN-US&SD=gn&FR=0&qry=%20Q229693&rnk=1&src=DHCS_MSPSS_gn_SRCH&SPR=FP2000

prøv:

Set myFile = myFileObject.openTextFile(\"d:\\pks\\admin\\pibfiler\\\" & strFileName )

/nute

Fikk denne:ADODB.Connection error \'800a0e78\'

Operasjonen programmet ba om er ikke tillatt hvis objektet er lukket.

/admin/test3.asp, line 46

Linje 46 =  Conn.execute( SQL )

du skal åpne din connection hvor jeg har skrevet

#############################
# ÅPNE DIN CONNECTION HER!  #
#############################

den vil typisk se sånn ut:

Conn = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"[fil til database]\")

hvor du skal bytte ut

[fil til database]

med stien til din database...

/nute

Selvfølgelig, vi nærmer oss nå, men...
Microsoft VBScript runtime error \'800a01a8\'

Object required: \'Conn\'

/admin/test3.asp, line 48

Linje 48 = Conn.execute( SQL )

Jeg satte inn \"conn.open\", men da ble det en feil i denne setningen:Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntaksfeil i INSERT INTO-setningen

/admin/test3.asp, line 45

så nærmere vi oss....

istedenfor å skrive:

Conn.execute( SQL )

skriver du

response.write SQL & \"<br>\" og post 1 linje av den utskriften du (forhåpentligvis) får

/nute

INSERT INTO test1 (Butikk, Enhetsnummer, Poststednavn, Poststedadresse, Besoksadresse, Telefon, ) VALUES (\'Kiwi Solbergelva\', \'122107\', \'Solbergelva\', \'3056 Solbergelva\', \'Solbergsentret\', \'32872190\')
122107.txt saved
INSERT INTO test1 (Butikk, Enhetsnummer, Poststednavn, Poststedadresse, Besoksadresse, Telefon, ) VALUES (\'Kiwi Solbergelva\', \'122107\', \'Solbergelva\', \'3056 Solbergelva\', \'Solbergsentret\', \'32872190\')INSERT INTO test1 (test.mdb saved

problemet er at den går inn i denne if... en gang for mange...


if( i <> UBOUND(valArr) ) then
  SQL = SQL & \", \"
end if

du er sikker på at den linjen med dine kolonnenavn ikke avsluttes med et semikolon ?

Du er UTROLIG dyktig, nute!!!!! Selvfølgelig hadde det sniket seg inn et semikolon der. Datene kom inn i databasen, men denne meldingen kom:122107.txt saved

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Mangler semikolon (;) i slutten av SQL-setningen

/admin/test3.asp, line 46

Linje 46 =Conn.execute( SQL )

Jeg fikk lagt inn delete fuktionen selv. Men meldingen som er over kommer helt til det kun er 1 fil igjen i mappen, eller hvis det ligger kun en filn i mappen. Jeg må trykke på oppdater x antall ganger for å komme til den siste filen som ligger igjen i mappen. Når denne blir tatt kommer ikke feilmeldingen. Men du har gjort en bra jobb, så jeg gir deg dine point. (De er fortjent, nute!) Men hvis du hadde hatt løsningen på det siste problemet, så hadde denne vært perfekt!

Odd

du kan prøve å bytte den første av disse:

if( i <> UBOUND(valArr) ) then
  SQL = SQL & \", \"
end if

med

if( i <> UBOUND(valArr) - 1 ) then
  SQL = SQL & \", \"
end if

så tror jeg du skal bli kvitt overnevnte feil...

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntaksfeil i INSERT INTO-setningen

/admin/test3.asp, line 48

-Da fikk jeg denne feilen

hmmm.....


bytt til den gamle versjonen igjen:
if( i <> UBOUND(valArr) ) then
  SQL = SQL & \", \"
end if


men skriv:

response.write \"Lengde: \" & UBOUND(valArr)

over selve if( i <> UBOUND(valArr) ) then

post resultatet til meg...

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/admin/test3.asp, line 30

end if
^

det var da besynderlig....du har ikke to \"end if\" etter hverandre ?

Lengde: 5Lengde: 5Lengde: 5Lengde: 5Lengde: 5Lengde: 5
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntaksfeil i INSERT INTO-setningen

/admin/test3.asp, line 42

Linje 42 = Conn.execute( SQL )

oki...bytt ut den første

if( i <> UBOUND(valArr) ) then
  SQL = SQL & \", \"
end if

med

if( i <> 5 ) then
  SQL = SQL & \", \"
end if

Så skulle du ikke få denne feilen lenger

Jepp, nå fungerte det!! Du fikk vel dine point istad?? Takk for all hjelp, nute! Du er utrolig dyktig!

Odd

jeg fikk mine points ja...etter en hel dags arbeide..pyha...men det var godt at det fungerte til sist :-D

det var bare hyggelig å hjelpe...selv takk

Knut