Usando ADO com VB , VBA e VBScript

http://www.macoratti.net/ado_vbas.htm

ADO - Usando com Visual Basic , VBScript e VBA

A ADO - ActiveX Data Objects - no tem seu uso restrito ao Visual Basic , ela pode ser usada em muitas linguagens de programao que suportam objetos COM , assim podemos usar ADO com: Visual Basic , VBA , VBScript , Visual C++ , Java , Delphi , Visual J ++ , etc. Vamos aqui nos ater somente ao Visual Basic , VBScript e VBA . Se voc quiser informaes de como usar a ADO com outras linguagens consulte a documentao da Microsoft SDK.

1- Usando ADO com Visual Basic

- Para usar a ADO 2.x e as constantes ADO 2.X no seu projeto VB voc deve referenciar a biblioteca ADO 2.X . Com isto voc pode criar e usar objetos ADO como objetos intrnseco do VB. A referncia voc faz assim:
1. 2. 3.

Na janela do VB , selecione Project|References no menu principal Selecione Microsoft ActiveX Data Objects 2.X Library na lista de referncias exibidas Verifique se as seguintes bibliotecas tambm esto selecionadas: Visual Basic for Applications , Visual Basic objects and procedures , Visual Basic runtime objects and procedures e OLE automation

4.

Clique em OK e feche a janela. Pronto a biblioteca ADO 2.X j esta referenciada no seu projeto VB. Agora voc j pode criar objetos ADO atravs da instruo Dim ou CreateObject O dispositivo de Autocompletar estar ativo facilitando na elaborao do cdigo Voc pode usar as constantes ADO para definir o tipo de dados dos campos ou os parmetros do mtodo de um objeto

a. b. c.

Criando um objeto ADO usando a instruo Dim de uma s vez Para criar um objeto ADO use a instruo Dim e a palavra-chave New, assim: i) Dim conexao as New ADODB.Connection A varivel conexao declarada e uma instncia do objeto Connection criada e armazenada na varivel conexao ii) Dim rst as New ADODB.Recordset

1 de 5

PDF created with pdfFactory Pro trial version www.pdffactory.com

26/08/2011 05:58

Usando ADO com VB , VBA e VBScript

http://www.macoratti.net/ado_vbas.htm

A varivel rst declarada contm um objeto Recordset ADO. Voc pode declarar e criar um objeto ADO em duas etapas distintas. Para isto voc usa Dim para declarar e Set para efetivamente criar o objeto, assim: Dim conexao as ADODB.Connection Set conexao = New ADODB.Connection Usando a instruo CreateObject para criar um objeto ADO A criao de um objeto ADO usando a instruo CreateObject feita em duas etapas: 1-) Se voc fez a referncia a biblioteca ADO 2.X no seu projeto , faa assim: Dim conexao as ADODB.Connection Set conexao = CreateObject("ADODB.Connection") Dim rst as ADODB.Recordset Set rst = CreateObject("ADODB.Recordset") 2-) Se voc no fez a referncia a biblioteca ADO 2.X no seu projeto , ainda pode criar objetos ADO assim: Dim conexao as Object Set conexao = CreateObject("ADODB.Connection") Dim rst as Object Set rst = CreateObject("ADODB.Recordset") A criao de objetos usando a instruo CreateObject mais lenta do que usar uma instruo Dim com a palavra-chave New. Usando os objetos ADO no VB Um objeto ADO fornece propriedades , eventos , mtodos e colees; Assim , depois de ter criado um objeto ADO e armazenado o objeto em uma varivel , voc pode usar esta varivel para acessar as propriedades , executar os mtodos ou acessar os elementos das colees deste objeto. Vamos mostrar como fazer isto para um objeto Recordset ADO . Aps definir uma varivel objeto Recorset ADO temos acesso a suas propriedades , mtodos e eventos . Veja na figura abaixo :

A figura ao lado exibe a criao de uma varivel objeto recordset ADO e a seguir com a ativao do recurso autocompletar temos a relao das propriedades e mtodos da varivel objeto recordset ADO. Apos declarar a varivel do objeto e criar o objeto Recordset , a varivel rs passa a conter uma instncia do objeto Recordset

2 de 5

PDF created with pdfFactory Pro trial version www.pdffactory.com

26/08/2011 05:58

Usando ADO com VB , VBA e VBScript

http://www.macoratti.net/ado_vbas.htm

Podemos atribuir valores as propriedades do Recordset instanciada na varivel rs . Por Exemplo: Dim rs As New ADODB.Recordset rs.CursorType = adOpenDynamic rs.CursorLocation = adUseClient rs.LockType = adLockBatchOptimistic

Podemos tambm executar um mtodo do objeto recordset . Veja exemplo abaixo:

Execuo do mtodo Open do objeto Recordset ADO instanciado na varivel rs.

Da mesma forma podemos acessar elementos da coleo do objeto Recordset ADO. Assim:

Neste cdigo temos o elemento coleo Fields com o nome FieldName sendo acessado e sua propriedade Value sendo lida e armazenada na varivel nome.

Finalmente para ler um valor da propriedade do objeto Recordset ADO instanciado em uma varivel objeto (em nosso caso a varivel rs ) fazemos assim: Var1 = rs.CursorType Var2 = rs.CursorLocation

2- Usando a ADO no VBA ( Visual Basic for Applications )

3 de 5

PDF created with pdfFactory Pro trial version www.pdffactory.com

26/08/2011 05:58

Usando ADO com VB , VBA e VBScript

http://www.macoratti.net/ado_vbas.htm

Utilizar a ADO no VBA idntico a forma como fizemos no Visual Basic . Vejamos como fazer a referncia em seu projeto VBA. Por exemplo vamos referenciar a ADO no Word :
1.

Abra o Microsoft Word e no menu Ferramentas | Macro , selecione a opo Editor do Visual Basic

2.

No menu principal do Editor do Visual Basic , selecione Ferramentas|Referncias e a seguir selecione Microsoft ActiveX Data Objects 2.X Library na lista de referncias exibidas.

Aps fazer a referncia voc pode criar os objetos ADO usando a instruo Dim ou a instruo CreateObject da mesma forma que no Visual basic.

3- Usando ADO com VBScript

O VBScript utiliza apenas o tipo de dados Variant que pode armazenar dados de todos os tipos e objetos tambm ; desta forma no podemos usar a instruo Dim para atribuir objetos ADO as variveis. O VBScript tambm no suporta a palavra-chave New nas instrues Dim ou Set. Vejamos ento como criar um objeto ADO no VBScript: Dim conexao Set conexao = CreateObject("ADODB.Connection") Dim rst Set rst = CreateObject("ADODB.Recordset") Tem mais , voc no pode fazer uma referncia a biblioteca ADO no VBScript, e, para usar as constantes ADO precisa defin-las explicitamente antes de us-las no seu script. Podemos usar dois arquivos que contm as definies para todas as constantes ADO segundo as situaes a seguir :
1. Para Script do lado do Servidor ( ASP ) - Podemos usar o arquivo Adovbs.inc 2. Para Script do lado do Cliente ( VBScript ) - Podemos usar o arquivo Adocvbs.inc

Para scripts do lado do servidor podemos usar a diretiva INCLUDE para pode usar as constantes no script, assim : <!--#Include File="Adovbs.inc"--> Para terminar no esquea que o VBScript possui ainda as seguintes limitaes: O VBScript suporta somente as instrues : On Error Resume Next ou On Error Goto 0 para tratamentos de erro , portanto no use : On Error Goto <etiqueta> Muitas das funes do Visual Basic no so suportadas pelo VBScript: Ex: Format.

4 de 5

PDF created with pdfFactory Pro trial version www.pdffactory.com

26/08/2011 05:58

Usando ADO com VB , VBA e VBScript

http://www.macoratti.net/ado_vbas.htm

At o prximo artigo...

5 de 5

PDF created with pdfFactory Pro trial version www.pdffactory.com

26/08/2011 05:58