problema ao verificar se o dado existe na tabela

[Gustavo Ricardo]

Pessoal estou com o seguinte problema :

estou fazendo um programa pra biblioteca e estou com um problema na tela de devolução,

tenho as tabelas de alunos, livros e aluguel,

ai eu tenho a tela de aluguel de livros, que funciona perfeitamente,

ai qd eu faço um aluguel, e vou na tela de devolução testar

eu qro fazer uma verificação se o aluno realmente está com o livro locado,

ai eu fiz o seguinte código

Dim sql As String = "exec pr_dev_Aluguel '" + mskRG.Text + "','" + txtNomeLivro.Text + "'"

Dim cmd As New SqlCommand(sql, cn)

Dim sql2 As String = "exec pr_upd_Devolucao_QtdLivros '" + txtNomeLivro.Text + "','" + txtQtdDevolver.Text + "'"

Dim cmd2 As New SqlCommand(sql2, cn)

Dim sqlPesquisa As String = "select Nome , Nome_Livro from Aluguel '" + txtNome.Text + "','" + txtNomeLivro.Text + "'"

Dim cmdPesquisa As New SqlCommand(sqlPesquisa, cn)

cn.Open()

dr = cmd.ExecuteReader

If dr.HasRows = False Then

MsgBox("Este aluno não está com este livro locado")

cn.Close()

Else

Try

cn.Open()

cmd.ExecuteNonQuery()

cmd2.ExecuteNonQuery()

txtIDlivro.Clear()

txtNomeLivro.Clear()

txtAutor.Clear()

txtEditora.Clear()

MskDataEntrega.Clear()

txtQtdDevolver.Clear()

MskDataEntrega.Clear()

mskRG.Clear()

txtNome.Clear()

txtAutor.Clear()

txtIDaluno.Clear()

txtDataAluguel.Clear()

Finally

dr.Close()

cn.Close()

End Try

MsgBox("Livro devolvido com Sucesso")

End If

mas ai qd o aluno n esta com o livro locado eu qria q aparecesse a mensagem dizendo q ele n esta com o livro locado

maas se ele realmente estivesse ele continuar o codigo normalmente e dar a mensagem livro devolvido com sucesso

ai qd o aluno realmente n tem o livro locado ele da o erro dizendo q n tem o livro locado para esse aluno,

e qd tem ele da a mesmo mensagem dizendo q o aluno n tem o livro locado, mesmo ele tendo, e o programa ainda apaga normalmente o aluno dos registro de aluguel,

algm pode me ajudar?

desculpe pelo texto mt grande :s

vlw.

[Danleonhart]

Olá Gustavo...

Bem...primeiro, seu código é VB.NET, aqui é a área do VB-6 e VBA :rolleyes:

agora em relação ao seu script, desconheço esse comando SQL "exec pr_dev_Aluguel '"

eu faria de outra maneira...usaria uma condição (IF THEN) para me retornar se determinado aluno estaria ou não com determinado livro...

No script abaixo vejo se determinado Nome já existe no BD...

Private Sub Ver_se_Existe()
        Dim SQL As String = "Select * from Clientes"
        Dim Nome As String = txtNome.Text
        Dim TempNome As String
        Dim Existe As Boolean
        Using Con As New OleDbConnection(Scon)
            Con.Open()
            Using Cmd As New OleDbCommand(SQL, Con)
                Using Dr As OleDbDataReader = Cmd.ExecuteReader

                    While Dr.Read
                        tempnome = Dr.Item("Nome")
                        If Nome = TempNome Then
                            Existe = True
                            Exit While
                        End If
                    End While
                    If Existe = True Then
                        MessageBox.Show("Nome encontrado", "AVISO !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                        Exit Sub
                    ElseIf Existe = False Then
                        MessageBox.Show("Nome não existe no Banco de Dados...", "Atenção !", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                End Using
            End Using
        End Using
      
    End Sub

Pode ser usado...basta adptar...