Categorias

Usando o arquivo ADOVBS.INC

Se você usar uma conexão com banco de dados você provavelmente usará constantes com nomes como adOpenForwardOnly e adLockReadOnly em seus script ASP. Pois bem estas constantes estão todas definidas no arquivo ADOVBS.INC. Abaixo temos um exemplo de como seria o código para criar em uma página um objeto Recordset com um cursor do tipo KeySet:

Você pode então incluir o arquivo ADOVBS.INC em suas páginas ASP usando o comando include no início das páginas ASP:

Se você usar o comando include como acima deverá por o arquivo ADOVBS.INC no diretório raiz da sua aplicação web.

Uma saída mais elegante para não ter que usar o include do arquivo adovbs.inc em suas páginas ASP é usar a tag METADATA no lugar de include.

A tag METADATA possui o seguinte formato:

Você precisa definir obrigatoriamente o TYPE e o FILE ou o UUID, assim você pode definir a TBL ou DLL diretamente pela propriedade FILE ou através de UUID. Um exemplo de uso seria:

ou

Substituindo o comando include pela tag METADATA teríamos:

Mas agora é que vem a boa notícia…

Se você colocar a tag METADATA no seu arquivo Global.asa isto fará com que cada página ASP na sua aplicação WEB reconheça as constantes ADO e você não precisará mais incluir em cada página ASP o arquivo ADOVBS.INC.

Mas se você ainda quiser continuar usando o arquivo adovbs.inc baixe o arquivo em anexo.

Apenas para você ter uma idéia estou exibindo abaixo um parte do arquivo ADOVBS.INC:
<%
'--------------------------------------------------------------------
' Microsoft ADO
' (c) 1996 Microsoft Corporation. All Rights Reserved.
'
' 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

....

Arquivos para Download:

adovbs.inc