Ir para conteúdo
Fórum Script Brasil
  • 0

Atualizando Campos.. Erro


MaXiMuS

Pergunta

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

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

rsaux1.Open "UPDATE usuarios SET status_usr='0' WHERE id_usr=usuario ", conn

id_usr = usuario, tá errado isso, não tá?

Link para o comentário
Compartilhar em outros sites

  • 0

mas então....

o valor q eu quero atribuir a essa campo... é essi aki oh

usuario = rsaux!usr_emp

livro = rsaux!liv_emp

no caso usuario na primeira, e livro na segunda...

ele nesse caso, busca o emprestimo, se existir, e tiver em aberto.. ai eli altera pra OK.. o status.. e pega o codigo do usuario e do livro, pra alterar o status dele.... alterar o status do livro pra disponivel. e liberar a conta do usuario pra ele pegar outro livro

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...