Tengo un problema al importar de Excel a una base de datos en Access
Tengo el siguiente problema
tengo que insertar varios registros de una sola ves estos registros los extraigo desde excel son unos 95050 registros aprox. Van variando.
los despliego en una pantalla atraves de tablas y un form.
una ves desplegados como los nececito (eso funciona bien) hay comienza mi problema
los nececito guardar en una base de datos (trabajo con access)el rpoblema no es ese el problema que tengo es que al guardarlos no concuerdan con los datos reales ejemplo
datos reales
codigo nombre
700003 el san pancho ltda
datos que me guarda
700003 el pollo ltda
alguno datos me los guarda como corresponde pero otros no.
aqui te dejo el codigo del insert
<%
'creo la conexion
set conn =server.createObject("ADODB.connection")
set rs = Server.createObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\asp\control\control.mdb;"
'le paso los parametros a las var
codigo =request.form("codigo")
cliente =request.form("cliente")
clienter =Replace(cliente, "'", "''") 'esto lo hice por que habian clientes que traen 1 comilla simple en el nombre y la base no lo acepta
control =request.form("control")
abono =request.form("abono")
morosas =request.form("morosas")
prejudicial =request.form("prejudicial")
total =request.form("total")
fecha =request.form("fecha")
'creo un array
codigo = split(codigo,",")
clienter = split(clienter,",")
control = split(control, ",")
abono = split(abono,",")
morosas = split(morosas,",")
prejudicial = split(prejudicial,",")
total = split(total,",")
'inserto los datos
for i = 0 to ubound(control)
'sSQL = "INSERT INTO EMorosa (Codigo,clientes,control,abonos,morosas,prejudicial,total,fecha)values("& trim(codigo(i)) &",'" & Trim(clienter(i)) & "','"& Trim(control(i)) &"',"& Trim(abono(i)) &","& Trim(morosas(i)) &","& Trim(prejudicial(i)) &","& Trim(total(i)) &",'"& Trim(fecha)&"')"
'set rs=conn.execute(ssql)
next
response.write("<b><br>se ingresaron los datos..")
%>
ojala me puedas ayudar lo nececito urgente
tengo que insertar varios registros de una sola ves estos registros los extraigo desde excel son unos 95050 registros aprox. Van variando.
los despliego en una pantalla atraves de tablas y un form.
una ves desplegados como los nececito (eso funciona bien) hay comienza mi problema
los nececito guardar en una base de datos (trabajo con access)el rpoblema no es ese el problema que tengo es que al guardarlos no concuerdan con los datos reales ejemplo
datos reales
codigo nombre
700003 el san pancho ltda
datos que me guarda
700003 el pollo ltda
alguno datos me los guarda como corresponde pero otros no.
aqui te dejo el codigo del insert
<%
'creo la conexion
set conn =server.createObject("ADODB.connection")
set rs = Server.createObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\asp\control\control.mdb;"
'le paso los parametros a las var
codigo =request.form("codigo")
cliente =request.form("cliente")
clienter =Replace(cliente, "'", "''") 'esto lo hice por que habian clientes que traen 1 comilla simple en el nombre y la base no lo acepta
control =request.form("control")
abono =request.form("abono")
morosas =request.form("morosas")
prejudicial =request.form("prejudicial")
total =request.form("total")
fecha =request.form("fecha")
'creo un array
codigo = split(codigo,",")
clienter = split(clienter,",")
control = split(control, ",")
abono = split(abono,",")
morosas = split(morosas,",")
prejudicial = split(prejudicial,",")
total = split(total,",")
'inserto los datos
for i = 0 to ubound(control)
'sSQL = "INSERT INTO EMorosa (Codigo,clientes,control,abonos,morosas,prejudicial,total,fecha)values("& trim(codigo(i)) &",'" & Trim(clienter(i)) & "','"& Trim(control(i)) &"',"& Trim(abono(i)) &","& Trim(morosas(i)) &","& Trim(prejudicial(i)) &","& Trim(total(i)) &",'"& Trim(fecha)&"')"
'set rs=conn.execute(ssql)
next
response.write("<b><br>se ingresaron los datos..")
%>
ojala me puedas ayudar lo nececito urgente
