Método de implementação do código ADODB para conectar-se ao banco de dados Access usando VB6

O exemplo neste artigo descreve como usar ADODB.Connection para conectar-se ao banco de dados de acesso. A versão do tipo de driver é: Microsoft.Jet.OLEDB.4.0. Na operação de banco de dados do VB, conectar-se ao banco de dados é o primeiro passo e o mais básico. O exemplo descrito neste artigo tem um bom valor de referência para iniciantes aprenderem como se conectar ao banco de dados Access em VB.

O código de implementação específico é o seguinte:

 VERSÃO 5.00Begin VB.Form Operation Database Caption = "Banco de dados de operação VB" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = Atributo "Banco de dados de operação" VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim Banco de dados como ObjectSet Banco de dados = Novo ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' Conecte-se ao banco de dadosIf ((database.State) = (adStateOpen)) Then MsgBox ("Conexão bem-sucedida!")Else MsgBox ("Falha na conexão!")End If database.CloseSet database = NothingEnd Sub

Este exemplo cria um novo objeto ADODB.Connection chamado "banco de dados". Na maioria dos casos, o VB e os bancos de dados são exibidos. As conexões do Access2003 são basicamente assim. Coloque o banco de dados de teste no mesmo diretório que o VB. Data.mdb pode ser modificado de acordo com o caminho real do seu banco de dados.