Insert desde CSV

[u_goldman]

Bueno, asumiendo que tengamos ya una conexión activa llamada ObjConn, valiéndonos del uso del FileSystemObject para leer el archivo CSV:

Código:

<%
'Obtenemos una ruta
path = Server.Mappath(".")
'Instanciamos el objeto
Set FSO = Server.createObject("Scripting.FileSystemObject")
'Abrimos el archivo
Set miArchivo = FSO.OpenTextFile(path & "\archivo.csv")

'MIentras no se acaben las líneas en el archivo
While not miArchivo.AtEndOfStream
             'Obtenemos un array que identifique al caracter "," como delimitador
	arrValores = split(miArchivo.readline, ",")
	varTemp = ""
             'Incrementamos una variable de acuerdo al número de índices en el arreglo
	For i = 0 to uBound(arrValores)
		varTemp = varTemp & "'" & arrValores(i) & "',"
	Next
             'Le quitamos la última "," a nuestra variable
	varTemp = left(varTemp, len(varTemp) - 1)
             'Imprimimos la salida de la sentencia 
	Response.Write("INSERT INTO TABLA(a,b,c,d,e,f) VALUES(" & varTemp & ")<br>") 
	'Quitar comentario a la siguiente línea
	'ObjConn.Execute("INSERT INTO TABLA(a,b,c,d,e,f) VALUES(" & varTemp & ")")
Wend
%>

Salu2,