login em vb2005

[jpdo]

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

 

[alfinete]

um exemplo de loguin em aspnet vb 2005


ficheiro inicial que faz o loguin

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

  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

 

[jpdo]

bgad pela ajuda
eu tou a trabalhar em acess

 

[jpaulino]

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

 

[jpdo]

visual basic2005

 

[alfinete]

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

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

Imports criptografar

Imports trata_sql

espero que tenha ajudado