POPULAR TEXTBOX COM CAMPO ESPECIFICO DE TABELA SQL

SANROMAN 13/01/2015 18:47:00
#443778
Boa tarde,

Tenho um campo textbox que deve ser preenchido com o valor do último registro de uma tabela sql com o valor de um campo específico.
Mas dá o seguinte erro:



Tentativa inválida de leitura quando não existem dados

Segue o código que estou usando para tal consulta:

Private Sub saldoAnterior()

Dim sqlCon As New SqlConnection(strCmd)
Dim strSql As String = [Ô]SELECT SaldoAnterior [Ô] & _
[Ô]FROM TB_FluxoCaixa [Ô] & _
[Ô]WHERE id_FluxoCaixa IN (SELECT MAX(id_FluxoCaixa) FROM TB_FluxoCaixa)[Ô]

Dim sqlCmd As New SqlCommand(strSql, sqlCon)
Dim dr As SqlDataReader

sqlCmd.Connection.Open()
dr = sqlCmd.ExecuteReader

If dr.HasRows Then

txtSaldoAnterior.Text = dr([Ô]SaldoAnterior[Ô]).ToString

End If

End Sub

Desde já agradeço
SANROMAN 13/01/2015 19:21:57
#443780
Boa tarde,

Amigos, já resolvi o problema. Que distração a minha.....

Faltou incluir dr.Read ao código

Lamentável, me desculpem.

O código ficou assim e funciona perfeitamente.

Private Sub saldoAnterior()

Dim sqlCon As New SqlConnection(strCmd)
Dim strSql As String = [Ô]SELECT SaldoAnterior [Ô] & _
[Ô]FROM TB_FluxoCaixa [Ô] & _
[Ô]WHERE id_FluxoCaixa IN (SELECT MAX(id_FluxoCaixa) FROM TB_FluxoCaixa)[Ô]

Dim sqlCmd As New SqlCommand(strSql, sqlCon)
Dim dr As SqlDataReader

sqlCmd.Connection.Open()
dr = sqlCmd.ExecuteReader
dr.Read

If dr.HasRows Then

txtSaldoAnterior.Text = dr([Ô]SaldoAnterior[Ô]).ToString

End If

End Sub

Estou finalizando o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar