none
usuario e senha

    Question

  • bom dia pessoal!

    tenho um software, que para o arranque é preciso um user e senha cadastrados. utilizando o banco de dados my sql server 2008 (ja tenho uma table usuario, onde estára armazenado os nomes e as senha), preciso saber qual é o comando para cadastrar usuario no vb. depois de cadastrado como eu devo fazer para serem reconhecidos no LOGIN???

    Thursday, April 25, 2013 10:16 AM

Answers

  • Já sabe como faz pra salvar no seu banco de dados ?

    Para fazer o reconhecimento é simples. Segue codigo em Sql:

    Function valida_usuario()
            Dim UserO As String
            Dim usuario As New DataTable
            abrir_simples()
            Dim Strcon As String
            Strcon = "Data source=.\SERVIDOR;AttachDbFilename=C:\Arquivos de programas\Microsoft SQL Server\MSSQL10.UBERCONTA\MSSQL\DATA\simples.mdf;Integrated Security=True;User Instance=True"
            Dim con As New SqlConnection(Strcon)
            Dim sql = New SqlCommand("SELECT codigo, senha FROM usuario WHERE codigo=" + txtCodigo.Text + "AND senha=" + txtSenha.Text)
    
            Try
                con.Open()
                Dim strComando As String = "SELECT codigo, senha FROM usuario WHERE codigo=" + txtCodigo.Text + "AND senha=" + txtSenha.Text
    
                Dim Comando As New SqlCommand(strComando, con)
                UserO = Comando.ExecuteScalar()
                If UserO > "" Then
                    frmMenu.Show()
                    Me.Visible = False
                    If txtCodigo.Text <> 1 Then
                        frmSenha.Enabled = False
                    End If
                Else
                    MessageBox.Show("Usuário e senha não conferem!", "Erro de Login!", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtSenha.Text = ""
                    txtSenha.Focus()
                End If
            Catch ex As SqlException
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
            Return 1
        End Function

    Thursday, April 25, 2013 11:24 AM

All replies

  • Já sabe como faz pra salvar no seu banco de dados ?

    Para fazer o reconhecimento é simples. Segue codigo em Sql:

    Function valida_usuario()
            Dim UserO As String
            Dim usuario As New DataTable
            abrir_simples()
            Dim Strcon As String
            Strcon = "Data source=.\SERVIDOR;AttachDbFilename=C:\Arquivos de programas\Microsoft SQL Server\MSSQL10.UBERCONTA\MSSQL\DATA\simples.mdf;Integrated Security=True;User Instance=True"
            Dim con As New SqlConnection(Strcon)
            Dim sql = New SqlCommand("SELECT codigo, senha FROM usuario WHERE codigo=" + txtCodigo.Text + "AND senha=" + txtSenha.Text)
    
            Try
                con.Open()
                Dim strComando As String = "SELECT codigo, senha FROM usuario WHERE codigo=" + txtCodigo.Text + "AND senha=" + txtSenha.Text
    
                Dim Comando As New SqlCommand(strComando, con)
                UserO = Comando.ExecuteScalar()
                If UserO > "" Then
                    frmMenu.Show()
                    Me.Visible = False
                    If txtCodigo.Text <> 1 Then
                        frmSenha.Enabled = False
                    End If
                Else
                    MessageBox.Show("Usuário e senha não conferem!", "Erro de Login!", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtSenha.Text = ""
                    txtSenha.Focus()
                End If
            Catch ex As SqlException
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
            Return 1
        End Function

    Thursday, April 25, 2013 11:24 AM
  • brigado pela ajuda claudio.

    ainda nao testei mas depois eu faco isso. mas de qualquer forma estou grato

    Saturday, May 25, 2013 6:09 PM