none
listar tabelas do access em .net RRS feed

  • Pergunta

  •  

    pessoal, seguinte:

    tenho um banco em access com várias tabelas. então gostaria de criar uma ferramenta para meu uso, com a finalidade de limpar essas tabelas depois dos meus testes de programação.

     

    eu achei alguns códigos aki, mas parece q são especificamente para sql server, asp e tal... isso sem contar q, o código que eu quero, de listar as tabelas, eu ñ encontrei.

    alguém pode me ajudar? só preciso listar essas tabelas numa listbox o resto pode deixar comigo!

    obrigado, pessoal.

    terça-feira, 22 de julho de 2008 19:50

Respostas

  • Desculpa o atraso na resposta!

     

    Fica aqui em exemplo, que carrega a lista numa ListBox

     

    Code Snippet

     Dim conn As System.Data.OleDb.OleDbConnection = Nothing
     Dim dt As DataTable

     

     Try

       Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
       conn = New System.Data.OleDb.OleDbConnection(connString)
       conn.Open()

       dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

       

       Me.ListBox1.DataSource = dt.DefaultView
       Me.ListBox1.DisplayMember = "TABLE_NAME"

       conn.Close()

     Catch ex As Exception
       MessageBox.Show(ex.Message)
     Finally
       conn.Close()
     End Try

     

     

    sexta-feira, 25 de julho de 2008 22:33

Todas as Respostas

  •  fgoncalves,

     

    Tens aqui um bom exemplo :

     

    http://www.macoratti.net/vbn_lstd.htm

     

     

    Espero ter ajudado

     

    quarta-feira, 23 de julho de 2008 02:48
  • Fgoncalves,

     

    Na realidade o .NET permite que vc desenvolva essa tarefa sem a necessidade de vc digitar uma única linha de código, utilizando um datagridview, dataset e alguns outros.

     

    No próprio site da msdn existe um artigo que explica de forma bem detalhada como fazer esse procedimento .

     

    Segue o link: http://msdn.microsoft.com/pt-br/library/bb531272.aspx

     

    Espero ter ajudado.

     

    Abraços,

     

    Leandro Rodrigues

    quarta-feira, 23 de julho de 2008 18:53
  • O que entendi é que você quer uma lista das tabelas que tem em access. Correcto ?

     

    Se for assim só precisa de fazer um select statement ao MSysObjects e pesquisar todas com o Type = 1 (tabela) e verificar o campo Name (nome da tabela). O MSysObjects é um objecto do sistema e pode visualiza-lo em Tools - Option e activar os System Objects.

     

    quarta-feira, 23 de julho de 2008 21:14
  •  

    ae, amigo Jorge,

     

    posta o restante do código amigo, pq esse negócio nem tem idéia de como se faz.

     

    obrigado!

    quinta-feira, 24 de julho de 2008 14:23
  • Desculpa o atraso na resposta!

     

    Fica aqui em exemplo, que carrega a lista numa ListBox

     

    Code Snippet

     Dim conn As System.Data.OleDb.OleDbConnection = Nothing
     Dim dt As DataTable

     

     Try

       Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
       conn = New System.Data.OleDb.OleDbConnection(connString)
       conn.Open()

       dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

       

       Me.ListBox1.DataSource = dt.DefaultView
       Me.ListBox1.DisplayMember = "TABLE_NAME"

       conn.Close()

     Catch ex As Exception
       MessageBox.Show(ex.Message)
     Finally
       conn.Close()
     End Try

     

     

    sexta-feira, 25 de julho de 2008 22:33