Leer Rtf en Richtextbox desde Mysql en VB.Net

[fripas]

Iniciado por Gloritza

Hola compañeros de foro, estoy utilizando este código y para generar el código binario y mandarlo a la BD funciona perfecto, PERO la parte de recibir los datos de la BD no la he podido conseguir, ya que supongo que MuestraBd es un dato de tipo MySqlCommand, pero me marca este error: No se puede Indizar la clase MySql.Data.MySqlClient.MySqlCommand, porque no tiene ninguna propiedad predeterminada.

Podrian decirme que tipo de datos es MuestraBD o alguna otra idea para mostrar los datos en RichtextBox.rtf.

Gracias de antemano por su ayuda.

MuestraDB es una función que tengo en un Modulo, lo que hace es, leer el parametro query y convertirlo en un datatable.

Te paso el código de la función y también adjunto el de ConectaDB ya que MuestraDB llama al anterior.

Código vb:

Friend conexion As MySqlConnection
Friend server As String
Public Sub ConectaDB(Optional ByVal Base As String = "")
        Try
            If Base = "" Then
                Base = SeleccionDB.DB
            End If
            Dim SPath As String = "conecta.txt"
            server = My.Computer.FileSystem.ReadAllText(SPath).ToString
            conexion = New MySqlConnection()
            conexion.ConnectionString =
                "server=" & server & ";" &
                "user id=root;" &
                "password=toor;" &
                "port=3306;" &
                "database=" & Base & ";"
            conexion.Open()
        Catch ex As Exception
            MsgBox("Error al conectar al servidor MySQL " &
                   vbCrLf & vbCrLf & ex.Message,
                   MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Public Function MuestraDB(ByVal Query As String)
        Dim ds As DataSet = New DataSet()
        Dim adaptador As MySqlDataAdapter
        Dim tabla As DataTable = New DataTable
        Dim constructor As MySqlCommandBuilder
 
        Try
            adaptador = New MySqlDataAdapter(Query, conexion)
            constructor = New MySqlCommandBuilder(adaptador) 'Se interpreta la consulta
            adaptador.Fill(tabla) 'Se guarda los registros obtenido en la variable tabla
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al leer la base de datos")
        End Try
        Return tabla
    End Function
    Public Sub LimpiarPanel(ByVal Panel As Panel)
        ' recorre todos los controles que hay en el formulario
        For Each Control In Panel.Controls
            ' verifica que el control es de tipo TextBox
            If TypeOf Control Is TextBox Then
                '... Si es un Textbox, entonces lo limpia
                Control.Text = ""
            End If
        Next
    End Sub
 

Saludos!, espero que te sea de ayuda.