Importazione CSV in MySQL

[[trodat]]

Ciao a tutti.

Con uno script ASP importo un file csv in mysql.

Va tutto bene, ma non capisco perchè nell'inserimento la query registra anche quelli che dovrebbero essere i nomi delle colonne.

D:\Inetpub\wwwroot\PSIC20071031144905.csv

INSERT INTO tbl ( sis, origine, `id sistema` ) VALUES ( 'sis', 'origine', 'idsistema' )

Sapete aiutarmi?

<%

Server.ScriptTimeout = 10000 
Response.Buffer = false

  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  strURL = Server.MapPath("PSIC20071031144905.csv")

  Set objFile = objFSO.OpenTextFile(strURL)
  Do While Not objFile.AtEndOfStream

  	strText = objFile.readLine
	arrText = split(strText, ",", 17)
	
strSIS = replace(arrText(0), """", " ")
strORIGINE = replace(arrText(1), """", " ")
strIDSISTEMA = replace(arrText(2), """", " ")
	
strSql = "INSERT INTO " 
strSql = strSql & " tbl " 
strSql = strSql & " ( " 
strSql = strSql & " sis, "
strSql = strSql & " origine, " 
strSql = strSql & " `id sistema` "
strSql = strSql & " ) " 
strSql = strSql & " VALUES " 
strSql = strSql & " ( " 
strSql = strSql & " '"& replace(strSIS, " ", "") & "', " 
strSql = strSql & " '"& replace(strORIGINE, " ", "") & "', "
strSql = strSql & " '"& replace(strIDSISTEMA, " ", "") & "' "
strSql = strSql & " ) " 

cn.execute(strSql)

  Loop
  

  objFile.Close
  Set objFile = Nothing
  
  cn.Close
  Set cn = nothing
  
  %>

[Mems]

Perchè devi iniziare dalla seconda riga del file in poi.

<%

Server.ScriptTimeout = 10000 
Response.Buffer = false

salta = true

  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  strURL = Server.MapPath("PSIC20071031144905.csv")

  Set objFile = objFSO.OpenTextFile(strURL)
  Do While Not objFile.AtEndOfStream

if not salta then

  	strText = objFile.readLine
	arrText = split(strText, ",", 17)
	
strSIS = replace(arrText(0), """", " ")
strORIGINE = replace(arrText(1), """", " ")
strIDSISTEMA = replace(arrText(2), """", " ")
	
strSql = "INSERT INTO " 
strSql = strSql & " tbl " 
strSql = strSql & " ( " 
strSql = strSql & " sis, "
strSql = strSql & " origine, " 
strSql = strSql & " `id sistema` "
strSql = strSql & " ) " 
strSql = strSql & " VALUES " 
strSql = strSql & " ( " 
strSql = strSql & " '"& replace(strSIS, " ", "") & "', " 
strSql = strSql & " '"& replace(strORIGINE, " ", "") & "', "
strSql = strSql & " '"& replace(strIDSISTEMA, " ", "") & "' "
strSql = strSql & " ) " 

cn.execute(strSql)

else

salta = false

end if

  Loop
  

  objFile.Close
  Set objFile = Nothing
  
  cn.Close
  Set cn = nothing
  
  %>

[[trodat]]

Grazie, ma:

INSERT INTO tbl ( sis, origine, `id sistema`, `data evento` ) VALUES ( 'sis', 'origine', 'idsistema', 'dataevento' )


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]Incorrect date value: 'dataevento' for column 'data evento' at row 1


/Default.asp, line 47

[optime]

i nomi di colonna metti tra [] non tra ''

[Mems]

code]
strSql = strSql & " [id sistema] "
[/code]

[[trodat]]

Il DB è MYSQL... le parentesi quadre non sono accettate si sostituiscono con gli apici ` quando il campo della tbl contiene spazi...

Ho provato così ma non va:

<%

Server.ScriptTimeout = 10000 
Response.Buffer = false

  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  strURL = Server.MapPath("PSIC20071031144905.csv")
  
  response.write strURL &"

"

  Set objFile = objFSO.OpenTextFile(strURL)
  
i = 1

  Do While Not objFile.AtEndOfStream
  
if i > 1 then

  	strText = objFile.readLine
	arrText = split(strText, ",", 17)
	
strSIS = replace(arrText(0), """", " ")
strORIGINE = replace(arrText(1), """", " ")
strIDSISTEMA = replace(arrText(2), """", " ")
strDATAEVENTO = replace(arrText(3), """", " ")

strSql = "INSERT INTO " 
strSql = strSql & " tbl " 
strSql = strSql & " ( " 
strSql = strSql & " sis, "
strSql = strSql & " origine, " 
strSql = strSql & " `id sistema`, "
strSql = strSql & " `data evento` "
strSql = strSql & " ) " 
strSql = strSql & " VALUES " 
strSql = strSql & " ( " 
strSql = strSql & " '"& replace(strSIS, " ", "") & "', " 
strSql = strSql & " '"& replace(strORIGINE, " ", "") & "', "
strSql = strSql & " '"& replace(strIDSISTEMA, " ", "") & "', "
strSql = strSql & " '"& replace(strDATAEVENTO, " ", "") & "' "
strSql = strSql & " ) " 

cn.execute(strSql)

end if

   i = i + 1

  Loop
  

  objFile.Close
  Set objFile = Nothing
  
  cn.Close
  Set cn = nothing
  
  %>

:master:

[optime]

a sto punto il problema è il contenuto del campo data nel csv

[[trodat]]

Originariamente inviato da optime
a sto punto il problema è il contenuto del campo data nel csv

Infatti è la prima riga del csv che contiene:

sis,"origine","id sistema","data evento",

e che devo saltare perchè altrimenti la query va in errore perchè invece di trovarsi i valori delle righe trova i nomi delle colonne:

INSERT INTO tbl ( sis, origine, `id sistema`, `data evento` ) VALUES ( 'sis', 'origine', 'idsistema', 'dataevento' ) 


Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]Incorrect date value: 'dataevento' for column 'data evento' at row 1

[[trodat]]

Risolto, esiste un apposito comando:

http://www.w3schools.com/asp/met_skipline.asp

 Do While Not objFile.AtEndOfStream
  objFile.SkipLine()