Visual Basic --- Base de Dados

[Kacetada]

Private Sub cmdactualizar_Click()
Dim mes As String, resp As String
mes = \\"deseja guardar\\"
resp = MsgBox(mes, vbYesNo)
If resp = vbYes Then
Data1.Recordset.Update
cmdactualizar.Enabled = False
cmdeliminar.Enabled = True
cmdadicionar.Caption = \\"Adicionar\\"
End If


End Sub

Private Sub cmdadicionar_Click()
If cmdadicionar.Caption = \\"Adicionar\\" Then
Data1.Recordset.AddNew
Data1.Recordset!n_utilizador = Val(Text1.Text)
Data1.Recordset!nome = Text2.Text
Data1.Recordset!idade = Val(Text3.Text)
Data1.Recordset!mail = Text4.Text
cmdactualizar.Enabled = True
cmdeliminar.Enabled = False
cmdadicionar.Caption = \\"Cancelar\\"
Else
Data1.Recordset.CancelUpdate
cmdactualizar.Enabled = False
cmdeliminar.Enabled = True
cmdadicionar.Caption = \\"Adicionar\\"
End If


End Sub

Private Sub cmdanterior_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub cmdeditar_Click()
Data1.Recordset.Edit
Data1.Recordset!n_utilizador = Val(Text1.Text)
Data1.Recordset!nome = Text2.Text
Data1.Recordset!idade = Val(Text3)
Data1.Recordset!mail = Text4.Text
Data1.Recordset.Update



End Sub

Private Sub cmdeliminar_Click()
Dim mes As String, resp As String
mes = \\"deseja eliminar\\"
resp = MsgBox(mes, vbYesNo)
If resp = vbNo Then
MsgBox (\\"registo nao eliminado\\")
Else
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MovePrevious
If Data1.Recordset.EOF Then
MsgBox \\"sem registo\\"
cmdeliminar.Enabled = False
End If
End If
MsgBox (\\"registo eliminado\\")
End If
End Sub

Private Sub cmdprimeiro_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdprocurar_Click()
Dim x As String, criterio As String
x = InputBox(\\"introduza o nome do utilizador\\")
criterio = \\"nome=\\'\\" & x & \\"\\'\\"
Data1.Recordset.FindFirst (criterio)
If Data1.Recordset.NoMatch Then
MsgBox \\"registo nao encontrado\\"
Else
MsgBox (\\"o e-mail é\\" & Data1.Recordset!mail)
End If


End Sub

Private Sub cmdseguinte_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub cmdultimo_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Form_Load()
cmdactualizar.Enabled = False

End Sub

[VanishPT]

Sim
Qual o problema?

[tREMEX]

Estas coisas deviam ser bloqueadas...

[cocacola]

Este tópico já tem uns mesinhos valentes