LISTAR TABELAS E CAMPOS BD
Boa noite,
Eu gostaria de saber como que eu faco para listar as tabelas e os campos de uma determinada tabela.
Obs.: banco MYSQL.
Obrigado
Eu gostaria de saber como que eu faco para listar as tabelas e os campos de uma determinada tabela.
Obs.: banco MYSQL.
Obrigado
voce quer listar aonde em um listview no que?
se for no listview to usando isso aqui pra listar em um listview
Public Sub ListarUsuarios(ByVal nListView As ListView)
Try
Dim ID As Integer = 0
nListView.Items.Clear()
myCMD = New MySql.Data.MySqlClient.MySqlCommand([Ô]Select * from login order by codigo[Ô], myCON)
myDRR = myCMD.ExecuteReader()
If myDRR.HasRows = True Then
While myDRR.Read
nListView.Items.Add(myDRR.Item([Ô]codigo[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]usuario[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]senha[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]email[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]avatar[Ô]))
ID += 1
End While
End If
myDRR.Close()
myCMD.Dispose()
Catch ex As Exception
End Try
Public Sub ListarUsuarios(ByVal nListView As ListView)
Try
Dim ID As Integer = 0
nListView.Items.Clear()
myCMD = New MySql.Data.MySqlClient.MySqlCommand([Ô]Select * from login order by codigo[Ô], myCON)
myDRR = myCMD.ExecuteReader()
If myDRR.HasRows = True Then
While myDRR.Read
nListView.Items.Add(myDRR.Item([Ô]codigo[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]usuario[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]senha[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]email[Ô]))
nListView.Items.Item(ID).SubItems.Add(myDRR.Item([Ô]avatar[Ô]))
ID += 1
End While
End If
myDRR.Close()
myCMD.Dispose()
Catch ex As Exception
End Try
KURTGU, obrigado pelo retorno
Na verdade não é exatamente isso que preciso, eu não quero carregar os dados do banco de dados, eu quero é ver as tabelas que tem no banco de dados, ou seja, listar as tabelas.
Ex.: tb_clientes, tb_produtos.
E também queria listar os campos de uma determinada tabela. Lembrando que quero listar o nome dos campos, igual está no banco de dados (Estrutura).
Obrigado
Boa noite...
Na verdade não é exatamente isso que preciso, eu não quero carregar os dados do banco de dados, eu quero é ver as tabelas que tem no banco de dados, ou seja, listar as tabelas.
Ex.: tb_clientes, tb_produtos.
E também queria listar os campos de uma determinada tabela. Lembrando que quero listar o nome dos campos, igual está no banco de dados (Estrutura).
Obrigado
Boa noite...
USA O progama HeidiSQL Simples e rapido....
agora se voce quer criar um sistema pra ver isso tinha um exemplo aqui no site de um dos adm, nao me lembro qual deles tinha feito da uma procurada......
e se voce quiser mostrar os campos da tabela voce ja tem com o codigo que eu postei.....
achei da uma olhada foi o webmaster que fez....
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8709
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8709
KURTGU, dei umas pesquisadas aqui e acabei conseguindo o que queria, usei o exemplo:
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8709
Ai com um pouco mais de pesquisa deu tudo certo, abaixo segue como ficou meu código:
Lista campos da tabela Produtos.:
Lista tabelas.:
Obrigado
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8709
Ai com um pouco mais de pesquisa deu tudo certo, abaixo segue como ficou meu código:
Lista campos da tabela Produtos.:
Dim Command = New MySql.Data.MySqlClient.MySqlCommand([Ô]describe tb_produtos[Ô], GetConexao2)
Dim reader As MySql.Data.MySqlClient.MySqlDataReader
reader = Command.ExecuteReader()
While reader.Read()
ComboBox1.Items.Add(reader.Item([Ô]FIELD[Ô]))
End While
reader.Close()
Command.Dispose()
Lista tabelas.:
Dim Command = New MySql.Data.MySqlClient.MySqlCommand([Ô]show tables[Ô], GetConexao2)
Dim reader As MySql.Data.MySqlClient.MySqlDataReader
reader = Command.ExecuteReader()
While reader.Read()
ComboBox1.Items.Add(reader.Item([Ô]tables_in_vendas[Ô]))
End While
reader.Close()
Command.Dispose()
Obrigado
Tópico encerrado , respostas não são mais permitidas