Copiar base de datos de access de un equipo a una base de datos de un servidor mediante página web

Como copeo registros de una base de datos de access de un equipo cliente a una base de datos de access a un servidor mediante una página web
Te agradezco tu ayuda

1 respuesta

Respuesta
1
Es imposible, no puedes hacer eso desde un cliente y un servidor automáticamente, tendrás que hacerlo a mano directamente o con una ASP. Ya que para eso ambas basdese de datos tienen que estar igadas entre si, la única posibilidad es hacer un EJECUTABLE que lance URL con querys en ASP y que registre los datos en la base de datos, esto seria una buena solución, pero debes saber programar en VB, Delphi o cualquier otro lenguaje de cuarta generación
Se programar en visual basic 6.0 pero no se como hacerlo o sea no se como enlaserme a la base de datos del servidor y al mismo tiempo insertar los registros
Pues da acceso con un DATA1 a la base de datos y que vaya avanzando en los registros y que en cada registro lance una URL al servidor mediante ASP con querys y así va registrando los datos.
Mira se como enlazar la base al data se como avanzar por registro se como abrir una url desde visual pero no se que deba decir la url(ni la páginas asp con querys) no tendrás un ejemplo a un que sea pequeño
Te agradezco mucho espero no desesperarte soy novato
Por ejemplo
Dim objRegConn, objRegRS, strRegSQL
Set objRegConn = Server.CreateObject("ADODB.Connection")
objRegConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objRegConn.Open Server.MapPath("../mdb-database/user.mdb")
strRegSQL = "Select * From Users"
Set objRegRS = Server.CreateObject("ADODB.Recordset")
objRegRS.Open strRegSQL, objRegConn, 1, 2
If objRegRS.EOF Then
objRegRS.AddNew
objRegRS.Fields("Username").Value = LCase(strUsername)
objRegRS.Fields("Clave").Value = "FULL"
objRegRS.Fields("Password").Value = strPassword
objRegRS.Fields("Email").Value = LCase(strEmail)
objRegRS.Fields("MailingList").Value = strMailingList
objRegRS.Fields("Email_Reply").Value = strSndMail
objRegRS.Fields("NET").Value = strnet
objRegRS.Fields("Admin").Value = "False"
objRegRS.Fields("T_Posts").Value = Date
objRegRS.Fields("IP").Value = "0"
objRegRS.Fields("Signature").Value = "0"
objRegRS.Fields("Date").Value = "0"
objRegRS.Update
Else
objRegRS.AddNew
objRegRS.Fields("Username").Value = LCase(strUsername)
objRegRS.Fields("Clave").Value = "FULL"
objRegRS.Fields("Password").Value = strPassword
objRegRS.Fields("Email").Value = LCase(strEmail)
objRegRS.Fields("MailingList").Value = strMailingList
objRegRS.Fields("Email_Reply").Value = strSndMail
objRegRS.Fields("Admin").Value = "False"
objRegRS.Fields("NET").Value = strnet
objRegRS.Fields("T_Posts").Value = Date
objRegRS.Fields("IP").Value = "0"
objRegRS.Fields("Signature").Value = "0"
objRegRS.Fields("Date").Value = "0"
objRegRS.Update
End If
objRegRS.Close
objRegConn.Close
Set objRegRS = Nothing
Set objRegConn = Nothing
Para guardar datos en la base de datos, por su puesto es un ejemplo que no te vale para nada, tienes que adaptarlo a la tuya y por supuesto el servidor tiene que ser Windows 2000

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas