• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

n interexa

login

3 mensagens neste tópico

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Box = MsgBox("Deseja Sair?", vbYesNo)

        If Box = vbYes Then

            MsgBox("Obrigado por utilizar o  Produto !", vbOKOnly, "Login")

            Unload(Me)

        Else

            MsgBox("Efectue o Login introduzindo o Username e Password !", vbOKOnly, "Login")

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Const ligacaobd As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TMN\Desktop\tania-pc\clube_de_video\clube_de_video\bin\Debug\clube de video.mdb"

        Dim db As New OleDbConnection(ligacaobd)

      rsuti = dbs.OpenRecordset("SELECT * FROM Registe-se WHERE Utilizador and Password  ")

        'If vezes = 0 Then vezes = 1

        'vezes = vezes + 1

        If rsuti.RecordCount = 1 Then

            tipo = rsuti!tipo_utilizador

            Unload(Me)

    MsgBox ("Login aceite !"), vbInformation, "Login"

            Form1.Show()

        Else

            MsgBox("Login Inválido", vbInformation, "Login")

            UtilizadorTextBox = ""

            txtpass = ""

            If vezes <> 4 Then

                'If vezes = 2 Then

                'MsgBox "Tem 2 Tentativas"

                label5.Caption = "2"

            End If

            If vezes = 3 Then

                MsgBox("Tem 1 Tentativa")

                label5.Caption = "1"

            End If

    Else

            label5.Caption = "0"

            MsgBox("Utilizou as 3 Tentativas Possiveis", vbCritical, "Login")

            Unload(Me)

        End If

        End

    End

dá.me erros

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Dá e vai dar sempre erros! Esse código serve para VBA e não para VB.NET.

O que queres fazer, qual é a base de dados, etc. Explica melhor e dá mais informação.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora