VB 2010 com Mysql confirma dados usuario e senha


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: VB 2010 com Mysql confirma dados usuario e senha

Roberto
não registrado

ENUNCIADA !

Postada em 19/02/2011 09:36 hs

Ele acessa o Banco mas não confirma os dados na tabela para abrir o form Principal

Public Class Login
    Inherits System.Windows.Forms.Form
    Dim conn As New MySql.Data.MySqlClient.MySqlConnection
    Dim myCommand As New MySql.Data.MySqlClient.MySqlCommand
    Dim myAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter
    Dim myData As New DataTable
    Dim SQL As String
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim conn As MySql.Data.MySqlClient.MySqlConnection
        conn = New MySql.Data.MySqlClient.MySqlConnection
        conn.ConnectionString = "server=localhost;user id=root;password=teste;database=locacao"
        SQL = "SELECT * FROM locacao.login"
        '  Try
        conn.Open()
        'Try
        myCommand.Connection = conn
        myCommand.CommandText = SQL

        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)

        SQL = "SELECT senha FROM login WHERE usuario= '" & txtusuario.Text & "'"
        Dim vsenha As String = myCommand.ExecuteScalar()

        conn.Close()
        If vsenha = txtsenha.Text Then

            Principal.Show()
        End If

        Me.Close()
    End Sub

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 19/02/2011 11:25 hs

Não entra no formulario principal por conta desse condicao. se o vsenha=txtsenha.text entao entra. com certeza não é igual, depura e pega o vrsenha.

If vsenha = txtsenha.Text Then

Principal.Show()
End If

Roberto
não registrado

ENUNCIADA !

Postada em 19/02/2011 19:44 hs

Sim esta condição seria para confirmar a senha do usuario mas a principio parece não esta buscando no banco esta senha do usuario txtusuario.text.

Roberto
não registrado

ENUNCIADA !

Postada em 20/02/2011 00:11 hs

Mudei o codigo mas continua com erro

Imports MySql.Data.MySqlClient

Public Class Login

Inherits System.Windows.Forms.Form

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim cs As String = MySqlConnection() '

Dim conect As New MySqlConnection

conect.ConnectionString = cs

conect.Open()

Dim selcom As New MySqlCommand

selcom.Connection = conect

selcom.CommandText = "SELECT senha FROM login WHERE usuario='" & txtusuario.Text & "'"

Dim vsenha As String = selcom.ExecuteScalar

conect.Close()

If vsenha = txtsenha.Text Then

Principal.Show()

Me.Close()

Else

MessageBox.Show("Username ou Senha invalidos", "Login errado!", MessageBoxButtons.OK, MessageBoxIcon.Warning)

txtsenha.Text = ""

End If

Me.Close()

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.Close()

End Sub

Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CenterToScreen()

End Sub

Private Function MySqlConnection() As String

Throw New NotImplementedException

End Function

End Class

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 21/02/2011 09:30 hs

Roberto, qual o erro que esta dando? vc ja depurou para saber o que foi? fica muito dificil lhe ajudar se vc não informar qual erro e em que linha. e se não da erro de sintaxis dever ser pq a senha esta diferente.

Roberto
não registrado

Postada em 21/02/2011 10:01 hs

O erro aparece logo abaixo:

Throw New NotImplementedException

Existe outro codigo que usa o mysql e vb 2010 com loginform? Ex: Acesse o mysql na tabela e confira o usuario e senha para abrir o form Principal?

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR