LER ESTRUTURA BANCO DE DADOS MYSQL

ELMO01 06/03/2013 19:51:45
#420054

Altair - fiz outra modificação no SUB que postei e ficou assim:

Sub Mostra_Estrtura()
Dim dr_Empresa As MySqlDataReader
Dim Con_Empresa As New MySqlConnection(StrServCad01)
Dim Cmd_Empresa As New MySqlCommand(Str_Cad03, Con_Empresa)
Con_Empresa.Open()
dr_Empresa = Cmd_Empresa.ExecuteReader
Try
For I = 1 To dr_Empresa.FieldCount - 1
Me.ListBox1.Items.Add(dr_Empresa.GetName(I)).ToString()
Next I
Catch ex As Exception

End Try
End Sub

Desta forma deu certo como planejei.

Agradeço a força que vc me deu.

Obrigado