none
Selecionar campo vazio na tabela, para depois exibir o erro. RRS feed

  • Pergunta

  • Estou tentando fazer uma consulta na tabela que quando, não haver nenhum registro, ele exibir um erro (MessageBox), se houver registro executar a outra pesquisar abaixo(que já está funcionando)

    Tentei fazer esse select só que ainda não deu certo, acho que é o nothing "/

    Sugestões?

        If SQL = "select * from TabPaciente where Cod_Pac=" & Nothing Then
                MessageBox.Show("Não existem pacientes registrados. Para fazer a pesquisa deve-se registrar um paciente", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                objdt = navegar("TabPaciente")
                i = 0
                dtrw = objdt.Rows(i)
                Call exibir_dadosdesconectados()
                Call Acompanhante()
            End If
        End Sub

    sábado, 22 de setembro de 2012 04:06

Respostas

  • Consegui... a solução estava na minha frente...

    era só deixar o valor de i = 0

        If SQL = "select * from TabPaciente where Cod_Pac=" &= 0 Then
                MessageBox.Show("Não existem pacientes registrados. Para fazer a pesquisa deve-se registrar um paciente", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                objdt = navegar("TabPaciente")
                i = 0
                dtrw = objdt.Rows(i)
                Call exibir_dadosdesconectados()
                Call Acompanhante()
            End If
        End Sub

    domingo, 23 de setembro de 2012 18:39