Exemplo Visual Basic utilizando OBCOM

Veja o exemplo a seguir, codificado em VBA, acessando uma Base de Dados OpenBASE remota.

O esquema do banco usado neste exemplo é o seguinte:

Banco EXEMPLO 1 

nome: PESSOA E

    NOMEP(0)    U20

    IDADE       N3

A subrotina que contém o Script VBA, utilizando os métodos do objeto COM OBcom (OBCOM.DLL), é a seguinte:

Sub LeBanco()

  Dim com As Object

  Dim ret As Long

  Dim cnt As Long

  Dim valo As String

  Set com=CreateObject("OpenBase.Obcom.1")

  ret=com.IniciaServidor("ts8")

  ret=com.OAbreBancoDeDados("EXEMPLO","com",1,2)

  cnt=com.OobtemRegistrosNoArquivo("PESSOA")

  ret=com.OReiniciaSequencial("PESSOA")

  Worksheets("Plan1").[d4:e10].Clear

  For i = 1 to cnt

    ret=com.OleProximoRegistroSequencial("PESSOA")

    With ActiveSheet

      Cells(I+3,4).Value = com.OpegaItem("PESSOA","NOMEP")

      Cells(I+3,5).Value = com.OpegaItem("PESSOA","IDADE")

    EndWith

  Next I

  ret = com.OfechaBancoDeDados(0)

  ret = com.OfinalizaServidor(0)

  Set com = Nothing

End Sub