Erro Em Banco De Dados Acess

[Schuenck]

Olá, sou novo no fórum e não vi nenhum tópico que sanasse minha dúvida.

Enfim, estou trabalhando com VB2005 versão Express e Acess.

Criei um banco de dados e já está tudo certo, apenas está acontecendo um erro que não estou conseguindo consertar.

Enfim, vamos ao erro:

Bom, no sistema que desenvolvi, busco clientes através de "código", porém, como de se esperar, clientes que foram deletados não são encontrados, e isso provoca erro no programa.

Teria algum jeito de "dizer" ao programa, para:

IF linha da tabela = nothing Then 

msgbox("Cliente inexistente.")

End if[/codebox]

Qualquer ajuda é bem vinda, e se não ficou muito claro meu pedido, por favor digam que tento melhorar..

*Admin, acho que esse tópico é classificado como .NET, né!? Desculpa qualquer coisa, e caso seja, mova-o, por favor. Grato!

Editado Março 1, 2007 por Schuenck

[Schuenck]

Ninguém!?

[Graymalkin]

O que você usa para armazenar o resultado da consulta? Um DataReader, um DataSet ou uma DataTable?

Abraços,

Graymalkin

[Schuenck]

Um Data Reader...

 Public Sub BuscarCodigo(ByVal vCodigo As Integer)

        CMD.CommandText = "SELECT * FROM dbClientes WHERE Codigo =" & vCodigo
        AbrirConexao()
        DR = CMD.ExecuteReader
        DR.Read()


        If Not IsDBNull(DR("Nome")) Then 
            mCodigo = DR("Codigo")
            mNome = DR("Nome")
            mEndereco = DR("Endereco")
            mNascimento = DR("Nascimento")
            mCPF = DR("CPF")
            mRG = DR("RG")
        End If

        DR.Close()
        FecharConexao()
    End Sub[/codebox]

Quando busco pelo código inexistente, o erro ocorre na linha em negrito.

Grato pela ajuda!

[Graymalkin]

Verifique o retorno de Dr.Read(). Se retornar True é porque o registro foi lido, caso contrário ou não tem ou acabaram.

Abraços,

Graymalkin

[Schuenck]

Putz, continuo não conseguindo... =/

Como ficaria o código?

Assim?

If Dr.Read = True Then

If Not IsDBNull(DR("Nome")) Then
            mCodigo = DR("Codigo")
            mNome = DR("Nome")
            mEndereco = DR("Endereco")
            mNascimento = DR("Nascimento")
            mCPF = DR("CPF")
            mRG = DR("RG")
        End If

Else
       MsgBox("Cliente inexistente.")
End IF[/codebox]

Assim?

Tá dando erro... =/

Editado Março 6, 2007 por Schuenck

[Graymalkin]

Seria assim:

If DR.Read() Then
    If Not IsDBNull(DR("Nome")) Then
        mCodigo = DR("Codigo")
        mNome = DR("Nome")
        mEndereco = DR("Endereco")
        mNascimento = DR("Nascimento")
        mCPF = DR("CPF")
        mRG = DR("RG")
    End If
Else
    MsgBox("Cliente inexistente.")
End If

Mas, qual é o erro (a mensagem) que dá?

Abraços,

Graymalkin

[Schuenck]

O erro que aparece , antes de inserir o código que sugeriu, é:

"No data exists for the row/column."

Fiz o código como me informou ali, mas mesmo quando o cliente existe, a msgbox é exibida.

[Graymalkin]

Você não estaria chamando o método Read() duas vezes?

Abraços,

Graymalkin

[Schuenck]

Graymalkin! Agradeço muito sua ajuda, porém consegui depurar o erro de outra forma.

Usei o HASROW

Ficou assim:

If DR.HasRows Then
            If Not IsDBNull(DR("Nome")) Then
                mCodigo = DR("Codigo")
                mNome = DR("Nome")
                mEndereco = DR("Endereco")
                mNascimento = DR("Nascimento")
                mCPF = DR("CPF")
                mRG = DR("RG")
            End If
        Else
            MsgBox("Cliente inexistente.")
        End If
[/codebox]

Grato pela sua paciência, problema resolvido...

Abraço!