Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/11/2005, 05:33
Alert
 
Fecha de Ingreso: junio-2004
Mensajes: 72
Antigüedad: 20 años, 10 meses
Puntos: 2
Exclamación Consulta sobre Importar archivo a DB

Buenas como estan, tengo un pequeño problema , principalmente estube buscando por todo el foro y no encontre solucion, (quizas se me pace por alto , sorry)

Paso a explicar mi problema:
Tengo una base de datos con la tabla "INGRESO" con 2 campos , ID | POST

al querer leer todo un fichero X ej: archivo.txt e ingresarlo en la Base, me lee linea x linea y lo ingresa de esa manera , quedando un resultado de:

1 | Mi primer linea
2 | Mi segunda linea
(asi sucesivamente, dependiendo de cuantas lineas tenga el archivo)

el codigo que uso es este

Código:
<% 
nombre_archivo = "archivo.txt" 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set archivo = fs.OpenTextFile(Server.MapPath(nombre_archivo), 1) 

do while not archivo.AtEndOfStream 
    linea = archivo.ReadLine 
'Insertando de la forma abajo escrita , no funciona , no ingresa ningun dato
'linea = archivo.ReadAll 

strSql = "INSERT INTO INGRESO (POST) VALUES ('"& linea &"')"
my_Conn.Execute (strSql)

loop 

archivo.Close 
Set archivo = Nothing 
Set fs = Nothing 
%>
Gracias de todas formas por leer este Post
Alguna sugerencia al respecto ??