Data fra csv til mysql via asp

Giv et eksempel på indholdet af filen, og strukturen af tabellen hvor dataene skal i..

filens data info.csv
Dato;Tekst;Beløb;Rentedato;Saldo
09-05-2008;DK 156548987;1.100,00;10-05-2008;358.5654,00

Min connection string
Set Conn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySql};server="& session("SQLserveradr") &";database="& session("SQLdatabase")
conStr = conStr & ";uid="& session("SQLlogin") &";pwd="& session("SQLpassword") & ";OPTION=16386"
Conn.Open conStr

skal sættes ind i en tabel der hedder f.eks. bank_tabel

forresten: hver linje i csv filen afsluttes med en underlig firkant

Hvad hedder felterne i din tabel "bank_tabel", og hvilke typer af de?

Jeg kunne forestille mig, at feltet til "Dato" er af type "dato", og feltet til "tekst" er af typen "tekst" (med op til 255 tegn)..

Skriv venligst kolonnenavn og type..

Eksempel:

Dato: dato
Tekst: tekst
Rentedato: dato
..osv..

Det kan gøre lige meget hvad felttyperne er, for min skyld kan det være tekstfelter, men eller felter med samme navne som min datafil

Dato - dato felt
Tekst - Tekstfelt 150
Beløb - Decimal 5,2
Rentedato - dato felt
Saldo - Decimal 5,2

Men synes nu teksten sagde det hele selv

havde du en løsning ?

Jeg beklager at jeg først svarer nu.. jeg har haft travlt.

Jeg har lavet noget kode, der tager indeholdet fra en  fil ("data.csv") og smider indeholdet i en database ("db1.mdb").

Du skal sådan set bare rette værdien af variablerne der starter med "filnavn_" (dvs, dem der peger på "data.csv" og "db1.mdb"), så de passer med dine filer.

Da der er forskel på dansk dato (dd-mm-åååå) og engelsk dato (mm-dd-åå), kan du altid få problemer på det punkt..

Angående tal med komma.. vær opmærksom på hvad du bruger "," og "." til.. Og jeg mener at det på engelsk er modsat dansk..


Her er koden.. ret variablerne der starter med "filnavn_":

<%
Option Explicit


Dim filnavn_csv, filnavn_db

' --- Redigeringsområde START ---


' Ret filnavnet på filen med dataene her:
filnavn_csv = "data.csv"

' Ret filnavnet på database-filen her:
filnavn_db  = "db1.mdb"


' --- Redigeringsområde STOP  ---


Function FixDouble(s)
s = Replace(s, ".", "")
s = Replace(s, ",", ".")
FixDouble = s
End Function

Dim fso, f, txt
Set fso = server.CreateObject("scripting.filesystemobject")
Set f = fso.opentextfile(server.mappath(filnavn_csv))
txt = f.readall
Set f = Nothing
Set fso = Nothing

Dim arrTekstfil, arrLinier
arrTekstfil = Split(txt, vbCrLf)

Dim connstr, conn, sql
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(filnavn_db)

conn.Open connstr

Dim i, fejl, svar
Dim arr, dato, tekst, beloeb, rentedato, saldo
For i = LBound(arrTekstfil) To UBound(arrTekstfil)

    arrLinier = Split(arrTekstfil(i), ";")

    dato = arrLinier(0)
    tekst = arrLinier(1)
    beloeb = FixDouble(arrLinier(2))
    rentedato = arrLinier(3)
    saldo = FixDouble(arrLinier(4))

    sql = ""
    sql = sql & " insert into bank_tabel (dato, tekst, beloeb, rentedato, saldo)"
    sql = sql & " values(#" & dato & "#, '" & tekst & "', " & beloeb & ", #" & rentedato & "#, " & saldo & ")"

    On Error Resume Next
    conn.Execute(sql)
    If Err.number <> 0 Then fejl = fejl & Err.number & " - " & Err.description & ":<br><b>SQL</b>: " & sql & "<br><br>"
Next

conn.Close
Set conn = Nothing

Response.write Now & ", information:<br><br>"
If fejl <> "" Then
    response.write "Der opstod fejl:<br><br>" & fejl
Else
    response.write "Ingen fejl.. alt ok."
End If
%>

Rettelse:

..dansk dato (dd-mm-åååå) og engelsk dato (mm-dd-åååå)..

det skal ikke køres op i en access database men en mysql database ??

Ahh, ja..

Så skal min "connstr" bare erstattes af din "conStr"

Læg mærke til at der er 2x "n" i navnet på min variabel, og kun 1x "n" i din variabel.

Se f.eks. http://www.aspdev.org/articles/asp-mysql-connect/ hvor de har viser hvordan man hiver data ud..

SQL sætningen "insert" er den samme i Access og MySQL, så vidt jeg ved..

Der kan muligvis være småproblemer med datoer.. f.eks., om der skal være "#" eller ej..

smid et svar så du kan få point

Hermed gjort.