Schuenck

Cara, acho que no caso de você digitar 00001, 000001, ou até mesmo 1, o programa vai interpretar da mesma forma... Mas isso apenas se a variável, onde o código para busca fica armazenada, for do tipo Inteira, e não String. Abraços

Certo, cara! Muito obrigado pela ajuda novamente! Hehehehhe Valeu mesmo!

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!

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.

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... =/

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!

Ninguém!?

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!