[SOLUCIONADO] Mostrar mas registros dentro de un textbox

[isaac26lopez]

Buenas foreros!

Os traigo una grandísima duda con la que llevo peleando ya unos días y de la que seguramente alguien me puede echar una mano. Por cierto, estoy trabajando en Visual basic (casi se me olvida decir el lenguaje).

Lo que quiero es que un TextBox que almacene varios registros en un select hacia mi MySql. Lo tengo planteado y desarrollado para que me dé un solo registro, pero cuando le pido mas (un select * from clientes) me da solo el primer campo de la primera fila.

Aqui os dejo el código, y si podeis hacer que dentro de ese textbox aparezca toda una tabla...me harías un gran favor (lo tengo distribuido en dos formularios, pero donde quiero que se muestre es el textbox del formulario 2 llamado txtResulado.Text:

Formulario1:

Código vb:

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim stringConexion As String = "server=localhost;database=horta na mesa; uid=root;"
    Private Function conexion() As MySqlConnection
        Return New MySqlConnection(stringConexion)
    End Function
 
    Dim con As MySqlConnection = conexion()
    Dim adaptador As New MySqlDataAdapter
    Dim comando As New MySqlCommand
    Dim ds As New DataSet
 
    Private Sub Form1_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con.Open()
        Dim sql As String = "select tablas from 00000001tablas;"
        With comando
            .Connection = con
            .CommandText = sql
        End With
        ds = New DataSet
        adaptador = New MySqlDataAdapter(sql, con)
        adaptador.Fill(ds, "00000001tablas")
        With listaTabla
            .DataSource = ds.Tables(0)
            .ValueMember = "tablas"
            .DisplayMember = "tablas"
        End With
        con.Close()
    End Sub
    'Definimos la variable que se "meterá" en el formulario 2
    Dim moverme
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles form1Enviar.Click
        moverme = Form2
        moverme.Show()
    End Sub
End Class
 

Formulario2:

Código vb:

Imports MySql.Data.MySqlClient
Public Class Form2
    Dim tabla, tipo, consultaTipo As String
    Dim reader As String
    Dim consulta As New MySqlCommand
    Dim conexion As New MySqlConnection
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conexion = New MySqlConnection("server=localhost;database=horta na mesa; uid=root;")
        tabla = Form1.listaTabla.Text
        tipo = Form1.listaTipo.Text
        conexion.Open()
        consulta = New MySqlCommand(tipo & " * from " & tabla & ";")
        'Hacemos "consultaTipo" para que podamos mostrarlo en el textbox, ya que "consulta"
        'no se puede transformar a string devido a que es un MysqlCommand
        consultaTipo = tipo & " * from " & tabla & ";"
        consulta.Connection = conexion
        reader = consulta.ExecuteScalar()
        'Metemos en los textbox lo que queremos
        txtConsulta.Text = consultaTipo
        txtResultado.Text = reader.ToString()
    End Sub
    Private Sub f2Cerrar_Click(sender As Object, e As EventArgs) Handles f2Cerrar.Click
        Close()
    End Sub
End Class
 

P.D.: Hace 3 dias que empecé con esto del visual basic sin experiencia ninguna en programación, si podeis carregirme e indicarme algún consejo sería de gran ayuda.

Un saludo de antemano!!!

[isaac26lopez]

bueno...es triste pero creo haberme encontrado yo mismo la solución.

la posteo por si ha alguien le ocurre lo mismo, que por lo menos pueda guiarse por estos pasos:

hice el siguiente codigo en el formulario2:

Código vb:

Imports MySql.Data.MySqlClient
Public Class Form2
    Dim tabla, tipo, consultaTipo As String
    Dim consulta As New MySqlCommand
    Dim conexion As New MySqlConnection
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conexion = New MySqlConnection("server=localhost;database=horta na mesa; uid=root;")
        tabla = Form1.listaTabla.Text
        tipo = Form1.listaTipo.Text
        conexion.Open()
        'Hacemos un case para el tipo de consulta que se realiza
        Select Case tipo
            Case "SELECT"
                consulta = New MySqlCommand("SELECT * from " & tabla & ";")
                'Hacemos "consultaTipo" para que podamos mostrarlo en el textbox, ya que "consulta"
                'no se puede transformar a string devido a que es un MysqlCommand
                consultaTipo = "SELECT * from " & tabla & ";"
                consulta.Connection = conexion
                'Metemos en los textbox lo que queremos
                txtConsulta.Text = consultaTipo
                Dim da As New MySqlDataAdapter
                da.SelectCommand = consulta
                Dim dt As New DataTable
                da.Fill(dt)
                Dim numeroregistros = dt.Rows.Count()
                If tabla = "clientes" Then
                    For i = 0 To numeroregistros - 1
                        Dim row As DataRow = dt.Rows(i)
                        txtResultado.Text = txtResultado.Text & CStr(row("nombre")) & ", " & CStr(row("dni")) & ", " & CStr(row("direccion")) & ", " & CStr(row("telefono")) & Environment.NewLine
                    Next
                ElseIf tabla = "proveedores" Then
                    MessageBox.Show("Tabla de proveedores")
 
                End If
           'Borro los otros "Case" ya que solo interesaba el select
        End Select
 
 
    End Sub
    Private Sub f2Cerrar_Click(sender As Object, e As EventArgs) Handles f2Cerrar.Click
        Close()
    End Sub
End Class