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 de virmix
1
1
virmix, Que quieres que te diga, desde pequeño arreglaba enchufes, luego...
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