none
Vincular tabela via código RRS feed

  • Pergunta

  • 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 OLEDBBig Smileatabase 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

     

     

    segunda-feira, 25 de junho de 2007 17:44

Todas as Respostas