Como hago para pasar un archivo .TXT a una Base de Datos SQL Server con ASP.

[gabyamenta]

Hola a todos... En varios foros he visto como pasar archivos desde una pagina web a Excel, pero en este caso, necesito pasar un archivo .TXT a una base de datos en SQL Server, mediante una pagina WEB.
En el archivo TXT se presenta informacion tal como:
Nombre, número de teléfono y dirección.
Ese archivo se descarga diariamente y se requiere guardar el nombre, número de teléfono y dirección en una tabla de tres campos.

Gracias de antemano.....

[Myakire]

y cual es el problema exactamente que tienes?

¿Que tienes ya? ¿ya tienes el upload del txt? si es así ¿el problema es leerlo con FSO? o quizá el separar los campos con un SPLIT y guardarlos en la tabla?

Necesitamos más datos específicos

[gabyamenta]

No se como hacerlo, ni que comando debo usar?

Gracias...

[Shiryu_Libra]

profe, por que no mejor la dejamos que mire ESTE POST, de la mini-competencia, donde hace exactamente lo que ella ocupa

lo unico que tendria que hacer ella es mirar cualquiera de los codigos de los programas, para que realize la lectura que necesita

en dudas ya nos respondera

[gabyamenta]

Creo que no me he explicado bien, porque revise el link que me mandaron y no contesta mi pregunta, explico nuevamente.

Tengo un archivo datos.txt, el cual contiene la información de la siguiente manera:

Pedro Perez 0000-000.0000 av. principal, calle XX, zona posta 1111
Luis Rojas 0000-111.1111 Calle San Juan, Edif. xxxx
Marcela Rivas 0000-222.2222 Calle principal, Casa Nº XX, Urbanización XXXX

y tengo una base de datos que tiene una tabla llamada datos, con los campos:

1.- Nombre
2.- Telefono
3.- Direccion

El archivo datos.txt se encuentra en una carpeta local de un computador y requiero almacenar los datos del archivo txt en la tabla datos. La base de datos esta creada en SQL Server.

El código para realizar este proceso debe ser en ASP.

De antemano les comento que no tengo idea de como se debe hacer, asi que cualquier ayuda se los sabre agradecer...

[Shiryu_Libra]

bueno desenredemos todo esto, analizemos

el post anterior era para que tu descargaras alguno de los programas, el cual, el objetivo secundario de este programa, era leer un archivo de texto (*.inc), solo con extension diferente.... pero eso no era el caso, sino que tu vieras el codigo el cual permite leer los datos y desplegarlos, por consecuencia

funcion de lectura

Código PHP:

  sub lectura(modo)
    Dim fso, f1, ts, s, a, i
    Const ForReading = 1
    Set fso = CreateObject("Scripting.FileSystemObject")' Leer los contenidos del archivo.
    select case modo
        case 1
        var=session("file")
        Set ts = fso.OpenTextFile(server.MapPath(var), ForReading)
        %><label>Lista de Contactos</label><select id="contactos" onChange="javascript:document.getElementById('para').value=this.value;document.getElementById('txto').focus();"><%
            Do while not ts.AtEndOfStream
                'response.Write j&"- "
                a=split(ts.ReadLine,",")
            %><option value="<%=a(0)%>" style="background-color:<%=a(2)%>;"><%=a(1)%></option><%
            loop
        %></select><%
    end select
    ts.Close
end sub 
   

esta funcion permite leer un archivo de texto con una estructura de este tipo:

127.127.127.127,Pepe,Este tipo de textos leera

denotamos las comas, ya que funcion separa las palabras o cadenas de texto si encuentra las comas

ahora con la funcion FreeASPupload

Código PHP:

  <%
' ****************************************************
'FAVOR DE MODIFICAR ESTA LINEA A DONDE SE UTILIZARA ESTA APLICACION
  uploadsDirVar = server.MapPath("./")
' ****************************************************
'FUNCION QUE NOS PERMITIRA SUBIR LA LISTA DE CONTACTOS A NUESTRO SISTEMA
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    ' If something fails inside the script, but the exception is handled
    If Err.Number <> 0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        resumen = "<B>Archivos subidos:</B> "
        for each fileKey in Upload.UploadedFiles.keys
'            resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
            session("file")=Upload.UploadedFiles(fileKey).FileName
        next
    else
        resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema."
    end if
    'comentar la siguiente linea si no se desea mostrar el resumen
'    SaveFiles = resumen
end function 
   

esta funcion permitira subir archivos al servidor, pero logicamente esto podra cambiar dependiendo si ya tienes tus codigos de upload de archivos, lo pongo como ejemplo nada mas

ahora de que te sirve saber esto....

una ves que ya tienes todos los datos desplegados tambien podras crear una rutina en la cual podras actualizar todos tus datos en la tabla que mencionas de SQL, solo que tendrias que hacerle una variante a la primera funcion que esta escrita

[gabyamenta]

Ok voy a revisar y cualquier cosa aviso