
19/04/2002, 12:34
|
| | Fecha de Ingreso: abril-2002
Mensajes: 1
Antigüedad: 23 años Puntos: 0 | |
Insertar varios registros en una BD Hola, quisiera saber como puedo insertar varios registros en una BD. Se trata de pasar ciertas cadenas de texto de cada linea de un fichero de texto a un registro de la BD. Me gustaria saber como tengo que definir la BD y como inserto los registros. El código que he definido es:
Set Ob_Conn = Server.CreateObject("ADODB.Connection")
Ob_Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/RegistroUsuarios/bd/registros.mdb"))
Set Ob_RS = Server.CreateObject("ADODB.RecordSet")
Ob_RS.Open "Registro", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.AddNew
linea = TS.ReadLine
Do While not TS.AtEndOfStream
SacarDatosLinea()
'Esta funcion nos saca los datos de la linea del fichero de texto y lo guarda en un vector vlinea(4)
Ob_RS("IP") = vLinea(0)
Ob_RS("NbUsuario") = vLinea(1)
Ob_RS("Fecha") = vLinea(2)
Ob_RS("HoraInicio") = vLinea(3)
Ob_RS("Pagina") = vLinea(4)
Ob_RS.MoveNext
linea = TS.ReadLine
loop |