Consulta .ExecuteReader

[HQuintas]

Boas

Estou um pouco confuso com trecho de código em baixo, está a dar um erro "No data exist/row..."

Devo fechar a conexão no fim do ciclo while, para no caso da flag ser FALSE (não ser encontrado nenhum que satisfaça a condição)

e abrir de novo, para pegar o primeiro registo.

    Dim comando As New SqlCeCommand("select * from tabela where id='JKH' and chk='1'", connection)
    Dim leitura As SqlCeDataReader = comando.ExecuteReader
    Dim flag As Boolean = False
            While leitura.Read
                l = leitura("linha_sv")
                sid = leitura("id")

                If pote2.FindStringExact(sid.ToString) >= 0 Then 'Se existir no pote2 faz
                    MsgBox("Este existe no pote2: " & sid)
                    flag = True
                    Exit While
                End If
            End While

            If flag = False Then 'Senão existir pega o primeiro
                leitura = comando.ExecuteReader
                leitura.Read()
                l = leitura("linha_sv") 'Erro "No data exist/row"
                sid = leitura("id")
                MsgBox("Este não existe no pote2: " & sid & "" + Chr(13) & "No entanto vai preencher o serviço: " & sv)
            End If

[José Lopes]

Não deve ter a ver com isso... embora seja um bom procedimento fazer isso... isto por causa da persistência da ligação....e das sessões que ocupas em base de dados.

A questão é que ele está-te a dizer que não encontra nenhuma linha baseada no critério select que tens definido no comando.

Verifica se devia devolver resultados ou não.

[HQuintas]

É isso não encontra nenhuma linha que satisfaça o critério.

... embora seja um bom procedimento fazer isso... isto por causa da persistência da ligação....

Queres dizer que devo fechar a conexão no fim do ciclo while.

Obrigado