<%'www.lawebdelprogramador.com
set objBase=server.CreateObject("ADODB.Connection")
set objtabla=server.CreateObject("ADODB.recordset")
set objBaseA=server.CreateObject("ADODB.Connection")
set objtablaA=server.CreateObject("ADODB.recordset")
'Abrimos las dos bases de datos
objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=urlSqlServer;UID=usuario;PWD=password;DATABASE=BaseDatos"
objbaseA.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("/url/BaseDatosAccess.mdb")
server.ScriptTimeout=5000
'abre las tabla de Access
set objtablaA=objbaseA.Execute("select * from Tabla")
Dim Cont
if not objtablaA.EOF then
'bucle hasta el final del archivo de Access
do while not objtablaA.EOF
Cont=Cont+1
'Realizamos una consulta de insercion con los datos de Access
set objtabla=objbase.execute("INSERT INTO Tabla(Campos) VALUES ('" & objtablaA.Fields("campos") & "')")
objtablaA.movenext
loop
end if
server.ScriptTimeout=900
objbase.close
objbaseA.close
Response.Write( cont & " registros traspasados de Access a SQL Server")
%>
Comentarios sobre la versión: Versión 1 (1)