ASP e MySQL: LOAD DATA INFILE

[orcim]

Ciao a tutti.

In una cartella del server mi ritrovo un certo numero di file di testo del tipo:

_EBT_2010_AA80.txt

Hanno tutti lo stesso nome tranne la parte finale, cioè:

_EBT_2010_AA30.txt
_EBT_2010_AA67.txt
_EBT_2010_AA45.txt

Devo importarli in mysql con questa sintassi:

   strSql = " LOAD DATA INFILE 'C:/inetpub/BOX/_EBT_2010_AA80.txt' "
   strSql = strSql & " INTO TABLE _temp "
   strSql = strSql & " FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\r\n' IGNORE 1 LINES ; "
   cn.execute strSql

Devo fare enne query quanti sono i files txt (4 in questo caso) da importare o esiste un altro modo più rapido?

I files txt possono anche essere 30 in una sola volta...

Grazie

[kalosjo]

Se vuoi fare una procedura automatica tramite filesystemobject puoi fare un ciclo su tutti i files e per ognuno eseguire quella query

[orcim]

Originariamente inviato da kalosjo
Se vuoi fare una procedura automatica tramite filesystemobject puoi fare un ciclo su tutti i files e per ognuno eseguire quella query

Grazie, ma non mi è chiaro quello che suggerisci.
Hai un esempio da cui prendere spunto ?
Ciao

[kalosjo]

Se cerchi su questo forum filesystemobject trovi una valle

[orcim]

Grazie, ho fatto così e funziona:

   Set cn = CreateObject("ADODB.Connection")
   cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=_DB;USER=root;PASSWORD=XXXXXX;OPTION=3;" 
   
   set fs = CreateObject("Scripting.FileSystemObject")
   
   if fs.FileExists("C:/inetpub/BOX/_EBT_2010_AA80.txt") = true then

   strSql = " LOAD DATA INFILE 'C:/inetpub/BOX/_EBT_2010_AA80.txt' "
   strSql = strSql & " INTO TABLE _temp "
   strSql = strSql & " FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\r\n' IGNORE 1 LINES ; "
   cn.execute strSql

   end if
   
   set fs = nothing
  
   cn.Close()
   Set cn = Nothing

Ma devo ripetere la stessa operazione per quanti sono i files txt da importare nel db?

[supermac]

si ma la puoi fare con un ciclo senza neanche preoccuparti del nome del file, tipo

Set cn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
set radice = fso.getFolder("C:/inetpub/BOX/")
Set Myfiles = radice.Files
For Each fs in Myfiles
   strSql = " LOAD DATA INFILE 'C:/inetpub/BOX/" & fs.name & "' "
   strSql = strSql & " INTO TABLE _temp "
   strSql = strSql & " FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\r\n' IGNORE 1 LINES ; "
   cn.execute strSql
next
set fs = nothing
cn.Close()
Set cn = Nothing

[orcim]

Fantastico, grazie mille !

Scusa la domanda ma se nella stessa cartella ho dei files con nome diverso e che non mi interessa importare, como posso escluderli?

[supermac]

mi sa che l'unica è verificarne il nome fs.name
(if left(fs.name,9)="_EBT_2010".... ad esempio) a meno che non abbiano qualche altro tratto distintivo che ti permette di escluderli dal ciclo

[orcim]

Originariamente inviato da supermac
mi sa che l'unica è verificarne il nome fs.name
(if left(fs.name,9)="_EBT_2010".... ad esempio) a meno che non abbiano qualche altro tratto distintivo che ti permette di escluderli dal ciclo

Ottimo e abbondante!
Grazie mille!

[supermac]

poter aiutare è un piacere