hola a todos, tengo el siguiente problema, tengo k generar una tabla a la cual le cargo informacion desde un archivo de texto el cual puede ser configurado con tabulaciones, comas, punto y comas, etc (para descomponer los datos e insertarlos en la tabla que se crea, la cual contiene esta info)
para no marearse tanto con el codigo ver desde Set fso = CreateObject("Scripting.FileSystemObject") por ahi esta el error segun yo.
en este momento se me cre la tabla sin problemas, pero al momento de insertar los datos en la db me tira el sig error:
Error de Microsoft VBScript en tiempo de ejecución error '800a0009'
El subíndice está fuera del intervalo: '[number: 5]'
/uploadArchivoTexto.asp, line 59
el codigo que tengo es el sig
set objUpload = new xelUpload
objUpload.Upload()
grupo = objUpload.form("grupo")
radiobutton = objUpload.form("radiobutton")
set objFich = objUpload.Ficheros("archivo")
objFich.Guardar Server.MapPath("cargaDestinatarios")
Aux_imagen = objFich.Nombre
'set oFich = nothing
sql = "CREATE TABLE "&grupo&""
sql = sql + " ("
sql = sql + " id_cliente INT,"
sql = sql + " nombres_cliente TEXT,"
sql = sql + " apellidoPaterno TEXT,"
sql = sql + " apellidoMaterno TEXT,"
sql = sql + " direccion TEXT,"
sql = sql + " fechaNac DATETIME,"
sql = sql + " email TEXT"
sql = sql + ")"
conexion.Execute sql
'aca me crea la tabla sin problemas
Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("cargaDestinatario s") & "\prueba.txt",1,false,0)
If not textStreamObject.AtEndOfStream Then
while not textStreamObject.AtendOfStream
linea = textStreamObject.ReadLine
arreglo = split(linea, chr(13))
for i=0 to ubound(arreglo)
dato = split(arreglo(i), chr(radiobutton))
next
for i=0 to ubound(dato)
temp=split(dato(1), " ")
paterno=temp(0)
materno=temp(1)
sql2 = "INSERT INTO "&grupo&" (nombres_cliente, apellidoPaterno, apellidoMaterno, direccion, fechaNac, email"
sql2 = sql2 + " ) VALUES ("
sql2 = sql2 + " "& dato(0) &","
sql2 = sql2 + " "& paterno &","
sql2 = sql2 + " " & materno & ","
sql2 = sql2 + " " & dato(2) & ","
sql2 = sql2 + " " & dato(3) & ","
sql2 = sql2 + " " & dato(4) & ","
sql2 = sql2 + " " & dato(5) & ""
sql2 = sql2 + ")"
conexion.EXECUTE sql2
next
wend
end if
Set textStreamObject = Nothing
Set fso = Nothing
el archivo, el cual cargo esta configurado de la sig manera:
Carlos Alberto Rodriguez Ramirez los ceibos 0681 08/09/1980
[email protected]
Juan Luis Sepulveda Castañeda Las encinas 1548 01/03/1788
[email protected]
Luisa Angelica Revolledo Fuentes Las condes 2887 05/08/1981
[email protected]
Marco Rojas Ramirez Perales Vic.Mackenna 877 02/06/1979
[email protected]
cualkier tipo de ayuda se agradese desde ya.