Bom..... quando eu gravo o empréstimo no banco de dados, ele altera o status do usuario... e do livro.... e quando eu atualizo o emprestimo.. ele altera o status deles novamente, voltando ao normal..
porem.. ele dá erro ao atualizar os status do usuario e do livro.. o que será q pode ser? pode me dar uma mão?
Option Explicit
Public conn As New ADODB.Connection
Public rsalt As New ADODB.Recordset
Public rsaux As New ADODB.Recordset
Public rsaux1 As New ADODB.Recordset
Public rsaux2 As New ADODB.Recordset
Public livro, usuario As String
Private Sub cmdalt_Click()
If Trim(txtcod.Text) <> Empty Then
If IsNumeric(txtcod.Text) Then
rsaux.Open "Select * from emprestimos WHERE id_emp=" & txtcod.Text, conn
If rsaux.EOF And rsaux.BOF Then
MsgBox "Empréstimo não encontrado", vbExclamation, "Erro"
Else
usuario = rsaux!usr_emp
livro = rsaux!liv_emp
rsalt.Open "UPDATE emprestimos SET status_emp='1' WHERE id_emp=" & txtcod.Text, conn
rsaux1.Open "UPDATE usuarios SET status_usr='0' WHERE id_usr=usuario ", conn
rsaux2.Open "UPDATE livros SET status_liv='1' WHERE id_liv= 'livro' ", conn
MsgBox "Empréstimo alterado com sucesso", vbExclamation, "Atenção"
End If
rsaux.Close
Else
MsgBox "Informe um código válido", vbExclamation, "Erro"
End If
Else
MsgBox "Informe um código", vbExclamation, "Erro"
End If
End Sub
Pergunta
MaXiMuS
Bom..... quando eu gravo o empréstimo no banco de dados, ele altera o status do usuario... e do livro.... e quando eu atualizo o emprestimo.. ele altera o status deles novamente, voltando ao normal..
porem.. ele dá erro ao atualizar os status do usuario e do livro.. o que será q pode ser? pode me dar uma mão?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.