ABRIR ACCESS COM SENHA E EXIBIR TODAS AS TABELAS

JPLSH 25/03/2011 16:05:02
#369187
Galare vcs podem me ajudar a criar uma função para abrir um MDB usando ADO, verificar se ele precisa de senha, e depois exibir todas as tabelas existentes?
MARCELO.TREZE 25/03/2011 16:14:37
#369188 Resposta escolhida
colega vou postar um exemplo mas existem milhares de exemplo na pesquisa do forum

veja

coloque um listbox em seu form e cole

Sub ListarTabelasADO()
    Dim Conn As New ADODB.Connection
    Dim TablesSchema As ADODB.Recordset
    Dim ColumnsSchema As ADODB.Recordset
    Conn.Provider = [Ô]MSDASQL[Ô]
    Conn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
           [Ô]Data Source=[Ô] & App.Path &[Ô]\SeuBD.MDB;Jet [Ô] & _
           [Ô]OLEDB:Database Password=senha;[Ô]
    Set TablesSchema = Conn.OpenSchema(adSchemaTables)
    Do While Not TablesSchema.EOF
        DoEvents
        Set ColumnsSchema = Conn.OpenSchema(adSchemaColumns, _
                                            Array(Empty, Empty, [Ô][Ô] & TablesSchema([Ô]TABLE_NAME[Ô])))
        Do While Not ColumnsSchema.EOF
            DoEvents
            List1.AddItem TablesSchema([Ô]TABLE_NAME[Ô]) & [Ô], [Ô] & _
                        ColumnsSchema([Ô]COLUMN_NAME[Ô])
            ColumnsSchema.MoveNext
        Loop
        TablesSchema.MoveNext
    Loop
End Sub


agora no load do form coloque


Call ListarTabelasADO

e pronto
Tópico encerrado , respostas não são mais permitidas
Voltar