La pregunta es para agregar campos en la base de datos de un cliente sin tener que estar presente en la PC, osea se le envia el archivo lo
ejecuta y automáticamente se agreguen los campos a la base de datos en cuestion.
Public Function CrearCamposRemotamente()
Dim app As Application
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase "C:\Documents and Settings\x\Mis documentos\ACCESS 2000\Clientes.mdb"
app.DoCmd.SetWarnings False
app.DoCmd.RunSQL "ALTER TABLE CODIVA ADD COLUMN EmpresaEnvio TEXT (255), DireccionEnvio TEXT (255), CodPostalEnvio TEXT (10), " & _
"PoblacionEnvio TEXT (150), ProvinciaEnvio TEXT (100), PaisEnvio INTEGER"
Public Function CrearCamposRemotamente()
Dim app As Application
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase "C:\Documents and Settings\x\Mis documentos\ACCESS 2000\Clientes.mdb"
app.DoCmd.SetWarnings False
app.DoCmd.RunSQL "ALTER TABLE CODIVA ADD COLUMN EmpresaEnvio TEXT (255), DireccionEnvio TEXT (255), CodPostalEnvio TEXT (10), " & _
"PoblacionEnvio TEXT (150), ProvinciaEnvio TEXT (100), PaisEnvio INTEGER"
No hay comentarios:
Publicar un comentario