[SOLUCIONADO] Pasar datos de la base de datos a un textbox

[jadelbarrio]

Buenas tardes,

Estoy intentando realizar una consulta sql con sql server compact edition y listar todas las filas en un textbox. El lenguaje que he utilizado es visual basic, el código es el siguiente:

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlCeConnection("Data Source=C:\Documents and Settings\Admin\My Documents\WINDOWSMOBILE24 My Documents\pastillero.sdf;")
        Dim consulta As SqlCeCommand = con.CreateCommand
        Dim reader As SqlCeDataReader
      
        consulta.CommandText = "SELECT pacientes.* from pacientes"
        
        con.Open()

        reader = consulta.ExecuteReader
        
        While (reader.Read())
            Me.TextBox1.Text = reader.GetValue(0).ToString + vbTab + reader.GetValue(3).ToString + vbTab + reader.GetValue(1).ToString + vbTab + reader.GetValue(2).ToString + vbCrLf

        End While

  con.Close()



    End Sub

la base de datos tiene una tabla que se llama "pacientes" y dentro de la tabla hay 4 campos.
con éste código, lógicamente sólo me aparece la última linea de la consulta, parece que sobreescribe lo que está en el textbox en cada iteración y se lista sólo la última línea. Lo que quiero es listar desde la primera hasta la última. Cómo puedo hacerlo?

muchas gracias

[Libras]

creo que esto iria en el foro de progamacion que no????

[Malenko]

Prueba a modificar el bucle por esto:

Código vb:

While (reader.Read())
            Me.TextBox1.Text = Me.TextBox1.Text + reader.GetValue(0).ToString + vbTab + reader.GetValue(3).ToString + vbTab + reader.GetValue(1).ToString + vbTab + reader.GetValue(2).ToString + vbCrLf
 
        End While
 

[gnzsoloyo]

OFF TOPIC en BBDD.

Movido a foro de .Net.

[othix]

Prueba con:

Código vb:

While (reader.Read())
            Me.TextBox1.Text = Me.TextBox1.Text  + reader.GetValue(0).ToString + vbTab + reader.GetValue(3).ToString + vbTab + reader.GetValue(1).ToString + vbTab + reader.GetValue(2).ToString + vbCrLf
 
        End While
 

[jadelbarrio]

Iniciado por Malenko

Prueba a modificar el bucle por esto:

Código vb:

While (reader.Read())
            Me.TextBox1.Text = Me.TextBox1.Text + reader.GetValue(0).ToString + vbTab + reader.GetValue(3).ToString + vbTab + reader.GetValue(1).ToString + vbTab + reader.GetValue(2).ToString + vbCrLf
 
        End While
 

Muchísimas gracias, funcionó perfectamente