(Resolvido) Trazendo somente o ultimo registro

[rodrigotnoma]

Bom dia.

Não sei o que acontece com esse código que só traz o último registro que contém a condição da query SQL:

sql = "select * from tb_lotofacil where num1 = '" & TextBox1.Text & "'"

        conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Lotofacil\Lotofacil\Lotofacil\lotofacil.mdf;Integrated Security=True;User Instance=True")

        conn.Open()

        cmd = New SqlClient.SqlCommand(sql, conn)

        dr = cmd.ExecuteReader()

        Do While dr.Read()

            TextBox16.Text = dr("jogo") & vbCrLf

        Loop

No banco existem dois registros que satisfazem a condição: sql = "select * from tb_lotofacil where num1 = '" & TextBox1.Text & "'"

Por que está trazendo somente o último?

Obrigado.

Editado Abril 28, 2009 por quintelab
Adicionado BBCode Code

[rodrigo_fabiam]

Rodrigo,

Isso esta acontecendo pelo seguinte:

A sua consulta SQL traz 2 registros da tabela, OK?

Quando você faz o loop:

Do While dr.Read()
  TextBox16.Text = dr("jogo") & vbCrLf
  Loop

Na primeira vez que roda o loop, o codigo coloca o valor do 1o registro no TextBox16. Na segunda vez, ele pega o valor do 2o registro, e coloca no TextBox16, substituindo o que já estava nesse TextBox. Tenta fazer o loop desse jeito e veja se funciona.

Do While dr.Read()
  TextBox16.Text = TextBox16.Text & dr("jogo") & vbCrLf
  Loop

Assim, no segundo loop, ele coloca o valor que já estava no TextBox, junto com o segundo registro.

Rodrigo.

Editado Abril 28, 2009 por quintelab
Adicionado BBCode Code

[rodrigotnoma]

Opa, obrigado "xará".

Resolvido.

Rodrigo