Si eres un programador o estás incursionando en el mundo de la programación, seguramente has escuchado hablar de ADOVBS.inc en alguna ocasión. Pero, ¿sabes realmente qué es y para qué se utiliza? En este artículo te explicaremos todo lo que necesitas saber sobre ADOVBS.inc y cómo puedes utilizarlo en tus proyectos de programación. ¡Prepárate para descubrir una herramienta invaluable en el mundo de la informática!
ADOVBS.inc es un archivo incluido con IIS que tiene definidas todas las constantes de ADO. VBScript no entiende las constantes ADO, como AdLockReadOnly, como lo hace VB. El ADOVBS.inc El archivo se puede incluir en sus páginas ASP para hacer referencia a las constantes.
Verá muchos ejemplos en la web que usan estas constantes en lugar de sus contrapartes enteras, por lo tanto, la recomendación es incluir ADOVBS.inc en tus paginas Sin embargo, ¿qué sucede si solo necesita consultar algunas de estas constantes?
El ADOVBS.inc El archivo tiene un tamaño de 15 KB. Incluir este archivo en su ÁSPID las páginas pueden aumentar los requisitos de memoria, especialmente si tiene miles de usuarios que acceden a la página al mismo tiempo. Si necesita hacer referencia a muchas constantes, debe incluir Este archivoo de lo contrario, escriba su propia versión de este archivo, con solo un puñado de constantes que necesita.
Aquí hay un ejemplo de cómo incluir este archivo en sus páginas ASP.
<!DOCTYPE html />
<html>
<head>
<title>My Page</title>
</head>
<body>
<!--#include file=adovbs.inc-->
<%
Dim oConn, oRS, oCmd, ds, sql
ds = "Driver={MySQL ODBC 3.51 Driver};SERVER=db-hostname;DATABASE=db-name;UID=userID;PWD=password"
sql = "SELECT empName, empTitle FROM employees"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ds
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = oConn
oCmd.CommandText = sql
oCmd.CommandType = adCmdText
oCmd.Prepared = True
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open oCmd
%>
<!-- More HTML & ASP Code -->
</body>
</html>En este ejemplo, nos referimos a la constante adCmdText. Esta constante tiene un valor de 1 en el adovbs.inc archivo. Puede encontrar una copia del adovbs.inc archivo en la siguiente ubicación en su disco: C:\Program Files\Common Files\System\ado. Copie el archivo a la raíz de su aplicación web.
Aquí hay una muestra del contenido del archivo.
<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' Copyright (c) 1996-1998 Microsoft Corporation.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100;
Const adMovePrevious = &H00000200;
Const adAddNew = &H01000400;
Const adDelete = &H01000800;
Const adUpdate = &H01008000;
Const adBookmark = &H00002000;
Const adApproxPosition = &H00004000;
Const adUpdateBatch = &H00010000;
Const adResync = &H00020000;
Const adNotify = &H00040000;
Const adFind = &H00080000;
Const adSeek = &H00400000;
Const adIndex = &H00800000;
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
...
...
...