PUXAR RESULTADOS DO MYSQL
Olá a todos, consegui fazer uma conexão com o servidor MySQL, exibir dados, alterar, atualizar excluir e etc ...
Mais me surgiu uma dúvida, para exibir todos os dados de um campo da tabela em um list eu uso:
Ok, funciona ... mais e se eu desejar puxar todas as bases de dados, ou outra coisa como tabelas ? Eu sei que o código é Show databases ou Show tables (base de dados e Tabelas). Mas como puxar esses dados ?
Acho que deu para explicar direitinho ... alguém poderia me ajudar ?
t+ pessoal, abraços ae a todos !!!
Mais me surgiu uma dúvida, para exibir todos os dados de um campo da tabela em um list eu uso:
do while not RS.eof
list.additem RS("nome")
RS.MoveNext
loopOk, funciona ... mais e se eu desejar puxar todas as bases de dados, ou outra coisa como tabelas ? Eu sei que o código é Show databases ou Show tables (base de dados e Tabelas). Mas como puxar esses dados ?
Acho que deu para explicar direitinho ... alguém poderia me ajudar ?
t+ pessoal, abraços ae a todos !!!
Para exibir todas as tabelas, não os seus dados.
If Conexao.State = adStateOpen = true Then
Dim RsList As ADODB.Recordset
Set RsList = Conexao.OpenSchema(adSchemaTables)
While Not RsList.EOF
If RsList.Fields("TABLE_TYPE").Value = "TABLE" Then
List1.AddItem " " & RsList.Fields("TABLE_NAME").Value
End If
RsList.MoveNext
Wend
RsList.Close
end if
If Conexao.State = adStateOpen = true Then
Dim RsList As ADODB.Recordset
Set RsList = Conexao.OpenSchema(adSchemaTables)
While Not RsList.EOF
If RsList.Fields("TABLE_TYPE").Value = "TABLE" Then
List1.AddItem " " & RsList.Fields("TABLE_NAME").Value
End If
RsList.MoveNext
Wend
RsList.Close
end if
Tópico encerrado , respostas não são mais permitidas