Código de ASP - Exportar de Access a SQL Server

<<>>
Imágen de perfil

Exportar de Access a SQL Servergráfica de visualizaciones


ASP

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 04 de Febrero del 2002 por Administrador
19.256 visualizaciones desde el 04 de Febrero del 2002. Una media de 28 por semana
Este código, lee de una base de datos Access, y va pasando los registros a una base de datos SQL de forma secuencial.

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 04 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
19.257 visualizaciones desde el 04 de Febrero del 2002. Una media de 28 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<%'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)

rsystemas
17 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
tal vez falta inicializar el valor de la variable cont a 0 cuando es declarada, por lo d+ eñ codigo esta muy bien
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s30