segunda-feira, 17 de setembro de 2012

on

Estrutura do banco de dados


Imports System.Data.OleDb

Public Class Form1

    Private Sub Conexao()

        Dim conexao As New OleDbConnection
        Dim comandos As New OleDbCommand
        Dim consulta As OleDbDataReader
        
        'Em seu computador mude a string de conexão para que possa funcionar

        conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE=G:\Projetos Visual Studio\Sistema de login\Sistema de login\Banco de dados.accdb;"
        comandos.CommandText = "SELECT * from Usuários where nome='" + txtNome.Text + "'And senha='" + txtSenha.Text + "'"

        conexao.Open()
        comandos.Connection = conexao
        consulta = comandos.ExecuteReader()

        If (consulta.HasRows) Then
            frmPrincipal.Show()
        Else
            MsgBox("Nome ou Senha não conferem.", MsgBoxStyle.Critical, "Sistema de Login")
            Me.txtNome.Text = ""
            Me.txtSenha.Text = ""
            Me.txtNome.Focus()
            Exit Sub
        End If

        conexao.Close()
        Me.Close()

    End Sub

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

        Conexao()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim Pergunta As Integer
        Pergunta = MsgBox("Tem certeza que deseja encerrar a aplicação?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If Pergunta = vbYes Then
            End
        End If
    End Sub
End Class

 Espero ter ajudado, até mais, abraços!

0 comentários:

Postar um comentário