[SOLUCIONADO] Leer Rtf en Richtextbox desde Mysql en VB.Net

[fripas]

Hola pues llevo todo el día buscando y haciendo pruebas y nada de nada.

Quisiera guardar el texto de un RichTextBox con formato (supongo que como si fuera un rtf) en una base de datos con MySql desde un formulario, para después leerlo en otro formulario de la aplicación.

La parte de guardar el rtf creo que la he logrado y e intentado con 2 metodos:

1. Guardarlo en una columna con formato Text, desde la propiedad Rtf del RichTextBox. (Este me funciono) y me genera algo parecido a esto:

Código:

{
tf1ansiansicpg1252deff0deflang2058{fonttbl{f0fnilfcharset0 Microsoft Sans Serif;}}
{colortbl ;
ed40green40lue40;}
viewkind4uc1pardcf1f0fs17 Pruebapar
}

2. Generando un Array de Bytes y guardarlo en un campo Blop. (Este no pude lograrlo).

Pero he aquí el problema a la hora de leer los datos desde la DB me marca un error de incompatibilidad que dice: "El formato de archivo no es valido"

Les dejo mi código por si alguien me puede ayudar, Gracias! :)

Código vb:

Imports MySql.Data.MySqlClient
Public Class VerInformeInterno
    Sub LlenaTxt()
        Dim deudor As DataTable = New DataTable
        Try
            ConectaDB()
            deudor = MuestraDB("SELECT NoSocio,Nombre,TipoCredito,Expediente,Juzgado,EstadoActual,Gestor FROM deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
            TxtNoSocioYFecha.Text = deudor.Rows(0).Item(0).ToString
            TxtDeudorPrincipal.Text = deudor.Rows(0).Item(1).ToString
            TxtTipoCredito.Text = deudor.Rows(0).Item(2).ToString
            TxtExpediente.Text = deudor.Rows(0).Item(3).ToString
            TxtJuzgado.Text = deudor.Rows(0).Item(4).ToString
            TxtEstadoActual.Rtf = deudor.Rows(0).Item(5).ToString 'Aquí me marca el error!
            TxtGestor.Text = deudor.Rows(0).Item(6).ToString
            deudor = MuestraDB("SELECT Nombre FROM Aval1 WHERE IdAval1=" & BuscarInformeInterno.IdAval1)
            TxtAval1.Text = deudor.Rows(0).Item(0).ToString
            If BuscarInformeInterno.IdAval2 = 0 Then
                TxtAval2.Text = ""
            Else
                deudor = MuestraDB("SELECT Nombre FROM Aval2 WHERE IdAval2=" & BuscarInformeInterno.IdAval2)
                TxtAval2.Text = deudor.Rows(0).Item(0).ToString
            End If
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
    End Sub
    Sub ModificaEstadoActual()
        Try
            ConectaDB()
            Dim cmd As MySqlCommand
            cmd = New MySqlCommand("UPDATE Deudor SET EstadoActual='" & TxtEstadoActual.Rtf & "' WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion)
            cmd.ExecuteNonQuery()
            MsgBox("Guardado con exito", MsgBoxStyle.Information, "Exito!")
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
    End Sub
 
    Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click
        If BtnEditar.Text = "Editar" Then
            TxtEstadoActual.ReadOnly = False
            BtnEditar.Text = "Guardar"
            BtnSalir.Text = "Cancelar"
        Else
            TxtEstadoActual.ReadOnly = True
            BtnEditar.Text = "Editar"
            BtnSalir.Text = "Salir"
            ModificaEstadoActual()
        End If
    End Sub
 
    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        If BtnSalir.Text = "Salir" Then
            Informes.BtnInterno.PerformClick()
        Else
            Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
            TxtEstadoActual.Rtf = tabla.Rows(0).Item(0)
            TxtEstadoActual.ReadOnly = True
            BtnSalir.Text = "Salir"
            BtnEditar.Text = "Editar"
        End If
    End Sub
End Class
 

Fuentes de donde he buscado: [URL="http://social.msdn.microsoft.com/Forums/es-MX/winformses/thread/6ff82dc9-dd33-4d47-95da-cdb2165e0715"]http://social.msdn.microsoft.com/Forums/es-MX/winformses/thread/6ff82dc9-dd33-4d47-95da-cdb2165e0715[/URL]

[URL="http://www.canalvisualbasic.net/foro/visual-basic-6-0/richtextbox-en-bd-1203/"]http://www.canalvisualbasic.net/foro/visual-basic-6-0/richtextbox-en-bd-1203/[/URL]

Había leído uno en el cual mencionaban que se guardara la propiedad Rtf del Richtextbox en un campo nvarchar en SqlServer pero no encontré su equivalente en MySql y lo guarde en un campo Text pero sigo sin poder recibir los datos desde el servidor para mostrarlos.


Gracias y Saludos desde México

[Aquaventus]

Hola fripas, creo que sería mejor que en vez de guardar el contenido, lo grabaras como un archivo en los temporales o en una dirección que tu veas conveniente, luego ese archivo lo guardas a la bd como un array de bytes. Si lo quieres leer,con una consulta llamas a tu array de bytes y le haces la inversa(creas el archivo en una ruta.... y abres el archivo en tu richtextbox). Espero te haya dado una idea. Saludos!.

[fripas]

Iniciado por Aquaventus

lo grabaras como un archivo en los temporales o en una dirección que tu veas conveniente

Si había pensado en guardar el archivo en la misma pc, pero creo que se me hace más conveniente guardarlo en la misma DB, ya que la aplicación la usaran varios usuarios simultáneamente y quisiera que estuvieran los "archivos" disponibles para todos.

Iniciado por Aquaventus

luego ese archivo lo guardas a la bd como un array de bytes. Si lo quieres leer,con una consulta llamas a tu array de bytes y le haces la inversa(creas el archivo en una ruta.... y abres el archivo en tu richtextbox.

Lo de guardarlo como array de bytes, por lo que entendí aquí: http://social.msdn.microsoft.com/Forums/es-MX/winformses/thread/6ff82dc9-dd33-4d47-95da-cdb2165e0715 mencionaban algo parecido pero no pude lograrlo.

Este es el código que proponían:

Hola

El código está en VB.NET pero pasarlo a C# es muy sencillo.

Puedes obtener un array de Bytes con la información binaria del control RichTextbox, y guardar ese array en tu base de datos, cuando lo quieras recuperar vuelves a cargar un array de bytes desde la base de datos y lo asignas al RichTextBox.

Guardar el contenido de un richtextbox en un array de bytes:

'Creamos un memoryStream al que guardar nuestro texto
Dim MemContent As New System.IO.MemoryStream()
RichTextBox1.SaveFile(MemContent, RichTextBoxStreamType.RichText)
'Creamos un array de bytes al que guardar la info de nuestro MemoryStream
Dim Buffer(MemContent.Length) As Byte
Buffer = MemContent.GetBuffer()
Asignar el Array de Bytes de nuevo al richtextbox:

'Declaramos la variable Byte y le metemos el array que tenemos guardado.
Dim Buffer() As Byte
Buffer = RutinaDeNuestraBDQueDevuelveELArray()

'Definimos el memoryStream en el que meter nuestros Bytes
Dim MemContent As New System.IO.MemoryStream
MemContent.Read(Buffer, 0, Buffer.Length)
'Leemos el memoryStream en el RichTextBox como si fuese un archivo.
RichTextBox1.LoadFile(MemContent, RichTextBoxStreamType.RichText)
Un saludo, espero que te funcione!!

Aquaventus me puedes explicar la forma de generar el array de bytes, guardarlo y después leerlo desde el formulario, o ponerme algún ejemplo.

Gracias

[Aquaventus]

Ok, fripas, espérame un rato, que también tengo cosas que hacer en el trabajo. Saludos!.

[fripas]

Si esta bien gracias :D

[Aquaventus]

Haber... fripas :
1º Importas el System.IO;
2º En mi ejemplo mi RichTextBox se llama "rtb"(Que obviamente le tendrás que poner el nombre que lleva en tu formulario).
Almacenamos el RichTextBox en un directorio... por ejemplo en "Mis Documentos" :

Código C:

rtb.SaveFile(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) + @"\prueba.rtf", RichTextBoxStreamType.RichNoOleObjs);
 

Luego pasamos el archivo a un array de bytes llamado arrFile :

Código C:

FileStream mi_archivo = new FileStream((System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) + @"\prueba.rtf"), FileMode.OpenOrCreate, FileAccess.ReadWrite);
            Byte[] arrFile = new Byte[mi_archivo.Length];
 
            BinaryReader reader = new BinaryReader(mi_archivo);
            arrFile = reader.ReadBytes(Convert.ToInt32(mi_archivo.Length));
            reader.Close();
 

esta variable arrFile, es la que tienes que guardar en tu campo blob.

3º Después de todo el 2do paso, haces la consulta a tu BD donde está almacenado tu archivo y lo almacenas por ejemplo en un datatable(Para este tendrías que importar el System.Data) :

Código C:

DataTable data;
data = //TU CONSULTA CON UN MYSQLDATAADAPTER...
if (data.Rows.Count != 0)
                {
                    //Creo mi arreglo que almacenara los bytes del archivo
                    Byte[] barrFile = (Byte[])(data.Rows[0][0]);
                    //Creo el archivo apartir de los bytes
                    using (FileStream newFile = new FileStream((System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) + @"\prueba.rtf"), FileMode.Create, FileAccess.Write))
                    {
                    newFile.Write(barrFile, 0, barrFile.Length);
                    newFile.Flush();
                    newFile.Close();
                    }
                }
 

Eso sería, espero haberte ayudado con tu problema. Saludos!.

[fripas]

Iniciado por Aquaventus

esta variable arrFile, es la que tienes que guardar en tu campo blob.

He aquí mi problema, no he podido guardar el campo en la base de datos estaba intentando algo como esto:

Código vb:

Sub ModificaEstadoActual()
        Try
            'Generar archivo temporal
            TxtEstadoActual.SaveFile("Temp\temporal.rtf", RichTextBoxStreamType.RichNoOleObjs)
            'Convertirlo a un arreglo de bytes
            Dim mi_archivo As FileStream = New FileStream(("Temp\temporal.rtf"), FileMode.OpenOrCreate, FileAccess.ReadWrite)
            Dim arrFile() As Byte = New Byte((mi_archivo.Length) - 1) {}
            Dim reader As BinaryReader = New BinaryReader(mi_archivo)
            arrFile = reader.ReadBytes(Convert.ToInt32(mi_archivo.Length))
            reader.Close()
            'Guardarlo en DB
            ConectaDB("Intranet")
            Dim cmd As MySqlCommand
 
            cmd = New MySqlCommand("UPDATE Deudor SET EstadoActual='" & reader.ToString & "' WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion) 'Creo que aquí esta el problema ya que en vez de guardar el array de bytes solo me guarda esto: "System.Byte[]"
 
            cmd.ExecuteNonQuery()
            MsgBox("Guardado con exito", MsgBoxStyle.Information, "Exito!")
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
    End Sub
 

Me guarda en vez de el array de bytes un string que dice "System.Byte[]" y no puedo leer los datos que puedo hacer? Gracias.

[Aquaventus]

Si te dice "System.Byte[]" está bien, asi muestra el campo la tabla... ahora cómo que no puedes leer los datos???... Pasame el código que usas para el metodo de lectura... para ver qué haces mal.Saludos!.

[fripas]

Código vb:

Sub LeerEstadoActual()
        ConectaDB("Intranet")
        Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
        Try
        If tabla.Rows.Count <> 0 Then
                'Creo mi arreglo que almacenara los bytes del archivo
                MsgBox(tabla.Rows(0)(0).ToString)
            Dim barrFile() As Byte = CType(tabla.Rows(0)(0), Byte())
            'Creo el archivo apartir de los bytes
                Using newFile As New FileStream(("Temp\temporal1.rtf"), FileMode.Create, FileAccess.Write)
                    newFile.Write(barrFile, 0, barrFile.Length)
                    newFile.Flush()
                    newFile.Close()
                End Using
                TxtEstadoActual.LoadFile("Temp\temporal1.rtf")
            End If
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
    End Sub
 

Ese es mi código que utilizo para leer aunque sigo pensando que el problema esta cuando mando el arreglo binario a la base de datos:

Código vb:

cmd = New MySqlCommand("UPDATE Deudor SET EstadoActual='" & arrFile.ToString & "' WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion)
            cmd.ExecuteNonQuery()
 

Gracias

[Aquaventus]

Haber... porqué lo colocas comillas? sino es una cadena el campo...? Quítaselas y prueba así :

Código vb:

cmd = New MySqlCommand("UPDATE Deudor SET EstadoActual=" & arrFile & " WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion)
            cmd.ExecuteNonQuery()
 

[fripas]

Me aparece este error

Error 1 El operador '&' no está definido para los tipos 'String' y '1-matriz dimensional de Byte'.

[Aquaventus]

cierto lo olvidé, la mejor forma de trabajar es mediante sus mismo parametros del Mysqlcommand, te pongo este ejemplo :

Código vb:

Dim conn As New MySqlConnection
                Dim myCommand As New MySqlCommand
 
                conn.ConnectionString = myConnString
 
                myCommand.Connection = conn
                myCommand.CommandText = "UPDATE Deudor SET EstadoActual = ?estado WHERE IdDeudor = ?id"
 
                myCommand.Parameters.Add("?estado", arrFile )
                myCommand.Parameters.Add("?id", BuscarInformeInterno.IdDeudor)
 
                Try
                        conn.Open()
                        myCommand.ExecuteNonQuery()
                Catch myerror As MySqlException
                        MsgBox("There was an error updating the database: " & myerror.Message)
                Finally
                        conn.Close()
                End Try
 

[fripas]

Funciona perfecto!

Dejo el código (tuve que hacer algunas modificaciones ya que me marcaba que algunas opciones habían cambiado.) esperando que le sirva a alguien más. Para que así ya este en C# el de Aquaventus y en VB.Net.

Se importa System.IO y Mysql.Data,MySqlClient

Código vb:

Imports MySql.Data.MySqlClient
Imports System.IO
 

El codigo para generar el codigo binario y mandarlo a la base de datos. (Cambie .Parameters.Add por .Parameters.AddWithValue)

Código vb:

Try
            'Generar archivo temporal
            TxtEstadoActual.SaveFile("Temp\temporal.rtf", RichTextBoxStreamType.RichNoOleObjs)
            'Convertirlo a un arreglo de bytes
            Dim mi_archivo As FileStream = New FileStream(("Temp\temporal.rtf"), FileMode.OpenOrCreate, FileAccess.ReadWrite)
            Dim arrFile() As Byte = New Byte((mi_archivo.Length) - 1) {}
            Dim reader As BinaryReader = New BinaryReader(mi_archivo)
            arrFile = reader.ReadBytes(Convert.ToInt32(mi_archivo.Length))
            reader.Close()
            'Guardarlo en DB
            ConectaDB("Intranet") 'Se abre la conexión.
            Dim cmd As New MySqlCommand
            cmd.Connection = conexion 'Cadena de conexión.
            cmd.CommandText = "UPDATE Deudor SET EstadoActual = ?estado WHERE IdDeudor = ?id"
            cmd.Parameters.AddWithValue("?estado", arrFile)
            cmd.Parameters.AddWithValue("?id", BuscarInformeInterno.IdDeudor)
            cmd.ExecuteNonQuery()
            'Mensaje de Confirmacion
            MsgBox("Guardado con exito", MsgBoxStyle.Information, "Exito!")
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
 

Y el código para recibir los datos de la DB, guardarlos en un archivo temporal y ponerlo en el RichTextBox

Código vb:

Try
            ConectaDB("Intranet")
            Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
            If tabla.Rows.Count <> 0 Then
                'Creo mi arreglo que almacenara los bytes del archivo
                Dim barrFile() As Byte = CType(tabla.Rows(0)(0), Byte())
                'Creo el archivo apartir de los bytes
                Using newFile As New FileStream(("Temp\temporal1.rtf"), FileMode.Create, FileAccess.Write)
                    newFile.Write(barrFile, 0, barrFile.Length)
                    newFile.Flush()
                    newFile.Close()
                End Using
                'Abro el archivo temporal en el RichTextBox
                TxtEstadoActual.LoadFile("Temp\temporal1.rtf")
            End If
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
 

Gracias Aquaventus por responderme de una manera muy eficaz y rápida.

De verdad estoy muy agradecido. :D

Saludos desde México!

[Aquaventus]

De nada fripas, cualquier problema que tengas no dudes en consultarnos por el Foro! Estamos dichosos de poder ayudarlos y siempre disponibles . Saludos!.

[fripas]

Gracias por todo!

[Gloritza]

Iniciado por fripas

Funciona perfecto!

Dejo el código (tuve que hacer algunas modificaciones ya que me marcaba que algunas opciones habían cambiado.) esperando que le sirva a alguien más. Para que así ya este en C# el de Aquaventus y en VB.Net.

Se importa System.IO y Mysql.Data,MySqlClient

Código vb:

Imports MySql.Data.MySqlClient
Imports System.IO
 

El codigo para generar el codigo binario y mandarlo a la base de datos. (Cambie .Parameters.Add por .Parameters.AddWithValue)

Código vb:

Try
            'Generar archivo temporal
            TxtEstadoActual.SaveFile("Temp\temporal.rtf", RichTextBoxStreamType.RichNoOleObjs)
            'Convertirlo a un arreglo de bytes
            Dim mi_archivo As FileStream = New FileStream(("Temp\temporal.rtf"), FileMode.OpenOrCreate, FileAccess.ReadWrite)
            Dim arrFile() As Byte = New Byte((mi_archivo.Length) - 1) {}
            Dim reader As BinaryReader = New BinaryReader(mi_archivo)
            arrFile = reader.ReadBytes(Convert.ToInt32(mi_archivo.Length))
            reader.Close()
            'Guardarlo en DB
            ConectaDB("Intranet") 'Se abre la conexión.
            Dim cmd As New MySqlCommand
            cmd.Connection = conexion 'Cadena de conexión.
            cmd.CommandText = "UPDATE Deudor SET EstadoActual = ?estado WHERE IdDeudor = ?id"
            cmd.Parameters.AddWithValue("?estado", arrFile)
            cmd.Parameters.AddWithValue("?id", BuscarInformeInterno.IdDeudor)
            cmd.ExecuteNonQuery()
            'Mensaje de Confirmacion
            MsgBox("Guardado con exito", MsgBoxStyle.Information, "Exito!")
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
 

Y el código para recibir los datos de la DB, guardarlos en un archivo temporal y ponerlo en el RichTextBox

Código vb:

Try
            ConectaDB("Intranet")
            Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
            If tabla.Rows.Count <> 0 Then
                'Creo mi arreglo que almacenara los bytes del archivo
                Dim barrFile() As Byte = CType(tabla.Rows(0)(0), Byte())
                'Creo el archivo apartir de los bytes
                Using newFile As New FileStream(("Temp\temporal1.rtf"), FileMode.Create, FileAccess.Write)
                    newFile.Write(barrFile, 0, barrFile.Length)
                    newFile.Flush()
                    newFile.Close()
                End Using
                'Abro el archivo temporal en el RichTextBox
                TxtEstadoActual.LoadFile("Temp\temporal1.rtf")
            End If
        Catch ex As Exception
            MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
        End Try
 

Gracias Aquaventus por responderme de una manera muy eficaz y rápida.

De verdad estoy muy agradecido. :D

Saludos desde México!

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.

[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.

[Gloritza]

Hola Fripas tu respuesta me saco de apuros.

Foros del Web; que gran plataforma, la capacidad y excelencia en las respuestas hacen que muchas mas personas confíen y disfruten de todos los contenidos aquí propuestos; su trabajo es un gran aporte a esta gran industria del software que día a día nos encargamos de hacer crecer en conjunto.


"Oooooooooh, nos has salvados, estamos agradecidos."

[fripas]

Que bueno que te sirvió, cualquier cosa, aquí estamos!

Saludos! :D