1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

login em vb2005

Discussão em 'Programação' iniciada por jpdo, 7 de Abril de 2008. (Respostas: 5; Visualizações: 1160)

  1. jpdo

    jpdo Power Member

    boa tard..tou a fazer um programa de gestão de pichelaria, mas como ainda nao sei mt sobre o vb tou a fazer em acess, e keria fazer um login para k so o administrador pudesse ter acesso a informasção k ta dentro da base de dados..
    alguem m pode ajudar??

    Thanks
     
  2. alfinete

    alfinete Power Member

    um exemplo de loguin em aspnet vb 2005


    ficheiro inicial que faz o loguin

    Código:
    
    Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
            Dim login As String ' guarda o user que faz loguin
            'Dim data As String    ' guarda a data de sistema de login
    
            Dim ds As DataSet = ExecSql("SELECT * FROM TabUtilizador where Login='" & Txtbox_user.Text & _
                    "' and  Password = '" & GeraHash(txtbox_pass.Text) & "'")
            If ds.Tables.Item(0).Rows.Count = 1 Then
                'Para armazenar o Login e a Hora que foi efetuado o login
                login = Me.Txtbox_user.Text
                Session("Login") = login
                Session("LoginId") = ds.Tables.Item(0).Rows.Item(0)("Id")
                Session("HorarioLogin") = Today.ToString("dd/MM/yyyy")
                Session("Previlegio") = ds.Tables.Item(0).Rows.Item(0)("Previlegios")
                Response.Redirect(host + "/site/Admin.aspx")
            Else
                lbl_Erro.Visible = True
                lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
                Txtbox_user.Text = ""
                txtbox_pass.Text = ""
                'Me.Txtbox_user.Focus()
            End If
            ds.Dispose()
        End Sub
    
        Protected Sub Txtbox_user_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtbox_user.TextChanged
            If Me.Txtbox_user.Text <> "" Then
                Me.lbl_Erro.Visible = False
            End If
        End Sub
    
    class - tratasql

    Código:
    
      Public Shared str_ligacao As String = "data source=(local);initial catalog=Requisicoes;integrated security=SSPI;persist security info=True"
        Public Shared host As String = "http://localhost:8080" '"http://weza.no-ip.org:8080"
    
    
        'End Function
        Public Shared Function ExecSql(ByVal comando As String) As DataSet
            Dim sda As SqlDataAdapter = New SqlDataAdapter(comando, str_ligacao)
            Dim ds As DataSet = New DataSet()
            sda.Fill(ds)
            sda.Dispose()
            Return ds
        End Function
    
     
    Última edição: 9 de Abril de 2008
  3. jpdo

    jpdo Power Member

    bgad pela ajuda
    eu tou a trabalhar em acess
     
  4. jpaulino

    jpaulino Power Member

    Está a trabalhar em access mas vb.net ou asp.net ?
     
  5. jpdo

    jpdo Power Member

    visual basic2005
     
  6. alfinete

    alfinete Power Member

    estas com aceess em vbnet, ou acess c#?

    quanto a ser acess

    penso que so tens de mudar esta string de ligação a bd

    data source=(local);initial catalog=Requisicoes;integrated security=SSPI;persist security info=True





    tens aqui a classe de criptografia em md5

    Código:
    
    Imports Microsoft.VisualBasic
    Imports System.Text
    Imports System.Security.Cryptography
    
    Public Class criptografar
    
    
    
        '    If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) 
    
        ' gera um ash da string escrita 
        Public Shared Function GeraHash(ByVal texto As String) As String
    
            'Cria um objeto enconding para assegurar o padrão
    
            'de encondig para o texto origem
    
            Dim Ue As New UnicodeEncoding()
    
    
            'Retorna um byte array baseado no texto origem
    
            Dim ByteSourceText() As Byte = Ue.GetBytes(texto)
    
    
            'Instancia um objeto MD5
    
            Dim Md5 As New MD5CryptoServiceProvider()
    
    
            'Calcula o valor do hash para o texto origem
    
            Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
    
    
            'Converte o valor obtido para o formato string
    
            Return Convert.ToBase64String(ByteHash)
    
        End Function
    End Class
    
    
    depois para chameres quer esta classe quer a outra do tratasql, no file onde fazes o loguin fazes ao inicio do file vb

    Código:
    Imports criptografar
    
    Imports trata_sql
    
    espero que tenha ajudado
     
    Última edição: 9 de Abril de 2008

Partilhar esta Página