Dim sql, sql1 As String
Dim conn As SqlClient.SqlConnection
Dim cmd, cmd1 As SqlClient.SqlCommand
Dim dr As SqlClient.SqlDataReader
Dim n, ultimo As Integer
sql = "select * from tb_lotofacil where jogo = " & n & ""
sql1 = "select max(jogo) from tb_lotofacil"
conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Lotofacil\Lotofacil\Lotofacil\lotofacil.mdf;Integrated Security=True;User Instance=True")
conn.Open()
cmd1 = New SqlClient.SqlCommand(sql1, conn)
cmd = New SqlClient.SqlCommand(sql, conn)
ultimo = cmd1.ExecuteScalar()
n = 1
Do While n < ultimo
cmd = New SqlClient.SqlCommand(sql, conn)
dr = cmd.ExecuteReader()
Do While dr.Read()
TextBox16.Text = dr("num1")
Loop
Loop
conn.Close()
Da essa mensagem no debug:
"Já existe um DataReader aberto associado a este comando que deve ser fechado primeiro."
Pergunta
rodrigotnoma
Da essa mensagem no debug:
"Já existe um DataReader aberto associado a este comando que deve ser fechado primeiro."
e aponta para a linha: dr = cmd.ExecuteReader()
Alguém poderia me ajudar?
obrigado
Editado por quintelabAdicionado BBCode Code
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.