Salve a tutti, sono 2 gg che sto impazzendo con questo codice per recuperare dei dati da un txt esportato da db e metterli in un db mysql (sono 6 record)
<%
Dim fsoMyFile
Dim tsTextStream, ConnLOG, SQL, RSlog
Dim sTesto, MioArray, singoloRecord, recArray, iRk
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("tab_archivi o.txt"), 1)
do while not tsTextStream.AtEndOfStream
'Legge tutto il contenuto di un file.
sTesto = tsTextStream.Readline
'response.write "Contenuto del File :
" & sTesto
MioArray = Split (sTesto, vbTab, -1,1)
IF UBOUND(MioArray)<1 THEN
EXIT DO
Else
End If
Dim codcli,file,documento
codcli = MioArray(0)
documento = MioArray(1)
file = MioArray(2)
SQL = " INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' )"
SET rs=Server.CreateObject("ADODB.Recordset")
Set RS = MyConn.Execute(SQL)
Response.Write SQL
Loop
'Chiude il file.
tsTextStream.Close
%>
non mi da errore e se stampo l' sql mi da :
INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' )
il mio primo approccio array non sembra dei migliori
non riesco a valorizzare gli array pare ???
grazie
Rispondi quotando