Holas
He hecho este codigo (pesimo) con una idea en mente
sacar datos de una tabla especifica de una base de datos alojada en un servidor sql externa y guardarlos en una base local de acces validadando que no se repitan los campos.
es un lio no?
si alguien me puede ayudar a pepurar este codigo (insisto pesimoo!) se lo agradeceria
Código:
<%Dim conexion, conexion2, Rs, SQL , rs2,a,b,sw
PasAnt = "xxxxx"
UsuAnt = "xxxxx"
str = "DSN=ADODBC;UID=" & UsuAnt & ";PWD=" & PasAnt & ";"
Set conexion = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=SQLOLEDB;Data Source=serversql;Initial Catalog=prueba;", UsuAnt, PasAnt
SQL = "Select folio codaux FROM iw_gsaen where folio > 160000"
Set Rs1 = conexion.execute(SQL)
Set conexion2= Server.CreateObject("ADODB.connection")
Set Rs2 = Server.CreateObject("ADODB.recordset")
conexion2.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("base/Gestion2.mdb")
rs2.open "checkfactdesp2" , conexion2, 1,3
a=0
rs1.movefirst
do while not rs1.eof
b=0
sw = 0
rs2.movefirst
while not rs2.eof
if sw=0 then
If Cdbl(rs1(a)) = Cdbl(rs2(b)) Then
sw=1
else b=b+1
end if
end if
rs2.movenext
wend
if sw=0 then
rs2.addnew
rs2 ("a")= rs1(b)
rs2.update
end if
rs1.movenext
a=a+1
loop
%>
