07/10/2004, 09:24
|
| | | Fecha de Ingreso: febrero-2004 Ubicación: Ccs
Mensajes: 54
Antigüedad: 21 años, 2 meses Puntos: 0 | |
| Espero te sirva
Hola! sigue los comentarios del código para ver si te puedes ayudar con esto que utilizo yo
Código:
<body>
<%
'Declaración de Variables
Dim FSO, oFichero, oConn, nombre_cliente, numero_cliente, modalidad, monto, salida, cupo
'Declaración del objeto
set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Aqui en el mappath colocas el nombre del archivo que vas a trabajar
set oFichero=FSO.OpenTextFile(Server.MapPath("comite.txt"))
'Conectas con la base de datos donde crearás la tabla
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open "DSN=tubasededatos"
'Comienza el recorrido por el plano
Archivo = oFichero.ReadAll
Archivo = Split(Archivo, vbcrlf)
'Yo le coloco acá -1 porque en mi plano el último caracter no lo quiero leer porque viene de una generación de AS/400, como no es tu casa lo colocas sin esto
For i=1 to UBound(Archivo) -1
'Comienzas a declarar tus variables futuros campos de acuerdo a las posiciones en la que se encuentran los datos en el plano, la primera (,) dice la posición y la segunda dice cuantos caracteres son para ese campo
nombre_cliente = Trim(Left(Archivo(i), 25))
numero_cliente = Trim(Mid(Archivo(i), 27, 12))
modalidad = Trim(Mid(Archivo(i), 40, 15))
monto = Trim(Mid(Archivo(i), 56, 15))
salida = Trim(Mid(Archivo(i), 72, 1))
cupo = Trim(Mid(Archivo(i), 74, 1))
'Ejecutas una sentencia con SQL para la creación de los registros en la tabla
SQL="Insert into tutabla (nombre_cliente, numero_cliente, modalidad, monto, salida, cupo) values ('"&nombre_cliente&"','"&numero_cliente&"','"&modalidad&"','"&monto&"','"&salida&"','"&cupo&"')"
oConn.Execute(SQL)
Next
'Cierras tus conexiones
set oConn = nothing
set oFichero = nothing
set FSO = nothing
%>
</body>
Si necesitas ayuda para traerte los datos desde la BD escribe un mensaje y te paso la 2da parte del codigo.
Saludos. |