Postada em 18/05/2009 10:09 hs
estou com o mesmo erro fala que é sintase do comando update
ta ai o comando
Private Sub cmdOK_Click()
Dim cnnComando As New ADODB.Command
Dim vCod As Long
On Error GoTo errGravaçao
vCod = Val(txtCodLivro.Text)
'verifica o codigo digitado
If vCod = 0 Then
MsgBox "O campo código do livro nao foi preenchido.", vbExclamation + vbOKOnly + vbSystemModal, "Erro"
Exit Sub
End If
If lblTitulo.Caption = Empty Then
MsgBox " o campo codigo do livro nao contem um dado válido.", vbExclamation + vbOKOnly + vbSystemModal, "Erro"
Exit Sub
End If
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnBiblio
.CommandType = adCmdText
.CommandText = "UPDATE Livros SET Emprestado = False, " & _
"CodUsuario = Null, " & _
"DataEmprestimo = Null, " & _
"DataDevoluçao = Null, " & _
"WHERE CodLivro = " & vCod & ";"
.Execute
End With
MsgBox "A devoluçao do livro " & lblTitulo & " foi efetuada com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Devoluçao Ok"
cmdCancelar_Click
Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub
errGravaçao:
With Err
If .Number <> 0 Then
MsgBox "Erro durante a gravação de dados no registro." & vbCrLf & _
"A devoluçao do livro nao foi completada", vbExclamation + vbOKOnly + vbApplicationModal, "Devoluçao Cancelada"
.Number = 0
GoTo Saida
End If
End With
End Sub
|
