Vincular tabela via código

Question

Estou tentando vincular uma tabela Access em VB6 via código utilizando ADOX só que tanto minha tabela destino quanto a origem possuem senha.

Não estou sabendo como passar a senha da tabela origem.

Segue o código que estou utilizando:

 

Option Explicit

Dim cn As ADODB.Connection

 

Private Sub Form_Load()
   Set cn = New ADODB.Connection
   cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos em Andamento\RenatoSolos\Solos.mdb;Jet OLEDBatabase Password=micoleao;"
End Sub

 

Private Sub command1_Click()
   Dim cat As ADOX.Catalog
   Dim tbl As ADOX.Table
 
   Set cat = New ADOX.Catalog
   Set tbl = New ADOX.Table

   ' Open the catalog.
   cat.ActiveConnection = cn
 
   ' Create the new Table.
   tbl.Name = "Linked_Employees"
   Set tbl.ParentCatalog = cat

   ' Set the properties to create the link.
   tbl.Properties("Jet OLEDB:Link Datasource") = "C:\Projetos em Andamento\RenatoSolos\LocalSysSl.MDB"
   tbl.Properties("Jet OLEDB:Link Provider String") = "C:\Projetos em Andamento\RenatoSolos\LocalSysSl.MDB"
   tbl.Properties("Jet OLEDB:Remote Table Name") = "rptFichaColeta"
   tbl.Properties("Jet OLEDB:Create Link") = True

   ' Append the table to the Tables collection.
   cat.Tables.Append tbl
   Set cat = Nothing
End Sub

 

 

Answer 1

Na linha tbl.Properties("Jet OLEDB:Link Provider String") passe uma connection string completa (e não apenas o nome do arquivo), como a que você usou para abrir o banco de dados no evento Form_Load do seu exemplo. Lá você consegue informar a senha do banco de dados.

 

---

EDIT: Se não funcionar, tente http://www.xtremevbtalk.com/showpost.php?p=314475&postcount=8