Jump to content

Consulta .ExecuteReader


HQuintas
 Share

Recommended Posts

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

Link to comment
Share on other sites

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.

Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.