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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |