Registrar datos en Access utilizando Visual Basic Script

Visual Basic Script sabemos que no es un lenguaje muy utilizado actualmente pero les dejo este ejemplo y nos da una idea similar como hubiesen sido los sitios web si solo hubiera existido Microsoft


Publicado: Editado: Estado:

Un poco de Historia

VBScript comenzó como parte de las tecnologías de Microsoft Windows Script, lanzado en 1996. Esta tecnología (que también incluyó JScript) inicialmente estaba dirigida a los desarrolladores web. Durante un período de sólo dos años, VBScript avanzó desde la versión 1.0 a 2.0, y durante ese tiempo ganó apoyo de los administradores de sistemas quienes buscaban una herramienta de automatización más poderosa que el lenguaje de lotes en la década de 1980.

El 06 de marzo de 1988, Alan Cooper mostró Bill Gates su prototipo del lenguaje. El 20 de marzo de 1991, Microsoft adoptó "Quick Basic", esto permitió a los usuarios crear aplicaciones de Windows rápida y fácilmente con una GUI. Finalmente en 1996 Internet Explorer 3.0 incluye VBScript como parte de su estructura y permite ejecutar scripts en este lenguaje.

En la versión 5.0, la funcionalidad de VBScript se incrementó con nuevas características, incluyendo expresiones regulares, classes, la declaración With, las funciones Eval,Execute y ExecuteGlobal para evaluar y ejecutar comandos de script desde otro script; además de la función a través de GetRef, entre otros.

En la versión 5.5, SubMatches fueron agregadas a la clase de expresiones regulares en VBScript, para extender la funcionalidad de la misma. Esa capacidad, ya había estado disponible en JScript.

Con el advenimiento de .NET framework, el equipo de desarrollo tomó la decisión de soportar este este entorno en ASP.NET para el desarrollo web, y por lo tanto no hay nuevas versiones del motor de VBScript. Por lo que Microsoft sugiere migrar a Windows PowerShell, sin embargo, el motor de scripting continuará a siendo compatible con versiones futuras de Microsoft Windows e IIS.

¿Cómo conectar a una base de Datos Access?

Lo primero es construir una base de datos sencilla de registro de usuario, archivo lo nombramos politecnia.MDB creamos una tabla llamada usuarios los campos que deben agregar son: usuario_id, usuario, clave y correo.

Ahora se necesita hacer un formulario en html como entrada de información y que va a tener esta estructura

<!DOCTYPE html>
<html>
    <head>
    <title>Politecnia | VBScript</title>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <link rel="stylesheet" href="css/politecnia.css" type="text/css" />
        <script language="VBScript" type="text/vbscript" src="vbs/politecnia.vbs"></script><!--Aquí cargas el script-->
    </head>
    <body>
        <div class="contenedor">
            <div class="banner"></div>
            <div class="menu"></div>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                        <td width="20%"><div class="formulario">
                            <form name="frmUsuarios"> 
                                <b>Registro</b><br />
                                <label>Usuario:</label>
                                <input type="text" name="usuario"><br />
                                <label>Contraseña:</label>
                                <input type="password" name="clave"><br />
                                <label>Correo Electrónico:</label>
                                <input type="email" name="correo" required><br />
                                <button onclick="fnGuardar()"/>Entrar</button><!--Envía los datos a fnGuardar-->    
                            </form>
                        </td>
                    <td width="80%">
                        <div class="contenido">
                        </div>
                    </td>
                    </tr>
                </table>
            <div class="contacto"></div>
        </div>
    </body>
</html>

Lo siguiente será crear el archivo politecnia.vbs

function fnGuardar()
   Set dao = CreateObject("DAO.DBEngine.36")
   Set db = dao.OpenDatabase("C:\Politecnia\VBScript\bd\politecnia.mdb")'Aquí ubicas el archivo de Access
   Set tabla = db.OpenRecordset("usuarios")
   tabla.AddNew
   tabla("usuario") = document.frmUsuarios.usuario.value
   tabla("clave") = document.frmUsuarios.clave.value
   tabla("correo") = document.frmUsuarios.correo.value
   tabla.Update
   tabla.Close
End function

Para poder ver el proyecto funcionando obligatoriamente necesitas utilizar Internet Explorer, y claro que en Sistema Windows, aquí les dejo el proyecto completo (Descargar)

Bibliografía
  1. www.tutorialspoint.com/vbscript/index.htm
Dar puntos de agradecimiento
Reportar esta publicación

Déjanos tu comentario

Comentarios

mariogarcia

(Administrador)

Intereses

música, diseño, programación, electrónica, historia, geografía

Puntos: 146 Votos: 113