importar txt en access y viceversa

[iber2000]

Hola a todos
agradesco de antemano vuestro tiempo.

Tengo un problema

necesito importar archivo txt separado por punto y coma en ms access y viceversa
son tres días que me vuelvo loco, debo amitirlo pero no son capaz.

por favor una manita


Gracias

un saludo

[Shiryu_Libra]

Que codigo tienes hasta el momento??

que has intentado???

[iber2000]

Me da error de parameter:

<%
Dim cn,cmd,fso,txt,r,aCampo

Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile("\PROVA\130209V.txt")

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.MapPath ("xxxx.mdb")

Set cmd = CreateObject("ADODB.Command")
With cmd
.CommandText = "PARAMETERS pC1 ,pC2 ,pC3,pC4,pC5,pC6,pC7,pC8,pC9; INSERT INTO vehiculos (CONT_OBJID,TIPO_REC,MARCA,SERIE,MODELO,CHASIS,MAT RICULA,FECHA_MAT,FIN) VALUES(pC1,pC2,pC3,pC4,pC5,pC6,pC7,pC8,pC9)"
.CommandType = 1
Set .ActiveConnection = cn
.Parameters.Refresh
End With

r = 0
With txt
While not .AtEndOfStream
r = r+1
aCampo = Split(txt.ReadLine(),";")
With cmd
.Parameters("pC1").Value = aCampo(0)
.Parameters("pC2").Value = aCampo(1)
.Parameters("pC3").Value = aCampo(2)
.Parameters("pC4").Value = aCampo(3)
.Parameters("pC5").Value = aCampo(4)
.Parameters("pC6").Value = aCampo(5)
.Parameters("pC7").Value = aCampo(6)
.Parameters("pC8").Value = aCampo(7)
.Parameters("pC8").Value = aCampo(8)
.Execute
End With
Wend
.Close
End With

Set txt = Nothing
Set fso = Nothing

Set cmd = Nothing
cn.Close
Set cn = Nothing


%>

[David]

¿En qué línea te da el error?

[iber2000]

Error:
Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis en la cláusula PARAMETER.
/prova/prova2.asp, line 22

[Myakire]

u_goldman ya hizo una función que parsea un archivo cvs

http://www.forosdelweb.com/f15/expor...de-asp-316021/

[Shiryu_Libra]

para que ocupas el punto y coma despues de los campos a utilizar???

PARAMETERS pC1 ,pC2 ,pC3,pC4,pC5,pC6,pC7,pC8,pC9;

?????

[iber2000]

Para SHIRYU_LIBRA:
gracias por contestarme
quite el punto e coma al final de parameter pero sigue
dandome error
Puedeser que no intendi muy bien el concepto de PARAMETER

Para MyAkire:
gracias por contestarme
lo necesito al contrario desde un txt ad access

[Ignorante_ASP]

Alguien llego hacer este programa?

saludos

[Ignorante_ASP]

tienes el archivo en ASP terminado?

[Myakire]

Supongo que estas por cometer el mismo error de iber2000 que fue esperar a que alguien le hiciera el trabajo, hay que intentarle por uno mismo.

Debes de leer un archivo txt con FSO y luego cada linea leida separarla con un SPLIT y finalmente recorrer el vector obtenido y salvarlo en la tabla access

Saludos