VB - conectando-se a um banco de dados do Access

Questão

Eu tenho uma tabela Excel Eu quero copiar um banco de dados no Access quando clico em um botão na folha. Xls contendo esta tabela.

Por enquanto estou testando a conexão e a criação da tabela. Meu código é assim:

 Sub cnxBDD () string = "Provedor = Microsoft.Jet.OLEDB.4.0; Fonte de dados = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Persist. Informações de segurança = False" Definir DB = New ADODB. Conjunto de Conexões recSet = Novo ADODB.Recordset BDD.Open CSQL Me.Refresh Dom DB Como ADODB.Connection Sun recSet Como ADODB.Recordset Sun CSQL Como String BDD.Execute "CREATE TABLE test (nome varchar (60), FirstName varchar (60), mail varchar (60), Nickname varchar (60), data DateAjout não nulo) "End Sub

O erro que ocorre é

this: "ADO: Erro de compilação: digite definido pelo usuário não definido" e em "New ADODB.Connection"

Solução

Deve adicionar referência ao projeto Microsoft ActiveX Data Objects xx Library.

No menu do editor VB => Tools => References ... tick correspondem.

Então você precisa declarar os objetos antes de criá-los ...

 DB Como ADODB.Connection Sun Sun Sun recSet Como ADODB.Recordset CSQL As String Set DB = Novo ADODB.Connection Set recSet = Novo ADODB.Recordset 'A string de conexão str = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Persist Segurança Info = False "'Criamos a string de conexão BDD.Open' Escrevemos a consulta CSQL 'Passamos a consulta para o banco de dados recSet.Open CSQL, DB,, , adCmdText 'Fecha a conexão e libera objetos no BDD. Close recSet.Close = Nada Definido DB = Nothing Set recSet

Deve funcionar!

Além disso, verifique esta dica sobre como conectar o VB ao banco de dados Access:

//ccm.net/faq/6079-connecting-vb-to-database