LER ESTRUTURA BANCO DE DADOS MYQSL

ELMO01 11/08/2014 23:18:06
#440353

Pessoal,

Fiz esta SUB, mas está dando erro nesta linha:

Dim dt_field As System.Data.DataTable = conn.GetSchema(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, Nothing, Str_Cad01})

PS: O erro é o seguinte: VALOR DO TIPO [Ô]SYSTEM.GUID[Ô] NÃO PODE SER CONVERTIDO PARA [Ô]STRING[Ô]

Alguém pode me dizer como arrumar esta linha?
Abaixo coloquei a minha sub.

Obrigado,


StrServCad01 = [Ô]Server=LocalHost;User id=root;password=;database=vbPonto;[Ô]
Str_Cad01 = [Ô]SELECT * FROM tab_funciona order by Codigo_Empr[Ô]

Sub Mostra_Estrutura()
[ô]*
[ô]* Mostra estrutura do banco de dados em um ListView
[ô]*
Dim conn As New MySqlConnection(StrServCad01)
conn.ConnectionString = StrServCad01
Try
conn.Open()
lstFields.Items.Clear()

Dim dt_field As System.Data.DataTable = conn.GetSchema(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, Nothing, Str_Cad01})

For Each dr_field As DataRow In dt_field.Rows
Me.lstFields.Items.Add(dr_field([Ô]COLUMN_NAME[Ô]).ToString)
Next
Catch
MsgBox(Err.Description)
conn.Close()
Finally
conn.Dispose()
End Try
End Sub

ELMO01 18/08/2014 11:02:21
#440526

Pessoal,

Aguém pode me ajudar nesta minha dúvida?

Origado.